Работа с интерфейсами в Delphi: передача в `SoapCall` и проблема типов

Delphi , Программа и Интерфейс , Интерфейс

Работа с интерфейсами в Delphi: передача в SoapCall и проблема типов

Delphi – это мощный инструмент для разработки прикладного программного обеспечения, который поддерживает множество технологий, включая SOAP-сервисы. Одной из особенностей Delphi является работа с интерфейсами, что позволяет реализовать модульное и расширяемое программное обеспечение. В данной статье мы рассмотрим, как передавать интерфейсы в процедуры, используя пример с SoapCall.

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

При работе с интерфейсами в Delphi может возникнуть проблема при передаче их в качестве параметра процедуры, особенно когда речь идет о SOAP-сервисах. В частности, возникает вопрос о том, как передать интерфейс типа Hello_PortType в процедуру SoapCall, а также как получить информацию о типе этого интерфейса.

type
    Hello_PortType = interface(ISoapInvokable)
      ['{243CBD89-8766-F19D-38DF-427D7A02EAEE}']
        function GetDeneme(s: string): string;
      end;

Пример использования SoapCall с интерфейсом Hello_PortType:

SoapCall(Hello_PortType, 'http://localhost:8080/wsdl/ITDeneme');

Далее, вопрос состоит в том, как получить информацию о типе, используя переменную, возвращаемую методом SoapCall. В примере реализации SoapCall использует параметр Intf типа Variant, что может вызвать проблемы при работе с информацией о типе.

function TLib.SoapCall(Intf: Variant; Addr: string): ISoapInvokable;
// ...
InvRegistry.RegisterInterface(TypeInfo(Intf), 'urn:DenemeIntf-IDeneme', '');
// ...

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

Проблема заключается в неправильном использовании интерфейса типа в качестве параметра. Вместо этого необходимо передавать указатель на информацию о типе интерфейса. Использование Variant в данном случае некорректно, так как ожидается тип интерфейса, а не экземпляр интерфейса.

SoapCall(TypeInfo(Hello_PortType), 'http://localhost:8080/wsdl/ITDeneme');

Исправленный вариант реализации SoapCall должен выглядеть следующим образом:

function TLib.SoapCall(TypeInfo: pointer; Addr: string): ISoapInvokable;
// ...
InvRegistry.RegisterInterface(TypeInfo, 'urn:DenemeIntf-IDeneme', '');
// ...

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

Не предоставляется, так как описанный выше "Подтвержденный ответ" является корректным решением проблемы.

Примеры кода

Вот пример кода, демонстрирующего правильный вызов SoapCall с передачей указателя на информацию о типе интерфейса:

type
    Hello_PortType = interface(ISoapInvokable)
      ['{243CBD89-8766-F19D-38DF-427D7A02EAEE}']
        function GetDeneme(s: string): string;
      end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Invoker: ISoapInvokable;
begin
  Invoker := TLib.SoapCall(TypeInfo(Hello_PortType), 'http://localhost:8080/wsdl/ITDeneme');
  // Дальнейшие действия с интерфейсом
end;

Обратите внимание, что в реальном коде необходимо обработать возможные исключения и ошибки, связанные с вызовами SOAP-сервисов, а также корректно освободить ресурсы после их использования.

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

При работе с интерфейсами в Delphi при использовании SOAP-сервисов возникает проблема с правильной передачей интерфейса в функцию `SoapCall` и извлечением информации о его типах.

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

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

:: Главная :: Интерфейс ::