0
procedure TForm1.loadPic;
var
jpeg: TJPEGImage;
Stream: TMemoryStream;
BlobField: TBlobField;
begin
BlobField := table1.DataSet. FieldByName('Bild') as TBlobField;
jpeg := TJPEGImage. Create;
try
if (Image1.Picture. Graphic is TJPegImage) then begin
jpeg. Assign (ImageFoto. Picture.Bitmap);
end;
Stream := TMemoryStream. Create;
try
jpeg. SaveToStream (Stream);
DataSourceForm. DataSet.Edit;
BlobField. LoadFromStream (Stream);
finally
Stream. Free;
end;
finally
jpeg. Free;
end;
end;
Veritabanındaki jpeg'i TImage'a alma
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
MS: TMemoryStream;
J1: TJPEGImage;
begin
J1 := TJPEGImage. Create;
MS := TMemoryStream. Create;
try
TBlobField(DataSet. Fieldbyname('myBlob')).SaveToStream(MS);
MS.Seek(0,soFromBeginning);
with J1 do begin
PixelFormat := jf24Bit;
Scale := jsFullSize;
Grayscale := False;
Performance := jpBestQuality;
ProgressiveDisplay := True;
ProgressiveEncoding := True;
LoadFromStream(MS);
end;
if MS.Size >0 then
Image1.Picture. Assign(J1)
else
Image1.Picture. Assign(nil);
finally
J1.Free;
MS.Free;
end;
end;
