Перестал работать проверенный код(Delphi)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by SilverShark, 3 Nov 2012.

  1. SilverShark

    SilverShark New Member

    Joined:
    30 Oct 2012
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    Доброе время суток.
    У меня следующая проблема: код, загружающий файл на сервер по FTP протоколу:
    Code:
    idFTP1.Connect(True, 5000);
      idFTP1.ChangeDir('./Alien/'); 
     idFTP1.Put('Photo.jpg', 'Photo.jpg');
      idFTP1.Disconnect;
    перестал работать через порты, отличные от 21-го, хотя ранее этот код работал вполне нормально. Все мои проекты Delphi, которые до того прекрасно работали с этим кодом, теперь перестали работать. Программа пишет "Connect timed out".
    Никто не знает, как моему горю помочь?