| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1428 人关注过本帖
标题:如何用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
快速回复:如何用ADO连接存取和查询。JPG文件
数据加载中...
 
   



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

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