用UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil)下载软件的问题！

netchannel 2005-11-16 12:14:16

用UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil)下载软件，如果SourceFile是一个类似http://www.sohu.com/download.asp?id=1的链接，造成不知道DestFile应该起个什么名字，有什么好方法解决？

...全文

106 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

netchannel 2005-11-17

打赏
举报

netchannel 2005-11-16

打赏
举报

因为所下载的文件类型不一样，需要按照服务器上的源文件类型给新文件命名！

netchannel 2005-11-16

打赏
举报

救命啊

Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; except Result := False; end; 这个函数如果在缓存目录中有文件的话,就不会从新下载网络上的文件.解决得办法是使用api函数...

代码如下： Code 1usesURLMon,ShellApi 2functionDownloadFile(SourceFile,DestFile:string):Boolean; 3begin 4try ...5Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFil...

uses UrlMon; function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False;

function DownloadFile(Source, Dest: string): Boolean; begin try Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; except Result := False; end;end; ...

使用Delphi编写下载文件程序时，一开始还觉得很顺利，使用URLDownload很方便function DownloadFile1(SourceFile, DestFile: string): Boolean;begin try CoInitialize(nil); //这个是发现问题后加上去的 Result ...

Delphi

5,930

社区成员

262,943

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章