使用stream流把图片存在了数据库中,可是怎么取出来显示在image或...控件上呢??
以下代码出现上述jpeg error #53错误
var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
JPG:=TJPEGImage.Create ;
MS:=TMemoryStream.Create ;
TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(ms);
ms.Position :=0;
JPG.LoadFromStream(ms);
IMage1.Picture.Assign(JPG);
Form2.Image1.Picture.Assign(JPG);
end;
以下代码出现上述jpeg error #53错误
var
JPG:TJPEGImage;
MS:TMemoryStream;
begin
JPG:=TJPEGImage.Create ;
MS:=TMemoryStream.Create ;
TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(ms);
ms.Position :=0;
JPG.LoadFromStream(ms);
IMage1.Picture.Assign(JPG);
Form2.Image1.Picture.Assign(JPG);
end;
解决方案 »
- 如何在toolbar栏显示olecontainer载入的word菜单?activeform不能显示mainmenu区域咋解决word菜单显示?
- 有个服务器端程序一直运行在服务器上,如何接收来自网页的请求,让他执行一些操作呢?
- 求直接打印memo1中的内容的简单打印方法
- 新手:关于TClientSocket. 谢谢!
- Delphi编程驿站感谢各位的支持,散分!
- 有关richedit控件的问题?
- Delphi调试
- 如何格式化字符串2002-4-9 7:12:30
- XE5 Android 里的目录怎么写?
- 如何更好的写dephi程序的登录窗口?
- 请教为什么用TDcomconnection控件开发多层分布应用程序时在客户机中运行客户程序会提示“拒绝访问”???
- 初次接触Delphi,请教大家!
Ms:TStringStream;
Jpg:TJpegImage;
begin
Ms:=TstringStream.Create('');
Jpg:=TJpegImage.Create;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select zp from imageTable');
try
open;
if not Eof then
begin
TBlobField(ADOQuery1.FieldByName('zp')).SaveToStream(Ms);
end;
except
end;
end;
Jpg.LoadFromStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
Image1.Picture.Assign(Jpg);
end;
除非你数据库里没数据或者数据不是图片格式
数据库中的数据类型access库为ole对象
sqlserver库为image