BLOBFIELD как BITMAP

Previous  Top  Next

    
 

 

 

 

Сохраняем Bitmap в поле dbase с именем Icon. Icon представляет собой двоичное Blob-поле.

Code:

procedure ....

var IconStream : TMemoryStream;

..

..

begin

 

.

.

IconStream := TMemoryStream.Create;

Image1.picture.icon.savetostream(IconStream);

(Table1.fieldbyname('Icon') as TBlobField).LoadFromStream(IconStream);

Table1.post;

IconStream.Free;

.

.

end;

 

 

 

 

** Читаем Bitmap в Timage из поля dbase с именем Icon.

Code:

procedure .....

var IconStream : TMemoryStream;

..

..

begin

.

.

IconStream := TMemoryStream.Create;

(Table1.fieldbyname('Icon') as TBlobField).SaveToStream(IconStream);

{что бы что-нибудь записать, необходимо установить позицию потока в ноль!}

IconStream.Position := 0;

appointment.iconimage.picture.icon.loadfromstream(iconstream);

IconStream.Free;

end;

 

 

 

Надеюсь это поможет, поскольку найти информацию в справочной системе по этой теме практически невозможно. Чтобы сделать это, я перепробовал множество способов. Я пробовал использовать TBlobField и TBlobStream, но они не смогли мне помочь (может быть из-за убогой документации borland?).

 

©Drkb::02474

       

Взято с http://delphiworld.narod.ru