Class TZipField (unit ZipField)

Inherits from

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

procedure Assign(Source: TPersistent);

TZipField

procedure Compress(aInput,aOutput: TStream);


procedure Decompress(aInput,aOutput: TStream);


procedure AssignTo(Dest: TPersistent);


procedure LoadFromBitmap(Bitmap: TBitmap);


procedure SaveToBitmap(Bitmap: TBitmap);


Properties

Events

Variables


Constructors


Functions


procedure Assign(Source: TPersistent);

TZipField


procedure Compress(aInput,aOutput: TStream);


procedure Decompress(aInput,aOutput: TStream);


procedure AssignTo(Dest: TPersistent);


procedure LoadFromBitmap(Bitmap: TBitmap);


procedure SaveToBitmap(Bitmap: TBitmap);


Properties


Events


Variables