一下語句執行到Image1.Picture.Bitmap.Assign(Jpg)提示:"JPEG error #41."
var
Mem: TMemoryStream;
Jpg: TJpegImage;
begin
Mem := TMemoryStream.Create;
Jpg := TJpegImage.Create;
TBlobField(SysDM.ADOQryEmpPortrait.Fields[1]).SaveToStream(Mem);
Jpg.LoadFromStream(Mem);
Image1.Picture.Bitmap.Assign(Jpg);
Mem.Free;
Jpg.Free;
end;
var
Mem: TMemoryStream;
Jpg: TJpegImage;
begin
Mem := TMemoryStream.Create;
Jpg := TJpegImage.Create;
TBlobField(SysDM.ADOQryEmpPortrait.Fields[1]).SaveToStream(Mem);
Jpg.LoadFromStream(Mem);
Image1.Picture.Bitmap.Assign(Jpg);
Mem.Free;
Jpg.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货