Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

InternetOpenURL при скачке с ftp возвращает nil

63K
08 октября 2010 года
Kamerton
1 / / 08.10.2010
Качаю через http все нормально. При скачке с ftp
InternetOpenURL возвращает nil

Код:
AssignFile(fileURL, FileName);
ReWrite(fileURL, 1);

//открываем сессию
hInet := InternetOpen('TI_test',
PRE_CONFIG_INTERNET_ACCESS,
nil,
nil,
0);
//hURL:=InternetConnect(hInet, PChar(sURL),
// 21,nil,nil, INTERNET_SERVICE_FTP, 0, 0);
hURL := InternetOpenURL(hInet,
PChar(sURL),
nil, // pchar(Header),
0, // Length(Header),
0,
0);
//устанавливаем позицию в файле для скачки
InternetSetFilePointer(hURL,
StartPos,
nil,
0,
0);
repeat
//читаем в буфер
InternetReadFile(hURL, @fBuf, SizeOf(fBuf), ReadLength);
//смотрим ск-ко осталось докачать
//InternetQueryDataAvailable(hURL, fSize, 0, 0);
BlockWrite(fileURL, fBuf, ReadLength); //<-пишем в файл
until ReadLength = 0;
//stop := false;
InternetCloseHandle(hURL); // закрываем
InternetCloseHandle(hInet); // сесcии
CloseFile(fileURL);

В чем проблема ?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог