如何将jpg图片按原有格式保存到数据库中

Question

我把jpg保存后就会编程bmp格式，尺寸也会增加。

Answer 1

1。定义一个stream:TStream
2。bmp.SaveToStream(stream)
3。TBlobField(Query1.FieldByName('pic')).Assign(stream)
显示的时候做相反的动作即可。

Answer 2

var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;

Answer 3

如果从文件，一句话
TBlobField(dataset.FieldByName('Img')).LoadFromFile('JpgFileName');