Программное скачивание файлов из Internet

[demID]

Вот реально работающий код на Visual Basic for Applications.
Попробуйте переписать это в Аксапте.
Переменная objxHttp будет иметь тип COM.

ПРИМЕЧАНИЕ: на клиентском компьютере должна быть установлена MS XML 2.0 (msxml.dll)

Данный пример загружает содержимое веб страницы http://www.microsoft.com/BusinessSol...demos/UIc.html и сохраняет его в файл C:\\1.html
Работает в том числе с двоичными файлами.

PHP код:


Public Sub GetFileFromServer()
    Dim b() As Byte
    Dim objXHTTP As Object
    
    Set objXHTTP = CreateObject("MSXML2.XMLHTTP")
    
    objXHTTP.Open "GET", "http://www.microsoft.com/BusinessSolutions/content/demos/Retaildemos/UIc.html", False
    
    objXHTTP.send
    
    b = objXHTTP.responseBody
    
    Open "C:\\1.html" For Binary Access Write As #1
        Put #1, , b
   
    Close #1
    
    MsgBox "Ok"
    
End Sub