数据库存取图像

最新推荐文章于 2024-09-14 19:55:29 发布

jxzqsun

最新推荐文章于 2024-09-14 19:55:29 发布

阅读量792

点赞数

分类专栏：抄袭文章标签：数据库 image

抄袭专栏收录该内容

13 篇文章 0 订阅

订阅专栏

procedure TForm1.BitBtn1Click(Sender: TObject);
var
jpeg:TJpegImage;
mem:TmemoryStream;
begin
   mem:=TmemoryStream.Create;
   mem.LoadFromFile("E:/Adobe/Adobe1.jpg");
   ADOQuery1.Insert;
   TBlobField(ADOQuery1.FieldByName("Image")).LoadFromStream(mem);
   ADOQuery1.Post;
   mem.Free;

   ADOQuery1.First;
   jpeg:=TJpegImage.Create;
   TBlobField(ADOQuery1.FieldByName("image")).SaveToFile("E:/aa.jpg");
   jpeg.LoadFromFile("E:/aa.jpg");
   Image1.Picture.Assign(jpeg);
   jpeg.Free;
   deleteFile("E:/aa.jpg");

end;