Ftp клиент.

  • Автор темы sergph
  • Дата начала
S

sergph

#1
Я пишу ftp клиент на компонентах indy IdTCPClient, IdTCPServer.
Вопрос след. при переводе сервера в пассивный режим я получаю от сервера IP и порт. Подскажите как получить присланный порт и присвоить переменой IdTCPServer??

Код:
procedure TForm1.ListClick(Sender: TObject);

begin
Memo2.Clear;
if TextMode.Checked then
IdTCPClient1.SendCmd('TYPE A',200)
else
IdTCPClient1.SendCmd('TYPE I',200);
Memo1.Lines.Add(IdTCPClient1.LastCmdResult.TextCode +
IdTCPClient1.LastCmdResult.Text.Text);
IdTCPClient1.SendCmd('PASV',227);