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

[Damn]

Хочу программно скачать файл (не текстовый). Как это сделать?
Функция InternetReadFile() класса WinInet как я понял может работать только с текстовыми файлами. А как же быть если мне надо закачать что-нибудь с расширением dll или exe.

[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 


[Андре]

Хм.... чтобы скачать файл из инета требовать от пользователя наличия msxml.dll слишком жестоко

PHP код:


static void Job3(Args _args)
{
    WinInet  inet = new WinInet();
    int      hdl;
    str      content;
    BinaryIO       _io;
    ;
    hdl = inet.internetOpenUrl('http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/internetopenurl.asp');
    content = inet.internetReadFile(hdl);
    _io = new BinaryIO('c:\\test.file', 'W');
    _io.write(content);
} 


[belugin]

наверное, не получится напрямую использовать это из axapta, т.к. строки в ней не юникодные - придется писать обертку.

можно использовать например, wget.

кстати у flashget тоже есть COM интерфейс

[Андре]

Прошу прощения, обшибся - при сохранении нетекстовых файлов действительно добавляется какая-то служебная информация.
Попробую разобраться.

[simply2double]

[QUOTE]Изначально опубликовано Андре
[B]Хм.... чтобы скачать файл из инета требовать от пользователя наличия msxml.dll слишком жестоко
[PHP]


Уважаемый... посмотрите на любой комп... на котором крутится винда... и есть IE ... и вы будете приятно удивлены... там уже есть пресловутый файл msxml.dll ))) мало того сом компонент, чем он собственно говоря и является... еще и зарегестрирован в реестре )))

[demID]

Вот работающий код в Аксапте.
Да, и еще нужна msxml2.dll - она по-моему тоже стоит на всех компах, где есть IE 5-й версии.

PHP код:


static void Job2(Args _args)
{
    COM         objXHTTP;
    BinData     b = new BinData();
    ;
    objXHTTP = new COM("MSXML2.XMLHTTP");
    objXHTTP.Open("GET", "http://www.microsoft.com/BusinessSolutions/content/demos/Retaildemos/UIc.html", False);
    objXHTTP.send();

    b.setVariant(objXHTTP.responseBody());
    b.saveFile("c:\\1.html");
} 


[Андре]

Цитата:

Уважаемый... посмотрите на любой комп... на котором крутится винда... и есть IE ... и вы будете приятно удивлены... там уже есть пресловутый файл msxml.dll ))) мало того сом компонент, чем он собственно говоря и является... еще и зарегестрирован в реестре )))

Не, удивлен я не буду. Хотя недавно был случай, когда у одного из посетителей форума эта dll-ка не была зарегистрирована. Вот здесь это было.

Скорее дело в том, что хотелось решить задачу с использованием минимума технологий (COM, XML и т.д.). В идеале с использованием одного WinAPI. Однако покопавшись на форуме, нашел собственное сообщение здесь . Посмотрел WinInet - с тех ничего не поменялось. Так что пожалуй соглашусь с Вами - в данном случае лучше не заморачиваться и пользоваться COM.

[Damn]

Посмотрел ваши ответы только вчера, извещение о присланных сообщениях на мою тему что-то у меня перестало работать.
Спасибо, воспользовался вашим советом, всё заработало.

[krzak]

Isn't it that IE 5.5 is in requirements for Axapta ? Isn't it mentioned in all documents and prerequirements papers ?

PS. Sorry, I can read russian language, but can't write it

[Ace of Database]

IE 5.5 не является обязательным для Аксапты
Но если у Вас нет IE версии 5.5 или более поздней, то для того, чтобы закачать файл из интернета надо использовать не MSXML2.XMLHTTP, а какой-то другой способ.
Какой - я к сожалению не могу подсказать

[Delfins]

winapi + wget !?

PS: kachajet vse, chto ugodno...