VFP怎么把互联网的一个文件下载到本地？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP怎么把互联网的一个文件下载到本地？

标题：VFP怎么把互联网的一个文件下载到本地？

只看楼主

琅拿度

等　级：新手上路
帖　子：148
专家分：5
注　册：2016-4-7
结帖率：84.62%

楼主

已结贴√ 问题点数：20 回复次数：7

VFP怎么把互联网的一个文件下载到本地？

我想做一个小软件，简单地想实现一拖多的功能，就是不同地方的客户端打开这个软件都能更新到最新的数据。

我现在的想法是这样的，买一个域名，就有了互联网上的空间，本地更新数据后，通过FTP什么的软件上传到互联网，这些我应该都能实现，但我不知道怎么把互联网的一个链接指向的文件下载到本地。应该怎么操作？

比如把互联网一个图片保存到本地，应该怎么操作：https://bbs.ibmnb.com/uc_server/data/avatar/000/46/17/31_avatar_middle.jpg

搜索更多相关主题的帖子: 软件　互联网　本地　文件　 VFP　

2022-10-05 19:48

nbwww

等　级：贵宾
威　望：10
帖　子：222
专家分：468
注　册：2021-1-9

第 2 楼

得分:10

回复楼主琅拿度

程序代码：

Url = "https://bbs.ibmnb.com/uc_server/data/avatar/000/46/17/31_avatar_middle.jpg"
Html = Createobject("MicroSoft.XmlHttp")
Html.Open([Get],Url,.F.)
Html.Send
= StrToFile(Html.ResponseBody,"e:\test.jpg")

收到的鲜花

琅拿度于 2022-10-08 08:50 送鲜花 3朵附言：很好

2022-10-05 20:05

琅拿度

等　级：新手上路
帖　子：148
专家分：5
注　册：2016-4-7

第 3 楼

得分:0

以下是引用nbwww在2022-10-5 20:05:02的发言：

Url = "https://bbs.ibmnb.com/uc_server/data/avatar/000/46/17/31_avatar_middle.jpg"
Html = Createobject("MicroSoft.XmlHttp")
Html.Open([Get],Url,.F.)
Html.Send
= StrToFile(Html.ResponseBody,"e:\test.jpg")

很好，亲测有效，如果链接的文件下载不成功，或者不存在的话，返回什么值？怎么判断？

2022-10-05 23:02

hu9jj

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

第 4 楼

得分:0

返回包含“404”的网页代码。

活到老，学到老！ http://www.qs98.com E-mail:hu-jj@21cn.com

2022-10-06 08:57

aqyejun

等　级：论坛游民
威　望：9
帖　子：121
专家分：99
注　册：2010-6-11

第 5 楼

得分:10

也可以应用木瓜的“ MyFll.fll”

程序代码：

Set Library To myFll

If DownFile("https://bbs.ibmnb.com/uc_server/data/avatar/000/46/17/31_avatar_middle.jpg","d:\test.jpg")
)
    MessageBox("下载图片成功！")
Else
    MessageBox("下载失败")
End If 
Set Library To

[此贴子已经被作者于2022-10-8 14:41编辑过]

收到的鲜花

琅拿度于 2022-10-08 08:50 送鲜花 1朵附言：很好

【独叶为舟】工作室

2022-10-08 08:09

sam_jiang

等　级：贵宾
威　望：10
帖　子：542
专家分：781
注　册：2021-10-13

第 6 楼

得分:0

回复 3楼琅拿度

成功返回.t.,失败返回.f.。

2022-10-08 08:16

琅拿度

等　级：新手上路
帖　子：148
专家分：5
注　册：2016-4-7

第 7 楼

得分:0

以下是引用aqyejun在2022-10-8 08:09:05的发言：

也可以应用木瓜的“ MyFll.fll”
Set Library To myFll

If DownFile("https://bbs.ibmnb.com/uc_server/data/avatar/000/46/17/31_avatar_middle.jpg","d:\test.jpg")
)
MessageBox("下载图片成功！")
Else
MessageBox("下载失败")
EndIf
Set Library To

感谢提供第二选择

2022-10-08 08:51

my2318