将图片文件保存到demoimage.dat并对其进行zlib压缩处理

Question

将图片文件保存到demoimage.dat并对其进行zlib压缩处理
如何用zlib进行压缩或者解压图片文件保存到一个指定文件demoimage.dat
可以根据图片读取相关的图片,图片以文件名为标识,也可以根据需要显示
图片

Answer 1

可以提供，建议加分。其实DAT就是一个数据库，里面也是有字段的。

Answer 2

DAT应该是一个数据库,里面的字段我不知如何设置呀

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  MS:tmemorystream;
begin
    if image1.picture.Graphic <> nil  then
      begin
        MS := tmemorystream.Create ;
        try
            image1.Picture.Graphic.SaveToStream(MS);
            MS.Position :=0;
            adotable1.Edit ;
            tblobfield(adotable1.FieldByName('myimage')).LoadFromStream(MS);
        finally
            MS.Free ;
      end;
    end;
end;

Answer 4

感谢mwy654321的支持,也完善读取打开及保存功能谢谢

Answer 5

demoimage.dat 这个文件不要ACCESS数据库改名的,
这个是个数据库,但不是ACCESS结构的

Answer 6

demoimage.dat 但是这个文件也有相关的索引表和数据包