[code lang=”delphi”]PEGStream : TBLOBStream;
JPEGImage : TJPEGImage;
JPegImage := TJPEGImage.Create;
JPEGStream :=
TBLOBStream.Create(TBLOBField(Table1.FieldByName(‘JPGImage’)),bmRead);
JPegImage.Loadfromstream(JPEGSTREAM);
JPegStream.Free
[/code]
[tags]Delphi, Database[/tags]
0 Kommentare zu “JPEG: Read/write JPEG from/to Database”