在程序中下载指定文件，如http://www.abc.com/xyz.zip

hy7soft 2001-10-04 09:18:00

...全文

458 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

hy7soft 2001-10-19

打赏
举报

hy7soft 2001-10-14

打赏
举报

hy7soft 2001-10-08

打赏
举报

我的意思是还有什么办法
谢谢

光明山人 2001-10-08

打赏
举报

sundayboys的办法应该可以吧？

hy7soft 2001-10-06

打赏
举报

hy7soft 2001-10-06

打赏
举报

光明山人 2001-10-04

打赏
举报

请教sundayboys: URLMon, UrlDownloadToFile是Delphi自带的吗？

line 2001-10-04

打赏
举报

加个button,click事件上为:
ShellExecute(handle, ′open′, ′http://http://www.abc.com/xyz.zip
′, nil, nil, SW—SHOWNORMAL);

sundayboys 2001-10-04

打赏
举报

Uses URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
// URL Location
SourceFile = 'http://www.abc.com/xyz.zip';
// Where to save the file
DestFile = 'c:\temp\xyz.zip';
begin
if DownloadFile (SourceFile, DestFile) then
begin
ShowMessage('Download succesful!');
// Show downloaded image in your browser
ShellExecute(Application.Handle,PChar('open'),PChar(DestFile),PChar(''),nil,SW_NORMAL)
end
else
ShowMessage('Error while downloading ' + SourceFile)
end;