ошибка коннекта к ФТП...

[velikijmerlin]

Доброго времени суток!
пишу фтп клиентик... искал по форуму вроде бы как бы всё соответствует, но вот беда, когда проходит коннект, то в мне пишет что соединение есть, а сама прога выкидывает ошибку что конект не прошёл...

можете подсказать в чём трабла?

procedure TForm1.sBitBtn1Click(Sender: TObject);
begin

{çàïîëíåíû ëè ïîëÿ}

  if ((sEdit1.Text = '') and
     (sEdit2.Text = '') and
     (sEdit3.Text = ''))
  then begin
  ShowMessage('Ïðîâåðüòå ïðàâèëüíîñòü çàïîëíåíèÿ ôîðì!');
  end
  else begin //åñëè ïîëÿ çàïîëíåíû òî êîíåêòèìñÿ ïî íèì
    IdFTP1.Host:= sEdit1.text;
    IdFTP1.Password:= sEdit2.Text;
    IdFTP1.Port:= StrToInt(sEdit3.text);
    IdFTP1.Username:=sEdit4.Text;
    IdFTP1.Connect(true);
    IdFTP1.Login;
    IdFTP1.ChangeDir(sEdit5.text);
  end;

end;

procedure TForm1.sBitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.IdFTP1Connected(Sender: TObject);
begin

if (true) then
  sMemo1.lines.Add('Ñîåäåíåíèå ñ ' + sEdit1.Text + ' ïðîèçîøëî óñïåøíî')
else begin
  sMemo1.lines.add('Ñîåäåíåíèå ñ ' + sEdit1.Text + ' ðàçîðâàíî! ïðîèçîøëà îøèáêà!');
end;

end;

procedure TForm1.sCheckBox1Click(Sender: TObject);
begin
 if sCheckBox1.Checked = true then begin
    sEdit4.Enabled:=true;
 end
 else begin
    sEdit4.Enabled:=false;
 end;
end;

end.

это мой код...

[BaronTreep]

вот пример консольной сессии:

program ftp_client;

{$APPTYPE CONSOLE}

uses 
  SysUtils, NMFtp;

function connect(host, port, user, pass : string) : tnmftp;
var
  ftp : tnmftp;
begin
  if (host = '') then host := 'localhost';
  if (port = '') then port := '21';
  ftp          := tnmftp.create(nil);
  ftp.host     := host;
  ftp.port     := StrToInt(port);
  ftp.userid   := user;
  ftp.password := pass;
  ftp.connect;
  result := ftp;
end;

procedure disconect(ftp : tnmftp);
begin
  ftp.disconnect();
end;

var
  ftp : tnmftp;
  cmd : string;
begin
  ftp := connect('www.САЙТ.ru', '21', 'ИМЯ', 'ПАРОЛЬ');
  while true do begin
    write('-> '); readln(cmd);
    if cmd = 'exit' then begin
      disconect(ftp);
      break;
    end;
    writeln(ftp.transaction(cmd));
  end
end.

только ftp комманды отлючаются от шелла:

-> syst
215 UNIX Type: L8

-> feat
211-Features:

-> pwd
257 "/" is current directory.

-> list rest 0 noop
450 rest 0 noop: No such file or directory

-> cwd WWW
250 CWD command successful

-> pwd
257 "/WWW" is current directory.

-> list rest 0 noop
450 rest 0 noop: No such file or directory

-> pasv
227 Entering Passive Mode (89,108,68,85,234,147).

->

и вообще у tnmftp много полезных методов.

[velikijmerlin]

эм, тогда я чего то не могу понять, у меня такой же код... только не консолькой а формой... различий не нашёл особых...

в чём же проблема тогда?((

[Пепел Феникса]

а может попробуете idFTPClient?
а то NM как то устарели..

[velikijmerlin]

Сообщение от Пепел Феникса

а может попробуете idFTPClient?
а то NM как то устарели..

эм, так у меня же стоит IdFTPClient, брал со вкладке Indy Clients.
или вы имеете в виду какой - то другой компонент?

[Пепел Феникса]

я про пример, пример консольный на NM компоненте.
у вас какая версия ИнДи?
посмотрите их стандартные демки
http://indyproject.org/Sockets/Demos/index.EN.aspx

[velikijmerlin]

эм, а где можно посмотреть какая версия Инди установлена?

просто у меня 7 Делфи стоит...

[Пепел Феникса]

киньте любой инди компонент на форму и на нем правой кнопкой About InDy
скорее всего у вас старая.

[velikijmerlin]

да у меня 9 версия инди, скачал демки, будет время просмотрю их..))

[velikijmerlin]

эм, а может ли возникнуть ошибка авторизации из-за фтп сервера на хостинге?
и вообще каким образом лучше тестировать фтп клиент, на хостинге или не локалхосте?