Скачать файл из нета :-)

[Rain]

Здравствуйте, All!

Подскажите, пожалуйста, какое-нибудь мощное средство для скачивания файлов из нета под FreePascal.

С ув., Алексей

[ev]

можно пойти прямым путем - использование сокетов, либо походящих библиотек (synspse, indy)
и можно через командную строку (в виндах ftp, в юниксе fetch)

[cds]

Тоже нужно. Киньте плиз пример скачивания файла из интернета при помощи сокетов.

[ev]

так какой источник - http или ftp?

[neutrino]

так какой источник - http или ftp?

Очень интересует пример для http.

[ev]

эх... нут под рукой лазаря
вот небольшой примерчик на пхп, думаю логика понятна и сделать на FPC не составит труда

Код: Выделить всё

if (($sk=@fsockopen('freepascal.ru',80,$errno,$errstr,5))==true) {
    fputs($sk,"GET /index.html HTTP/1.0\nHOST: freepascal.ru\n\n");
    while (!feof($sk)) $out.=fgets($sk,128);
    fclose($sk);
}


[Rain]

Какой юнит нужно подключить, чтобы исспользовать подобные процедуры, функции для работы с сокетами?..

[ev]

в разделе книги есть Системное программирование в UNIX средствами Free Pascal (Авторы: А.П.Полищук, С.А.Семериков) - там глава 10 полностью посвящена этим вопросам

[cds]

в разделе книги есть Системное программирование в UNIX средствами Free Pascal (Авторы: А.П.Полищук, С.А.Семериков) - там глава 10 полностью посвящена этим вопросам

Понятно, просто требовался код который сможет скачать файл из интеа как в windows так и в linux.

[Rain]

в разделе книги есть Системное программирование в UNIX средствами Free Pascal (Авторы: А.П.Полищук, С.А.Семериков) - там глава 10 полностью посвящена этим вопросам

Это для UNIX, а есть ли пример для Windows?

[ev]

я пробовал только под UNIX, но библиотека сокетов вроде кросплатформенная

[Rain]

я пробовал только под UNIX, но библиотека сокетов вроде кросплатформенная

Неа, просит юнит linux, а юнит linux будет, наверно, просить еще чего-нибудь, и все это наверняка не собирется под W32. Но самое главное, что есть юнит sockets! Значит, уже исходя из названия можно расчитывать, что программу я допишу под FreePascal. Но, все-таки, есть ли кроссплатфоренная библиотека для FreePascal или хотя бы документация к юниту sockets т.к. он почему-то закрытый...

UPD: Пробовал переписать stdio только под W32, но уж очень там все завязано с юнитом linux.

[cds]

Мне вот что удалось найти http://community.freepascal.org:10000/d ... ts/index-5

[virt]

не знаю по поводу indy ,но synapse кроссплатформенный

[SergKam]

однозначно synapse
есть еще библиотека и заголовки к ней на паскале CURL(libcurl)