RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

delphi 实现数据库读取图片文件

作者:admin 来源: 日期:2013/3/21 20:31:05 人气: 标签:

procedure TForm1.Button1Click(Sender: TObject);
// 插入图片过程
var Stream:TMemoryStream;
 Img: TImage;
begin
try Img := TImage.Create(nil);
Stream := TMemoryStream.Create; // 创建内存流
Img.Picture.LoadFromFile(FileName);
 Img.Picture.Graphic.SaveToStream(Stream); // Image1.Picture.Graphic.SaveToStream(Stream); // 将图片保存到内存流中
adoquery1.Close; adoquery1.SQL.Clear;
adoQuery1.SQL.Add('Insert into tbltemp (Image) values (:photo)'); // 进行插入操作
adoQuery1.Parameters.ParamByName('photo').LoadFromStream(Stream,ftBlob); // 读取保存的内存图
adoquery1.ExecSQL;
 finally Stream.Free; // 释放内存流
end;
end;
procedure TForm1.Button2Click(Sender: TObject); //读取图片过程
var Stream:TMemoryStream;
Jpg:TjpegImage;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM tbltemp'; // 查询图片
ADOQuery1.Open;
if not ADOQuery1.FieldByName('Image').IsNull then
begin
Stream:=TMemoryStream.Create ;
Jpg:=TjpegImage.Create ;
TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(Stream); // 显示的转换为BlobField并保存到内存流
Stream.Position :=0;
jpg.LoadFromStream(Stream); // 加载图片
image2.Picture.Assign(Jpg);
end else
begin
image2.Picture :=nil;
end;
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: