FtpGetFile. Ошибка 12018

[Stilet]

Всем доброго. Подскажите отчего этот код:

var  hSession,hConnect : hinternet;  Error:String;
begin
  SetLastError(0);
  hSession := internetopen('My',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  if hSession<>nil then begin
    hConnect := internetconnect(hSession,
             '192.168.0.3'
             ,21
             ,'login'
             ,'pass',
             INTERNET_SERVICE_FTP or INTERNET_FLAG_TRANSFER_BINARY ,0,0);
    if hConnect<>nil then begin
      Error:='';
      SetLastError(0);
      if not FtpGetFile(hConnect
               ,'c:\1.sql'
               ,'d:\1\1.sql'
               ,false
               ,FILE_ATTRIBUTE_NORMAL
               ,FTP_TRANSFER_TYPE_BINARY or INTERNET_FLAG_RELOAD,0
       ) then       Error:='FtpGetFile: ('+IntToStr(GetLastOSError)+') '+SysErrorMessage(GetLastOSError);
    end  else begin Error:='internetconnect: '+SysErrorMessage(GetLastOSError);  end;
  end else begin Error:='internetopen: '+SysErrorMessage(GetLastOSError);  end;
Caption:=Error;
end;

может выдавать на вызове FtpGetFile ошибку ERROR_INTERNET_INCORRECT_HANDLE_TYP E
Если не сложно проверьте у себя код.
Заранее спасибо.

[vadimych]

В InternetConnect предпоследним параметром передайте INTERNET_FLAG_PASSIVE. И INTERNET_FLAG_RELOAD вероятно ни к чему.

[Аватар]

INTERNET_SERVICE_FTP or INTERNET_FLAG_TRANSFER_BINARY //1 or 2

равносильно

INTERNET_SERVICE_FTP or INTERNET_SERVICE_GOPHER //1 or 2

зачем? В результате будет

INTERNET_SERVICE_HTTP //3

[Stilet]

Ага, спасибо. Действительно не подумал.

[Аватар]

А этот красавец GetLastOSError самопальный? Не нашел в D7

[Stilet]

Не удивительно. Я на Лазарусе пишу