1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

Ftp клиент.

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

Наш партнер Genesis Hackspace
  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);
     
Загрузка...

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