(转载)delphi 把图片存入数据库
delphi 把图片存入数据库
procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程
var
Stream:TMemoryStream;
begin
try
Stream := TMemoryStream.Create; // 创建内存流
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;
最新文章
- 管理者与下属谈话的技巧及注意点[持续更新ing]
- [ASP.NET MVC 小牛之路]14 - Unobtrusive Ajax
- Git Pro - (1) 基础
- 在VS2010配置MPI--win7下64位系统
- 20145337 《Java程序设计》第二周学习总结
- truncate有外键约束的表,报ORA-02266处理。
- ios学习总结(2) -- UIButton的使用
- Things about single men that women hate
- 也用 Log4Net 之走进Log4Net (四)
- Bugs及解决方案列表
- ffprobe使用具体解释
- IE8一枝独秀的JS兼容BUG
- ModelMap和ModelAndView(转)
- 【转】JDBC学习笔记(10)——调用函数&;存储过程
- 【CSS 第六天】三种简历
- POJ--3974 Palindrome(回文串,hash)
- MongoDB 3.6.9 集群搭建 - 切片+副本集
- js中子页面父页面方法 变量相互调用(转)
- uva 1232
- <;四则运算>;第二次冲刺