UrlDownloadToFile这个函数怎么用呢？-CSDN论坛

UrlDownloadToFile这个函数怎么用呢？

Delphi > Windows SDK/API

收藏回复

[问题点数：20分，结帖人godc2c]

⋅IPersistStreamInit 不能应用于框架集 ⋅如何跨进程获取控件的名称呢？ ⋅vk_atl 需要uses什么单元文件啊？ 更多帖子 关注私信空间博客 godc2c 等级 本版专家分：0 结帖率 94.74%: 我在网上找到有关这个函数的使用方法。但是我不明白以下加粗的语句是什么意思。

Delphi 版本：　　
uses UrlMon; 　　
function DownloadFile(SourceFile, DestFile: string): Boolean; 　
begin 　　try 　　
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 　
//这句怎样理解啊？为什么前面是:= 后面是=0呢？　
except 　　
Result := False; 　　
end; 　　
end; 　
　
函数调用：　　
if DownloadFile(url, DestFile) then 　　
begin 　　
ShowMessage('保存成功！'); 　　
end 　　else 　　
begin 　　
ShowMessage('保存不成功！'); 　　
end;

2010-08-24 15:18:45

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅升3星，散300分!!! ⋅[程序員健康篇]程序員如何緩解壓力，保持心理健康！ ⋅秀秀我的婚紗照......順便散分! 更多帖子 关注私信空间博客 kye_jufei 等级 本版专家分：36224 勋章 红花 2010年9月 Delphi大版内专家分月排行榜第一 2010年8月 Delphi大版内专家分月排行榜第一 黄花 2011年2月 Delphi大版内专家分月排行榜第二 2011年1月 Delphi大版内专家分月排行榜第二 2010年12月 Delphi大版内专家分月排行榜第二 2010年11月 Delphi大版内专家分月排行榜第二 2010年10月 Delphi大版内专家分月排行榜第二 蓝花 2011年3月 Delphi大版内专家分月排行榜第三 2010年7月 Delphi大版内专家分月排行榜第三

uses UrlMon; 



begin 



try 



Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; 



except 



Result := False; 



end; 



end; 



begin 



try 



Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 



except 



Result := False; 



end; 



end; 



const 



// URL Location 



SourceFile := 



// Where to save the file 



DestFile := 



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; 

加入如下代碼： 

NMHTTP1.InputFileMode := ture; 



NMHTTP1.Body := '本地檔案名'; 



NMHTTP1.Header := 'Head.txt'; 



NMHTTP1.OutputFileMode := FALSE; 



NMHTTP1.ReportLevel := Status_Basic; 



NMHTTP1.Proxy := '代理伺服器的IP位址'; 



NMHTTP1.ProxyPort := '代理伺服器的埠號'; 



With NMHTTP1.HeaderInfo do 

Begin 



Cookie := ''; 



LocalMailAddress := ''; 



LocalProgram := ''; 



Referer := ''; 



UserID := '用戶名稱'; 



Password := '用戶口令'; 



End; 

試試吧，Delphi的目錄中有TNMHTTP控制項的例子。NT4+,Win95+,IE3+,你可以用URL Moniker的功能。 

uses URLMon; ... 

OleCheck(URLDownloadToFile(nil,'URL','Filename',0,nil)); 



beginio 



DownLoadFile:=TFileStream.Create('c:\aa.rar',fmCreate); 



DownLoadFile.Free; 



end;

//---------------------------

2010-08-24 15:38:57

点赞只看TA 引用举报 #1得分 5

