5,386
社区成员
发帖
与我相关
我的任务
分享
var
msmem: Tstringstream;
jpsg: Tjpegimage;
begin
msmem := Tstringstream.Create('');
jpsg := Tjpegimage.Create;
TBlobfield(map_query.FieldByName('image')).SaveToStream(msmem);
msmem.Position := 0;
jpsg.LoadFromStream(msmem);
image1.Picture.Assign(jpsg);
msmem.Free;
jpsg.Free;
end;