delphi图片写入SQL数据库

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

wangpeng2011314

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

阅读量3.4k

点赞数

CC 4.0 BY-SA版权

分类专栏：代码 DELPHI 文章标签： delphi sql stream image insert 数据库

本文链接：https://blog.youkuaiyun.com/wangpeng2011314/article/details/6665138

26 篇文章

订阅专栏

20 篇文章

订阅专栏

本文介绍了一个Delphi应用程序中用于插入和读取图片的过程，包括使用内存流来保存和加载图片数据。

摘要生成于 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;