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

琅拿度发布于 2022-10-05 19:48， 1357 次点击

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

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

比如把互联网一个图片保存到本地，应该怎么操作：https://bbs.

7 回复

nbwww2022-10-05 20:05

回复楼主琅拿度

程序代码：

Url = "https://bbs./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

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

Url = "https://bbs.
Html = Createobject("MicroSoft.XmlHttp")
Html.Open([Get],Url,.F.)
Html.Send
= StrToFile(Html.ResponseBody,"e:\test.jpg")

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

hu9jj2022-10-06 08:57

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

aqyejun2022-10-08 08:09

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

程序代码：

Set Library To myFll

If DownFile("https://bbs./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编辑过]

sam_jiang2022-10-08 08:16

回复 3楼琅拿度

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

琅拿度2022-10-08 08:51

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

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

If DownFile("https://bbs.,"d:\test.jpg")
)
MessageBox("下载图片成功！")
Else
MessageBox("下载失败")
EndIf
Set Library To

感谢提供第二选择

my23182022-10-08 18:10

哈哈，这方法不错，今天写了个循环，批量下载图片很好用