var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
MyJPEG:=TJPEGImage.Create;
ADOQuery1.Requery;
try
TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
Image2.Picture.Bitmap.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
MyJPEG:=TJPEGImage.Create;
ADOQuery1.Requery;
try
TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
Image2.Picture.Bitmap.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;
解决方案 »
- 关于MIDAS 三层的问题。
- 新人请教 TTreeView
- 放分...
- 请教一下,try finally可以嵌套吗?
- 如何在整个程序中设置通用的输入法
- 伙计做的动网论坛邮件地址收集工具,大家看有什么好的建议?
- 如何用查询语句查出‘出生日期’在月份的时间段内?(如出生在3—8月的人员)
- 高分求助!如何控制一个文件夹里的文件的排列顺序?例如:让文件按时间或名字排列?谢谢
- 难道没有人知道吗,怎样越过代理服务器实现上QQ的功能?
- one or more lines too long and have been truncated如何解决
- APRO通信组建能从哪里下载?
- 请高手救急!!关于TQuery控件的
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MS:=TMemoryStream.Create;
MyJPEG:=TJPEGImage.Create;
ADOQuery1.Requery;
try
TBlobField(ADOQuery1.FieldByName('image')).SaveToStream(MS);
MS.Position:=0;
MyJPEG.LoadFromStream(MS);
Image2.Picture.Assign(MyJPEG);
finally
MS.Free;
MyJPEG.Free;
end;
end;