CodeXpress Report Builder is an application genarate PDF report with queried multiple pages and various types of data controls, include data chart. Further Information: Codexpress Report Builder Main Site This video shows how to insert a data chart and preview the pdf auto exported.

If You really like to develop softwares and don’t want to pay a expansive license of Borland Delphi Tool. You can use a free version called Delphi Personal with less components, but still useful. Some Features: Standard Components Additional Components Win32 Components (No Shell Treeview, etc) System Components Dialogs Components Win 3.1 Components Samples and [...]

The user of your application needs do close and open it again everytime he/she set a particular configuration to make this change available. So, with the code below You can give the possibility to your users a quick restart and improve the experience of your software. Simple task: Create a batch file with the filename [...]

Every picture that You insert into your delphi application project makes the executable bigger. So, If you want minimize that problem with your disabled images of your buttons, You could use the code below: function ConvertBitmapToGrayscale(const Bitmap: TBitmap): TBitmap; var i, j: Integer; Grayshade, Red, Green, Blue: Byte; PixelColor: Longint; begin with Bitmap do for [...]

The Code below shuflle the bits of the image using the key to define differents ways to encrypt the same bitmap. procedure EncryptBitmap(const Bmp: TBitmap; Key: Integer); var   BytesPorScan: Integer;   w, h: integer;   p: pByteArray; begin   try BytesPorScan := Abs(Integer(BMP.ScanLine[1]) – Integer(BMP.ScanLine[0]));   except raise Exception.Create(‘Error’);   end;   RandSeed := Key; [...]

A simple way to encrypt your strings into Delphi Development. The acode below shuffle the characters based on those C1 and C2 constants and You can set to any number to them, but remenber to use the same in both code encryption. function EncryptStr(const S: String; Key: Word): String; var I: Integer; const C1 = 53761;       C2 = [...]

A procedure to download a file from the internet: function DownloadFile(Source, Dest: string; OnProgress: TDownloadProgressEvent): Boolean; begin with TDownloadURL.Create( Application ) do try URL:= Source; FileName := Dest; OnDownloadProgress := OnProgress; try ExecuteTarget(nil) ; except Result := false; end; finally Free; end; Result := true; end;

A useful code that convert a string to a character. It’s simple, a string is an array of characters, so you just have to “take” the position you want.Code Below: function StrToChr(Str: string; Pos: Integer): Char; beginResult := Str[Pos]; end;

When you want to be sure all content of a directory will be deleted, you have to use a recursive procedure to delete every file into a folder before delete the folder itself.Code below: procedure ForceDeleteDirContent(dir: string); var i: integer; sDirectory: string; sr: TSearchRec; beginsDirectory := IncludeTrailingPathDelimiter( dir ); i := FindFirst( sDirectory+’*.*’,faAnyFile,sr ); while [...]