uses jpeg procedure TForm1.ShowJpegClick(Sender:TObject); var Jp:TJpegImage; begin TBlobField(Table1.FieldByName('jpeg')).SaveToFile(FileName); Jp:=TJpegImage.Create; Jp.LoadFromFile(FileName); Image1.Picture.Assign(Jp); end;
最好用流,不用文件. var MS: TMemoryStream; MS := TMemoryStream.Create; TBlobField(Table.FieldByName(fieldname)).SaveToStream(MS); Image1.Picture.Bitmap.LoadFromStream(MS); MS.Free;
jpeg
procedure TForm1.ShowJpegClick(Sender:TObject);
var
Jp:TJpegImage;
begin
TBlobField(Table1.FieldByName('jpeg')).SaveToFile(FileName);
Jp:=TJpegImage.Create;
Jp.LoadFromFile(FileName);
Image1.Picture.Assign(Jp);
end;
var
MS: TMemoryStream; MS := TMemoryStream.Create;
TBlobField(Table.FieldByName(fieldname)).SaveToStream(MS);
Image1.Picture.Bitmap.LoadFromStream(MS);
MS.Free;