⋅升3星，散300分!!! ⋅[程序員健康篇]程序員如何緩解壓力，保持心理健康！ ⋅秀秀我的婚紗照......順便散分! 更多帖子 关注私信空间博客 kye_jufei 等级 本版专家分：36224 勋章 红花 2010年9月 Delphi大版内专家分月排行榜第一 2010年8月 Delphi大版内专家分月排行榜第一 黄花 2011年2月 Delphi大版内专家分月排行榜第二 2011年1月 Delphi大版内专家分月排行榜第二 2010年12月 Delphi大版内专家分月排行榜第二 2010年11月 Delphi大版内专家分月排行榜第二 2010年10月 Delphi大版内专家分月排行榜第二 蓝花 2011年3月 Delphi大版内专家分月排行榜第三 2010年7月 Delphi大版内专家分月排行榜第三: 用法：

URLDownloadToFile有五個參數:

第一個參數是僅當調用者是一個ActiveX物件才使用,一般為NULL.

第二個參數就是要下載檔案的目標URL,完整路徑.

第三個是本地保存路徑,也是完整路徑

第四個是保留,必須為0

第五個是指向一個IBindStatusCallback介面的指標,這就類似一種回檔機制,你可以參考這些來活動當前下載進度,選擇是否繼續下載等等.

2010-08-24 15:39:26

点赞只看TA 引用举报 #2得分 5

⋅没事干，还不给放假，一定要熬到除夕，怎么破！

⋅有种你就进来！

⋅嗯

更多帖子

关注私信空间博客

Frank.WU

等级

本版专家分：14999

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！: Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 　
//这句怎样理解啊？为什么前面是:= 后面是=0呢？
-----------------
额。。这样写你能不能理解？
if UrlDownloadToFile(...) = 0 then
Result := True

2010-08-29 19:46:46

点赞只看TA 引用举报 #3得分 5

⋅很奇怪：安卓4运行的服务很正常，安卓5和6服务运行以后就自动退出了 ⋅请教阿帕奇的日志问题 ⋅请教一个重要问题：云主机恶意下载是不是会把带宽都占了？ 更多帖子 关注私信空间博客 learning8899 等级 本版专家分：707: 接宝地问一下UrlDownloadToFile能否实现进度条显示？

2010-09-26 21:21:54

点赞只看TA 引用举报 #4得分 0

⋅如何捕获桌面更新的消息 ⋅请教控件内建滚动条的问题！ ⋅DLL中使用TWebBrowser时死锁的问题 更多帖子 关注私信空间博客 JPEXE 等级 本版专家分：8800: 引用 4 楼 learning8899 的回复:
接宝地问一下UrlDownloadToFile能否实现进度条显示？

这是API，当然应该看MSDN，http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx

2010-09-27 09:31:39

点赞只看TA 引用举报 #5得分 5

收起

收藏回复

godc2c

等级：

关注私信 TA的帖子

Linux初学者最常遇到的五个问题: 随着Ubuntu 10.10的到来，为你的业务试用Linux的理由列表又变长了一些。此款自由与免费的操作系统现在变得空前用户友好，而又提供了其竞争对手所不具备的安全性等其他优势。

Java第一章常见问题及其初学者常见问题详细总结: 第一部分：Java初学者常见的问题一、总结-1 由于文件类型导致java文件无法运行工具–>文件夹选项–>查看–>取消隐藏已知文件类型的扩展名选项 1个源文件不能有2个以上puclic类型的类 3.编译运行时...

初学者学习大数据的8个常见问题: 1.WEBUI页面打不开怎么办？ systemctl status firewalld 查看防火墙 systemctl stop firewalld 查看防火墙 systemctl disable firewalld 查看防火墙 ...2.链接拒绝（Connection refused）的错误？...

初学者学Java常遇到的问题，我都给你回答了！: 前言只有光头才能变强。 ... ...我是一个Java的初学者，大概学了四天，对Java到底能做什么还是一头雾水，每天对着黑屏（DOS系统）除了编译还是编译，那么Java对于一个初学者来说Java可以做些什...

