Ftp клиент.

Тема в разделе "Delphi - Сети", создана пользователем sergph, 23 ноя 2008.

  1. sergph

    sergph Гость

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

    Код (Text):
    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);
     
Загрузка...

Поделиться этой страницей