2,496
社区成员
发帖
与我相关
我的任务
分享如何将图片型数据保存成文件？
我用TBlobField(dataset.fieldby(Name)).savetofile(filename)。保存后不能显示，而且原图应该是18k，保存后变成600多k
...全文
请发表友善的回复…
发表回复
firetoucher 2003-07-16
- 打赏
- 举报
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpg.LoadFromStream(pic);
pjpg.savetofile(filename);
end;
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpg.LoadFromStream(pic);
pjpg.savetofile(filename);
end;
firetoucher 2003-07-16
- 打赏
- 举报
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpg.LoadFromStream(pic);
pjpg.savetofile(filename);
end;
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpg.LoadFromStream(pic);
pjpg.savetofile(filename);
end;
