Решение проблемы подключения сокета 10053 при передаче файлов с FTP в режиме ftASCII на сервере Productionserver

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

Решение проблемы подключения сокета 10053 при передаче файлов с FTP в режиме ftASCII на сервере Production Server

При работе с FTP-передачей файлов в режиме ftASCII на сервере Production Server может возникнуть ошибка подключения сокета с кодом 10053, которая называется "Software caused connection abort". В этом случае подключение прерывается программным обеспечением на вашем хост-компьютере, возможно, из-за превышения времени передачи данных или ошибки протокола. В данной статье мы рассмотрим, как решить эту проблему в приложении, написанном на Object Pascal (Delphi).

Причина проблемы

Ошибка 10053 может возникать по разным причинам, но в вашем случае она связана с режимом передачи файлов с FTP. При использовании режима ftASCII происходит преобразование данных в текстовый формат, что может привести к проблемам при передаче на сервер Mainframe. При смене режима на ftBinary ошибка не появляется, но данные не передаются правильно.

Подтвержденный ответ

После того, как вы включили журнал ошибок FTP, проблема была решена. Оказалось, что ошибка была связана с настройками сервера FTP, а не с вашим приложением.

Альтернативный ответ

Если вы все еще испытываете трудности, обратитесь к странице "Microsoft Windows Socket Errors" для получения более подробной информации об ошибке 10053:

https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx

Пример кода на Object Pascal (Delphi)

Ниже приведен пример кода, демонстрирующий использование компонента TFTPListBox для подключения к FTP-серверу и передачи файлов в режиме ftASCII и ftBinary:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdFTP, IdFTPListBox;

type
  TForm1 = class(TForm)
    FTPListBox1: TFTPListBox;
    procedure FTPListBox1Click(Sender: TObject);
  private
    { Private declarations }
    FTP: TFTP;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FTPListBox1Click(Sender: TObject);
begin
  FTP := TFTP.Create(nil);
  try
    FTP.Host := 'ftp.example.com';
    FTP.Username := 'username';
    FTP.Password := 'password';
    FTP.Connect;

    // Передача файла в режиме ftASCII
    FTP.Put('file.txt', 'file_asc.txt', ftASCII);
    // Передача файла в режиме ftBinary
    FTP.Put('file.txt', 'file_bin.txt', ftBinary);
  finally
    FTP.Free;
  end;
end;

end.

Заключение

При работе с FTP-передачей файлов в режиме ftASCII на сервере Production Server может возникнуть ошибка подключения сокета с кодом 10053. В большинстве случаев эта проблема связана с настройками сервера FTP или превышением времени передачи данных. Чтобы решить проблему, убедитесь, что сервер FTP настроен правильно, и попробуйте изменить режим передачи файлов на ftBinary. Если проблема persists, обратитесь к странице "Microsoft Windows Socket Errors" для получения более подробной информации об ошибке 10053.

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

В данном контексте рассматривается проблема подключения сокета с кодом 10053, возникающая при передаче файлов с FTP в режиме ftASCII на сервере Production Server.

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

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

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