ftp на Narod.ru

[tigr1991]

Скажите почему у меня не получается слить файл с помощью программы, написанной на Delphi на мой ftp на народе.ру?
ftp://LOGIN:MYPASSWORD@ftp.narod.ru
точнее сказать даже не может подсоединиться.

При том что на фтп друга легко сливается?

[tigr1991]

помогите кто-нибудь

[FAiver]

а на исходники можно глянуть? мы не телепаты)

[zetrix]

program out;   
        
{..$apptype console}  
uses  
  windows,   
  wininet;   
  
var  
 conn_param,inet_open : hinternet;   
  
procedure upload(filename:pchar; ftpfilename:pchar);   
const  
port=21;   
begin  
 inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);   
//Настройки коннекта( фтп, логин, пасс)   
 conn_param := internetconnect(inet_open,'ftp.site.ru',port,'login','pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);   
sleep(100);   
 ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);   
 internetclosehandle(conn_param);   
 internetclosehandle(inet_open) ;   
END;   
  
begin  
//Путь к файлу для загрузки, имя файла на фтп..   
upload('C:\file.zip','/pub/file.zip');   
if True then  
exit;   
end.

ЮЗАЙТе поиск на форуме.