delphi 从数据中读写图片数据

最新推荐文章于 2023-05-16 17:18:22 发布

原创最新推荐文章于 2023-05-16 17:18:22 发布 · 691 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #image

本文介绍使用Delphi实现从数据库加载和保存JPEG图片的方法。通过TJPEGImage组件读取和写入图像，并利用TMemoryStream进行内存操作，确保图片能正确地存储到数据库的Blob字段中，并能在需要时准确还原。

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

procedure TForm1.Button1Click(Sender: TObject); var Op: TOpenDialog; jpg:TJPEGImage; msmem:TmemoryStream; begin Op:= TOpenDialog.Create(Self); jpg:=TJPEGImage.Create; msmem:= TmemoryStream.Create; Op.Filter:= '图像文件|*.jpg'; if Op.Execute then begin Image1.Picture.LoadFromFile(Op.FileName); jpg.LoadFromFile(Op.FileName); jpg.SaveToStream(msmem); ADOTable1.Insert; TBlobField(ADOTable1.FieldByName('image')).LoadFromStream(msmem); ADOTable1.Post; end; end; procedure TForm1.Button2Click(Sender: TObject); var jpg:TJPEGImage; ms:TMemoryStream; begin jpg:=TJPEGImage.Create; ms:=TMemoryStream.Create; TBlobField(ADOTable1.FieldByName('image')).SaveToStream(ms); ms.Position :=0; // 将MS的指针置0,否则出现JPEG ERROR #42的错误 jpg.LoadFromStream(ms); Image1.Picture.Assign(jpg); end;