delphi 实现数据库读取图片文件
来源:互联网 发布:阿里巴巴天池数据竞赛 编辑:程序博客网 时间:2024/05/18 11:46
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;
// 插入图片过程
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;
- delphi 实现数据库读取图片文件。
- delphi 实现数据库读取图片文件
- DELPHI如何读取数据库中jpeg图片
- delphi读取数据库链接ini文件
- servlet读取数据库图片文件
- php实现将文件写入数据库、从数据库读取文件(防止图片上传漏洞)
- delphi 往数据库中添加图片与读取
- delphi 中操作 图片保存读取access数据库
- delphi实现保存和读取图片的方法
- Delphi利用数据库实现文件打包
- SqlServer数据库实现图片存入与读取
- JSP 实现 之 读取数据库显示图片
- delphi读取ini文件
- Delphi 读取 GIF 文件
- delphi 读取txt文件
- delphi读取xml文件
- delphi读取ini文件
- delphi读取xml文件
- Oracle 10g表空间自动扩容的两种方法
- 在VB6.0中设置ADO控件属性连接Microsoft ACCESS 2007数据库
- DELPHI生成随机字符串
- delphi adoquery的post和UpdateBatch
- Delphi ADOQuery 运用
- delphi 实现数据库读取图片文件
- delphi 关于ACCESS的日期类型字段比较的一点认识
- Delphi sql server 主从表例子
- Delphi中accesss实现树形结构查询系统
- delphi Access中只取时间的日期部分的函数
- Delphi 将JPG图片上传到SqlServer数据库里
- delphi的万能数据库操作
- DELPHI操作ACCESS数据库(两种方式噢)dataset与table
- Access数据库中图像的存储和显示