delphi 把图片存入数据库

最新推荐文章于 2024-11-15 12:34:55 发布

原创最新推荐文章于 2024-11-15 12:34:55 发布 · 3.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #stream #image #insert #数据库

技术文章专栏收录该内容

3 篇文章

订阅专栏

本文介绍使用Delphi实现图片的存储与读取过程。通过TMemoryStream将图片转化为二进制流，再利用ADOQuery组件将其存储到数据库的Blob字段。读取时，从数据库获取二进制流并还原成图片。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;