标题:如何用ADO连接存取和查询。JPG文件
只看楼主
zmh88111zmh
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2007-11-4
 问题点数:0 回复次数:1 
如何用ADO连接存取和查询。JPG文件
比如员工资料系统中员工与相片的联接。请高手帮忙(最好是有简单例子)
谢谢!
搜索更多相关主题的帖子: ADO JPG 文件 存取 员工 
2007-12-12 22:32
xiaxia421
Rank: 1
等 级:新手上路
帖 子:129
专家分:0
注 册:2005-10-15
得分:0 
用流的方式保存图片到数据库
1、保存图片
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
  with MyJPEG do
  begin
   Assign(Image.Picture.Graphic);
   MS:=TMemoryStream.create;
   SaveToStream(MS);
   MS.Position:=0;
   Query1.Edit;
   BlobField(Query1.FieldbyName('Image')).LoadFromStream(MS);
   Query1.Post;
  end;
 finally
  MyJPEG.Free;
 end;
end;

2、查看图片
procedure TForm1.Button1Click(Sender: TObject);
var tempstream:TStringStream;
  tempjpeg:TJPEGImage;
begin
  try
    tempstream:=TStringStream.Create('');
    TBlobField(Query1.FieldByName('Image')).SaveToStream(tempstream);
    tempstream.Position:=0;
    tempjpeg:=TJPEGImage.Create;
    tempjpeg.LoadFromStream(tempstream);
    DBImage1.Picture.Bitmap.Assign(tempjpeg);
 finally
    tempstream.Free;
    tempjpeg.Free;
 end;
end;

[fts=3][M][ftc=#F16C4D]ぃ~~è前方是绝路,希望在转角è~~ぃ[/ft][/M][/ft]
2007-12-13 11:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-192135-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018020 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved