Con FastReport 4 esportare un report in PDF su stream è semplicissimo, bastano 5 minuti … peccato che non è spiegato nella documentazione, quindi per capire come funzionava l’arcano ci ho perso due ore… di seguito una porzione di codice come esempio: procedure TForm1.Button3Click(Sender: TObject); var st : TMemoryStream; begin st := TMemoryStream.Create; Try TBlobField(csReports.FieldByName(‘Report’)).SaveToStream(st);…
Leggi tutto
Il famoso report designer per C++, Delphi e DotNet è ora disponibile nella varsione per il framework grafico Firemonkey. Grazie a quest’estensione di Fast-Report è possibile combinare designer e engine-report in applicazioni cross-platform. Il nome del progetto è appunto fastreportFMX , questo tool è ovviamente compatibile con le versioni di rad-studio dalla XE2 in su.…
Leggi tutto
Those sections of C++ tutorials are very simple. Otherwise they explain the differences between Delphi (pascal) language and C++. Good job: Session 1: Session 2:
Determinare di che formato è un’immagine in uno stream è un problema comune, in questo esempio il codice è scritto in Delphi ma come concetto è facilmente trasportabile in qualsiasi altro formato. Nei primi bytes di un’immagine di qualsiasi formato viene messa una firma che identifica lo stesso in modo univo, nell’esempio ci limitiamo ad…
Leggi tutto
Ciao, da oggi è disponibile il download di BusinessLab versione 1.0.125, la versione attualmente disponibile prevede una registrazione che non implica nessun pagamento (gratis). E’ un sistema semplice, ma molto potente per gestire i contenuti della vostra azienda, emettere fatture, gestire anagrafiche etc. , l’elenco delle caratteristiche di questo software le potete trovare…
Leggi tutto
this function that i found on the Net allow your delphi code to access at environment variables of your Windows systems :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
function GetEnvVarValue(const VarName: string): string; var BufSize: Integer; // buffer size required for value begin // Get required buffer size (inc. terminal #0) BufSize := GetEnvironmentVariable( PChar(VarName), nil, 0); if BufSize > 0 then begin // Read env var value into result string SetLength(Result, BufSize - 1); GetEnvironmentVariable(PChar(VarName), PChar(Result), BufSize); end else // No such environment variable Result := ''; end; |