uses jpegprocedure TForm1.ShowJpegClick(Sender:TObject);
var
AJpeg:TJpegImage;
begin
TBlobField(Table1.FieldByName('jpeg')).SaveToFile('c:\temp.jpg');
AJpeg:=TJpegImage.Create;
AJpeg.LoadFromFile('c:\temp.jpg');
Image1.Picture.Graphic:=AJpeg;
end;
//退出时别忘了删除c;\temp.jpg
var
AJpeg:TJpegImage;
begin
TBlobField(Table1.FieldByName('jpeg')).SaveToFile('c:\temp.jpg');
AJpeg:=TJpegImage.Create;
AJpeg.LoadFromFile('c:\temp.jpg');
Image1.Picture.Graphic:=AJpeg;
end;
//退出时别忘了删除c;\temp.jpg
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货