使用FoxPro下载文件(HTTP)

Question

今天我被问到有关FoxPro问题的帮助,关于如何通过HTTP下载文件.

我发现了两件事:一件是付费ActiveX,另一件需要libcurl.

有没有办法做到这一点没有任何额外的(VFP 8),像HttpURLConnectionJava一样？例如通过使用Microsoft.XMLHTTP

Answer 1

两个片段工作,不需要额外的文件/ dll/flls /等.

Local loRequest, lcUrl, lcFilename

lcUrl = "http://example.com/foo.zip"
lcFilename = "C:\Temp\PSV.zip"

loRequest = Createobject('MsXml2.XmlHttp')
loRequest.Open("GET",lcUrl,.F.)
loRequest.Send()
StrToFile(loRequest.ResponseBody,lcFilename)

和

lox = CREATEOBJECT("inetctls.inet")
lcSuff = lox.OpenURL("http://whatever.co.uk/suff.htm")
STRTOFILE(lcStuff, "c:\data\myfile.htm")

(取自这里)