Устранение ошибки Access violation при загрузке файла в Delphi

Delphi , Интернет и Сети , FTP

Ошибка "Access violation" при загрузке файла через FTP в Delphi может возникнуть из-за неправильного использования объекта TIdFTP. В данном случае проблема заключается в том, что объект TIdFTP не был создан перед использованием. Чтобы исправить это, необходимо создать экземпляр TIdFTP перед его использованием, как показано в следующем коде:

uses
  IdFTP;

procedure TForm1.Button1Click(Sender: TObject);
var
  FTP: TIdFTP;
begin
  FTP := TIdFTP.Create(nil);
  try
    FTP.Host := 'website.altervista.org';
    FTP.Username := 'website';
    FTP.Password := 'password';
    FTP.Port := 21;
    FTP.Connect;
    FTP.Put('C:\Users\user\Desktop\text.txt');
    FTP.Quit;
  finally
    FTP.Free;
  end;
end;

Также стоит отметить, что по умолчанию FTP использует порт 21, а не 25, как указано в исходном коде. Поэтому, скорее всего, ошибка "Socket Error # 10060 Connection timed out" связана с неправильным портом. Нужно использовать порт 21, как показано в приведенном выше коде.

Создано по материалам из источника по ссылке.

Ошибка 'Access violation' при загрузке файла через FTP в Delphi происходит из-за неправильного использования объекта TIdFTP, когда он не был создан перед использованием.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: FTP ::