InternetOpenURL при скачке с ftp возвращает nil
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);
В чем проблема ?