LabVIEW初学者常见问题以及解答(下）: 文转自VI之家论坛 [url]http://www.vihome.com.cn/bbs[/url] 1、如何用LV与可编程...A：可以通过LV的串口通信来解决仪器控制问题，参看FIND EXAMPLE的BASIC 2 PORT SERIAL WRITE AND READ.VI 2、如何将EVENTST...

[原创]汇编初学者问题合集: 几个简单的汇编初学者问题总结 0 关于指令时间的问题上次有兄弟问关于指令时间的问题，答复查看 intel 手册是一个办法。但很多人没有那个东东吧！，所以可以用另一招，在编译时加入 /Sc 选项：ML /Fl /Sc Kinds...

致 Python 初学者: 欢迎来到“Python进阶”专栏！来到这里的每一位同学，应该大致上学习了很多 Python 的基础知识，正在努力...开办这个专栏，正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你

Java初学者的30个常见问题: 本文回答了30个JAVA入门级初学者的常见问题。我可以用%除以一个小数吗？ a += b 和 a = a + b 的效果有区别吗？声明一个数组为什么需要花费大量时间？为什么JAVA库不用随机pivot方式的快速排序？

汇编初学者问题，求解答: 在汇编中如何实现判断输入内容格式是否为数字a，比如1a，2a，20a等。本人初学者，求帮助，万分感谢！提供个思路也行～

每个java初学者都应该搞懂的问题！: 如果你认为自己已经超越初学者了，却不很懂这些问题，请将你自己重归初学者行列。内容均来自于CSDN的经典老贴。问题一：我声明了什么！String s = "Hello world!";许多人都做过这样的事情，但是，我们到底声明了什么...

c#的一个问题我是初学者: 各位大神，因为电脑没网，就用手机问一下问题，我新建一个c#项目后，又重新建了一个useretrun的cs文件，为什么调试的时候是原来cs文件的结果，一个项目只能有一个''Main入口吗？

汇编初学者问题，求解答（内联汇编）: 在c语言内联汇编中如何实现判断输入内容格式是否为数字a，比如1a，2a，20a等。本人初学者，求帮助，万分感谢！提供个思路也行～

Vue初学者问题：webstorm里js报错: ``` <h1>{{msg}} export default { ...我初学Vue，不懂，我的IDE是webstorm，配置支持了ES6的。 ![图片说明](https://img-ask.csdn.net/upload/201810/05/1538708959_868947.png)

一个牛人给JAVA初学者的建议: 给初学者之一：浅谈java及应用学java不知不觉也已经三年了从不知java为何物到现在一个小小的j2ee项目经理虽说不上此道高手，大概也算有点斤两了吧每次上网，泡bbs逛论坛，没少去java相关的版面 ...

Java初学者学习Java时通常会遇到的五大问题: Java初学者学习Java,首先要入门，要喜欢Java才能学好Java，Java学习初期通常会遇到很多问题，下面请千锋Java老师为大家讲解下吧。　问题一：能看懂，不会写这或许是很多初学者会遇到的问题。就是看视频或者听课的...

java初学者最关心的五个问题: 很多人学习Java不知道从什么地方学起，今天给大家聊一下初学者怎么系统并且有效率的学习Java 废话不多说直接说干货，首先我们要明白一点，你目前的身份是什么，如果是学生，就用学生的学习方式，如果是你想转行的...

软件测试开发技术Java初学者需要了解的几个基础问题: 关于软件测试开发技术Java初学者需要了解的几个基础问题 Java开发关键字：对于这个系列里的问题，每个学Java的人都应该搞懂。当然，如果只是学Java玩玩就无所谓了。如果你认为自己已经超越初学者了，却不很懂...

如何拥有一个初学者的心态: 初学者看待问题的角度多种多样，但专家的看待问题的角度少之又少。”—— 禅宗大师 Shunryo Suzuki 不要迷惑于表象而要洞察事务的本质，初学者的心态是行动派的禅宗。所谓初学者的心态是指，不要无端猜测、不要...

关于初学者用哪种C/C++编译器（集成开发环境）的问题: 【原创】关于初学者用哪种C/C++编辑器（集成开发环境）的问题经过了几年的经历，使用过包括VC++6.0、VS2010旗舰版、VS2013旗舰版、Code::Blocks 16.01、Dev-C++等编译器（集成开发环境）之后，个人感觉如果单单只是...

C语言学习—给学习C语言初学者的建议: 笔者从事C语言教学十多年的经验来看，有以下一些建议可供C语言初学者参考与借鉴。（1）保持好奇心这是一个现实的问题，如果你是非计算机专业的大学生，大部分人对C语言是恐惧的，因为（挂科率高）你懂得……。...

android初学者常见的问题: “unable to get system library for the project”，一般导入的android源码例子都会在gen目录下出现这个提示，而新建的就不会出现这种情况，那是因为在import一个项目的时候，没有指定android SDK的版本，所以导致...

适合C++初学者的几个开发工具: 好多人开始学编程，总是找不到称手的开发工具，为此，遭受过同样境地的我为大家介绍几个常用软件，...另外Notepad是一款编辑器，适用于java初学者写代码（Eclipse安装使用比较复杂，初学者不适用）。附件中提供了这

java初学者练习题(1): 初学者在学习过程中要多敲代码,同时也要捋清楚逻辑,这里给大家分享一些练习,希望对大家有帮助,有问题的欢迎大家留言!!! 1、输入两个数，输出其中较小的数。（**） 2、输入三个数，输出其中最大和最小的数。（***）...

Python初学者应该选择哪个版本: 2014年，Python的创始人宣布将Python2.7支持时间延长到2020年，那么初学者应该选择什么版本呢？目前建议初学者选择Python3.x版本1、目前，使用Python3.x是大势所趋2、Python3.x在Python2.x的...

FPGA芯片选型（FPGA初学者的选择）: 版权声明：本文为博主原创文章，未经博主允许不得转载。...初学者在学习FPGA的时候，要解决的首要的问题是对数字电路技术基础知识的掌握，然后就是对硬件描述语言的掌握（veirlog或者VHDL）。至于FPG...

DSP献给初学者: 6000了，初学者不必将DSP分出三六九等，各个系列没有明显的优劣，但有明确的应用领域，2000偏接口控制，5000偏语音，6000适合做大数据量信号处理，比如图像、雷达等等。初学者最好有个开发板，不然无异于纸上谈兵...

送给python初学者在简单编程练习题中的小技巧: 一些python的初学者，尤其是由别的语言入门的，比如c语言，在面对python学习时，在一些编程思路上的思维还没有转变好，下面是一些适用于初学者用python进行一些简单编程练习题的小技巧输入由空格分隔的一行...

对于初学者如何选择开发板: 自己做嵌入式已经好几年了，遇到过很多的初学者，也帮助边初学者回答过各种千奇百怪的问题，自己感觉有很多时候，初学者的问题都是可笑的，可是回头想一想自己的路，也是从这些可笑的问题走过来的。很多的大学生在...

给 python 初学者的四条忠告: 学习一种编程语言，首先要找一款合用的集成开发工具，似乎是自然而然的想法。为什么不呢？IDE可以自动补齐，可以一键运行，还可以断点调试。使用IDE开发项目，就像驾驶一辆内饰豪华的汽车，尽情享受驾驶的乐趣就好了...

初学者学习编程，如何训练自己的编程思维，资深程序员这样建议: 近给大家讲了一堂关于初学者如何从零基础到就业正确的学习步骤，在课堂中我提过两点困难是初学者最大的问题，其中一个问题就是学了后面忘了前面的问题，还有一个最重要的问题就是编程思维。今天主要给大家讲一下初学...

相关热词 c#线程阻塞的方法 c#获取文件所在路径 c#mysql添加删除 c# 分段处理大文件 c#list 头加元素 c# sso开源框 c#dataset增加列 c# 二进制截断字符串 c#里氏转换原则 c# 主界面