VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, [4], 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 06:41:54 04/01/03 Tue
Author: Michel
Subject: Re: Image saving into Blob
In reply to: Eric Kundl 's message, "Re: Image saving into Blob" on 17:34:19 03/31/03 Mon


Hi Erick,

Yes, your code is straight forward. Just make sure you also free the blob stream, BS.

Best regards,

Michel

>Michel,
>this seems to be working OK.. is this the proper way
>to write and read a .PNG format file to a Table
>without actually saving the file to disc first?
>
>procedure TForm1.WriteBlob;
>var
> BlobField: TField;
> BS: TStream;
>begin
> BlobField :=
>tbSnipPictures.FieldByName('SnipImage');
> BS :=
>tbSnipPictures.CreateBlobStream(BlobField,bmWrite);
> Image1.Picture.Graphic.SaveToStream(BS);
>end;
>
>procedure TForm1.ReadBlob;
>var
> BlobField: TField;
> BS: TStream;
> PngGraphic : TPngGraphic;
>begin
> BlobField :=
>tbSnipPictures.FieldByName('SnipImage');
> BS :=
>tbSnipPictures.CreateBlobStream(BlobField,bmRead);
> PngGraphic := TPngGraphic.Create;
> try
> PngGraphic.SingleLoadFromStream(BS,0);
> Image2.Picture.Graphic := PngGraphic;
> finally
> PngGraphic.Free;
> end;
>end;
>
>
>thanks... erick

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.