58问答库 > Picture.LoadFromFile和Picture.Savetofile时怎样用进度显示

Picture.LoadFromFile和Picture.Savetofile时怎样用进度显示

2025-05-20 08:35:34

推荐回答（2个）

回答（1）：

先将数据库中当前数据集的图片字段读取出来转换生成文件，之后在将该文件进行加载即可
例如：
procedure TForm1.Button1Click(Sender: TObject);
var
str:Tmemorystream;
vFileName:String;
begin
str:=Tmemorystream.Create;
str.Position:=0;
Tblobfield(Dataset.FieldByName('TP')).savetostream(str);
vFileName:= 'c:\test.jpg' ;
if FileExists(vFileName) then
DeleteFile(vFileName);
str.SaveToFile(vFileName);
Image1.Picture.LoadFromFile(vFileName);
end;

回答（2）：

这好像不能，但可以看一看DElphi给的源代码。（在Delphi目录下）