Переход с Indy 9 на Indy 10 в проектах Delphi: устранение ошибок подключения

Delphi , Интернет и Сети , Сокеты

Приветствую, разработчики на Delphi! В данной статье мы рассмотрим типичную проблему, с которой вы можете столкнуться при переходе с Indy 9 на Indy 10 в ваших проектах: ошибку подключения "Connection refused" (отказ в подключении). Мы подробно разберемся в причинах возникновения этой ошибки и предложим решение, которое позволит вам продолжить работу над вашими проектами без потерь.

Описание проблемы

При переходе с версии Indy 9 на Indy 10 в проектах, созданных в Delphi 2009, и миграции на Delphi 11, многие разработчики сталкиваются с ошибкой подключения, когда клиентский компонент Indy (например, IdTCPClient1) не может установить соединение с сервером. Ошибка сопровождается кодом 10061 и сообщением "Connection refused", что указывает на то, что сервер не отвечает на попытку подключения.

Пример кода до и после обновления

Indy 9

IdTCPClient1.Host := '123.456.789.012';
IdTCPClient1.Port := 123;
IdTCPClient1.Connect;
IdTCPClient1.OpenWriteBuffer;
IdTCPClient1.Write(Data);
i := IdTCPClient1.ReadInteger(True);
x := IdTCPClient1.ReadLn('</root>', 20000, 1500);

Indy 10

XMLStream := TMemoryStream.Create;
XMLDoc1.XML.SaveToStream(XMLStream);
IdTCPClient1.Host := '123.456.789.012';
IdTCPClient1.Port := 123;
IdTCPClient1.Connect;
IdTCPClient1.Socket.Open; // Ошибка: этот вызов не нужен
IdTCPClient1.Socket.WriteBufferOpen;
IdTCPClient1.Socket.Write(XMLStream, XMLStream.Size);
i := IdTCPClient1.Socket.ReadInt32(True);
x := IdTCPClient1.Socket.ReadLn('</root>', 20000, 1500);

Ошибка при переходе на Indy 10

Проблема заключается в некорректном использовании функционала Indy 10. В частности, вызов Socket.Open после Connect лишний и приводит к ошибке, так как уже установлено соединение. Кроме того, не закрыт буфер записи, что может вызвать проблемы с передачей данных.

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

Для устранения ошибки, необходимо: 1. Удалить вызов Socket.Open после Connect. Это действие не требуется, так как Connect уже открывает соединение. 2. Закрыть буфер записи, используя команду WriteBufferClose или WriteBufferFlush, после передачи данных.

IdTCPClient1.Connect;
// IdTCPClient1.Socket.Open; // Удаляем этот вызов
// ...
// После передачи данных
IdTCPClient1.WriteBufferClose; // Или IdTCPClient1.WriteBufferFlush

Важно: Если вы отправляете небольшие объемы данных, использование буфера записи может быть излишним и даже вызвать проблемы. Поэтому рекомендуется отказаться от использования буфера записи, если это возможно.

Альтернативный ответ (не рекомендуется)

В комментарии Francisco упоминается, что ошибка продолжает возникать после внесения исправлений. В этом случае стоит обратить внимание на состояние сервера, к которому вы пытаетесь подключиться, и убедиться, что он действительно запущен и слушает указанный порт.

Заключение

Переход на Indy 10 может быть нелегким, но с правильным подходом и пониманием изменений в API, вы сможете избежать распространенных ошибок и успешно обновить свои проекты. Удачи в разработке!

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

При переходе с Indy 9 на Indy 10 в проектах Delphi возникают проблемы с подключением, связанные с лишними вызовами функций и неправильным использованием буфера записи, что приводит к ошибке 'Connection refused'.

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

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

:: Главная :: Сокеты ::