Как устранить ошибку "The parameter is incorrect" при использовании COM-интерфейса в Delphi XE2

Delphi , Технологии , COM и DCOM

Вопрос о работе с COM-интерфейсами в Delphi XE2 связан с использованием диспетчеризованных интерфейсов без указания ClassID. Пользователь столкнулся с проблемой, при которой при попытке использования интерфейса возникала ошибка "The parameter is incorrect". В контексте задачи упоминается использование .NET DLL с COM-интерфейсом, который был зарегистрирован на компьютере и импортирован в Delphi.

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

Пользователь успешно инициализировал классы и интерфейсы для вызова методов COM-интерфейса .NET-библиотеки. Однако при попытке использования одного из интерфейсов возникла ошибка. При трассировке ошибки до System.Win.ComObj, в функции Dispatch.Invoke, все параметры были валидными. Однако в System.pas, в функции TInterfacedObject.QueryInterface, второй вызов возвращал E_NOINTERFACE, что приводило к появлению сообщения об ошибке.

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

В результате обсуждения на форуме было выявлено, что проблема заключалась в неправильном объявлении переменной FRespList как экземпляра класса TFXResponseListener вместо интерфейса IFXResponseListener. После изменения типа переменной на интерфейс и устранения свойства ListenerDispIntf, проблема была решена.

Также было отмечено, что важно использовать правильный GUID для диспетчеризованного интерфейса в классе, наследующем IDispatch, чтобы избежать ошибки "The parameter is incorrect".

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

Пользователь также рассматривал возможность использования C++ интерфейса библиотеки, так как .NET интерфейс, по его мнению, не использовал COM корректно. Однако было отмечено, что если C++ интерфейс основан на COM, то он должен работать с Delphi COM.

Дополнительные замечания

В процессе решения проблемы было выявлено, что при использовании IUnknown и ручном освобождении ресурсов необходимо сначала вызвать inherited Destroy, чтобы избежать утечки памяти и доступа к неинициализированным данным.

Рекомендации

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

Пример кода

type
  IFXResponseListener = interface(IDispatch)
    ...
  end;

TFXResponseListener = class(TAutoIntfObject, IFXResponseListener)
  ...
private
  ...
public
  constructor Create; override;
  destructor Destroy; override;
  ...
end;

constructor TFXResponseListener.Create;
begin
  ...
end;

destructor TFXResponseListener.Destroy;
begin
  inherited Destroy;
  while Self.RefCount > 0 do
    IUnknown(Self)._Release;
end;

Заключение

Использование COM-интерфейсов в Delphi может быть непростой задачей, но с правильным подходом и вниманием к деталям, многие проблемы можно решить. Надеюсь, данная статья поможет разработчикам избежать распространенных ошибок и ускорит процесс разработки.

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

Пользователь сталкивается с ошибкой 'The parameter is incorrect' при использовании COM-интерфейса в Delphi XE2 из-за неправильного объявления переменной и использования GUID, а также необходимости корректного управления ресурсами.

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

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

:: Главная :: COM и DCOM ::