Piotrek Nasiński
piot...@polbox.com
Stream1:= dmKonie.qrKonieE.CreateBlobStream(dmKonie.qrKonieEZDIECIE_M,
bmWrite);
Image1.Picture.Graphic.SaveToStream(Stream1);
Stream1.Free;
--
Pozdrawiam
--------------------------------------
Piotr Such
pi...@aprsystem.com.pl
procedure LoadJPGFromBlob;
var
aJpeg : TJPEGImage;
aStream: TMemoryStream;
begin
try
aJpeg := TJPEGImage.Create;
aStream := TMemoryStream.Create;
tabJDataTheData.SaveToStream(aStream);
aStream.Seek(0,soFromBeginning);
aJpeg.LoadFromStream(aStream);
Image2.Picture.Assign(aJpeg);
finally
aJpeg.Free;
aStream.Free;
end;
end;
Tomek Cwajda
(szaman)