Class TZipField (unit ZipField) |
TBlobField
compressed graphic bitmap database field use the zlib library. register this unit in your component package and after this use the Database Field Editor to define your Blob as TZipField. This unit use the ZLIB unit came with Delphi 3.0, I added a zlib.dcu I've compiled for Delphi 2.0 in this archive ! Don't use ZLIB.DCU with Delphi 3 ! Compile the lib your own from \BORLAND\EXTRAS\ZLIB !!!! - Mfg Stefc - stefc@compuserve.com http://www.fabula.com Example for post a compressed bitmap into the table : var aInput,aOutput: TStream; begin Table1.Append; aOutput :=TBlobStream.Create(Table1Bitmap, bmReadWrite); try aInput := TMemoryStream.Create; try aBmp.SaveToStream(aInput); aInput.Position:=0; Table1Bild.Compress(aInput,aOutput); finally aInput.Free; end; finally aOutput.Free; end; Table1.Post; end;
Constructors |
Functions |
Properties |
Events |
Variables |
Constructors |
Functions |
TZipField
Properties |
Events |
Variables |