Как исправить ошибку нарушения доступа при работе с OCX-компонентами в Delphi

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

Вопрос, поставленный физиком, связан с работой в Delphi с OCX-контролом, который предоставляет интерфейсы IGraph, IGraphAxes и IAxis. При попытке получить доступ к оси X (или Y, Z) через интерфейс IGraphAxes, возникает ошибка нарушения доступа. Это происходит из-за того, что указатель IDispatch, связанный с осью, не указывает на действительный объект. В результате, при вызове функции Invoke с полученным dispid, происходит ошибка.

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

В Delphi есть встроенная поддержка позднего связывания для интерфейса IDispatch, что означает, что вы можете обращаться к членам объекта как к обычным свойствам, и Delphi автоматически вызовет функцию Invoke за кулисами. Это избавляет от необходимости вызывать Invoke() напрямую.

Альтернативный ответ (пример кода):

procedure TForm2.GetProperty(dispobj: IDispatch; PropertyName: WideString;
                            var retvalue: Variant; Sender: TObject);
begin
  retvalue := dispobj.Properties[PropertyName].Value;
end;

procedure TForm2.SetProperty(dispobj: IDispatch; PropertyName: WideString; Value: Variant; Sender: TObject);
begin
  dispobj.Properties[PropertyName].Value := Value;
end;

Используйте эти процедуры для доступа к свойствам, например, Color и Style интерфейса IGraphAxes:

GetProperty(Graph1.GraphAxes, 'Color', retvalue, Sender);
SetProperty(Graph1.GraphAxes, 'Color', value, Sender);

Для доступа к осям XAxis/YAxis/ZAxis интерфейса IGraphAxes, просто обращайтесь к ним как к обычным свойствам:

var
  XAxis: IGraphAxis;
begin
  XAxis := Graph1.GraphAxes.XAxis;
  // Теперь можно работать с интерфейсом XAxis, например, получить свойство Min
  var MinValue: Double;
  MinValue := XAxis.Min;
end;

Заключение:

Используя позднее связывание в Delphi, вы можете избежать необходимости прямого вызова функций Invoke, что упрощает работу с OCX-компонентами. Обращайтесь к свойствам и методам как к обычным объектам Delphi, и все будет работать гладко.

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

Вопрос касается устранения ошибки доступа при использовании OCX-компонентов в среде разработки Delphi, связанной с некорректным доступом к оси X (Y, Z) через интерфейс IGraphAxes, и предлагается решение, основанное на использовании п

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

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

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