意思大概如下。当然方法可能不止我这一种。procedure TForm1.button1onclick(sender:Tobject); begin webbrowser1.Navigate('本地临时图片'); Timer1.Enabled := True; //ADO开始下载图片... //假设你要把文件下载保存为D:\abc.jpg end;procedure TForm1.Timer1OnTimer(sender:TObject); begin if FileExists('D:\abc.jpg') then begin WebBrowser1.Navigate('D:\abc.jpg'); Timer1.Enabled := False; end; end;
begin
webbrowser1.Navigate('本地临时图片');
Timer1.Enabled := True;
//ADO开始下载图片...
//假设你要把文件下载保存为D:\abc.jpg
end;procedure TForm1.Timer1OnTimer(sender:TObject);
begin
if FileExists('D:\abc.jpg') then begin
WebBrowser1.Navigate('D:\abc.jpg');
Timer1.Enabled := False;
end;
end;
不好意思,这个我就不会了,对TWebBrowser不熟悉。你继续等其他人答案吧。