Проблемы подключения к Azure IoT Hub через TMS MQTT в Delphi

Delphi , Интернет и Сети , Компоненты и Интернет

Пользователь столкнулся с проблемой подключения к Azure IoT Hub через библиотеку TMS MQTT в среде разработки Delphi. Ошибка "Connection lost" возникает при попытке соединения как с использованием сертификата, так и через строку подключения.

Шаг 1: Проверка настроек подключения

Прежде всего, убедитесь, что все настройки подключения верны:

• FMQTTClient.BrokerHostName должен содержать корректное имя хоста IoT Hub.
• FMQTTClient.BrokerPort должен соответствовать порту, который использует IoT Hub (обычно 443 для MQTT через TLS).
• FMQTTClient.ClientID должен быть уникальным идентификатором устройства.
• FMQTTClient.Credentials.Username должен быть сформирован в соответствии с требованиями Azure IoT Hub.

Шаг 2: Настройка SSL

Убедитесь, что настройка SSL выполнена корректно:

procedure TMQTTClient.OnSSLIOHandlerConfiguration(ASender: TObject;
  var ASSLIOHandler: TIdSSLIOHandlerSocketOpenSSL);
begin
  ASSLIOHandler.SSLOptions.CertFile := FCertFileName;
  ASSLIOHandler.SSLOptions.KeyFile := FKeyFileName;
  ASSLIOHandler.SSLOptions.Mode := sslmClient;
  ASSLIOHandler.SSLOptions.Method := sslvTLSv1_2;
end;

Проверьте, что файлы сертификата и приватного ключа (FCertFileName и FKeyFileName) существуют и доступны.

Шаг 3: Обработка событий подключения

Обработчик событий подключения должен корректно обрабатывать различные статусы соединения:

procedure TMQTTClient.OnConnectedStatusChanged(ASender: TObject;
  const AConnected: Boolean; AStatus: TTMSMQTTConnectionStatus);
begin
  if AConnected and (AStatus = csConnected) then
  begin
    // Код для обработки успешного подключения
  end
  else
  begin
    // Код для обработки потери соединения или других статусов
  end;
end;

Шаг 4: Проверка версии протокола MQTT

Убедитесь, что версия протокола MQTT, используемая в клиенте, совместима с версией, требующейся IoT Hub.

Шаг 5: Проверка работоспособности клиента

Проверьте, что клиент на Python, который успешно работает с сертификатом, действительно использует тот же набор сертификатов и параметров соединения, что и клиент на Delphi.

Шаг 6: Проверка версий библиотек

Убедитесь, что используемая версия TMS MQTT поддерживает все необходимые функции и совместима с вашей версией Delphi.

Шаг 7: Проверка логов и сообщений об ошибках

Внимательно изучите логи и сообщения об ошибках, которые могут содержать дополнительную информацию о причине потери соединения.

Шаг 8: Альтернативные методы подключения

Если проблема не решена, рассмотрите возможность использования альтернативных библиотек MQTT для Delphi, таких как m2mqtt или Devart's dotConnect for MongoDB (который включает MQTT поддержку).

Шаг 9: Обращение в поддержку

Если все вышеперечисленные шаги не помогли, обратитесь в службу поддержки TMS или Azure за дополнительной помощью.

Важно: Убедитесь, что все изменения в коде и конфигурации сохранены и перекомпилированы перед повторным запуском приложения.

Пример кода для подключения через строку подключения:

const
  IOT_HUB_NAME      = 'your_iothub_name';
  IOT_HUB_DEVICE_ID = 'your_device_id';
  IOT_HUB_SAS_TOKEN = 'your_sas_token';
  MQTT_BROKER       = IOT_HUB_NAME + '.azure-devices.net';
  MQTT_PORT         = 8883;

var
  MQTTClient: TMQTTClient;
  SSL: TIdSSLIOHandlerSocketOpenSSL;

procedure OnConnect(Sender: TObject);
begin
  WriteLn('Connected to IoT Hub');
end;

procedure OnDisconnect(Sender: TObject);
begin
  WriteLn('Disconnected from IoT Hub');
end;

procedure OnPublish(Sender: TObject; const Topic: string; const Payload: string);
begin
  WriteLn('Published to topic: ' + Topic + ' with payload: ' + Payload);
end;

begin
  try
    MQTTClient := TMQTTClient.Create(nil);
    try
      // Настройка обработчиков событий
      // ...
      // Настройка SSL
      // ...
      // Подключение к IoT Hub
      MQTTClient.Connect(MQTT_BROKER, MQTT_PORT);
      // Осуществление публикаций
      // ...
      // Отключение от IoT Hub
      MQTTClient.Disconnect;
    finally
      MQTTClient.Free;
    end;
  except
    on E: Exception do
      WriteLn('Error: ' + E.Message);
  end;
end.

Следует отметить, что в приведенном выше примере кода необходимо заменить константы IOT_HUB_NAME, IOT_HUB_DEVICE_ID, IOT_HUB_SAS_TOKEN на реальные значения, соответствующие вашему IoT Hub и устройству.

Если после выполнения всех этих шагов проблема все еще не решена, возможно, потребуется более глубокий анализ конфигурации и сетевой инфраструктуры.

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

Пользователь сталкивается с проблемой подключения к Azure IoT Hub через TMS MQTT в среде разработки Delphi, при этом возникает ошибка 'Connection lost'.

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

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

:: Главная :: Компоненты и Интернет ::