2

私は物理学者です。インポートされた ActiveX コントロール (ocx ファイル) を使用して Delphi で作業しようとしています。ライブラリに IGraph、IGraphAxes、IAxis の 3 つのオートメーション インターフェイスがあるとします。ライブラリの構造は次のようになっています。

===IGraph のプロパティ:===
Idispatch* IGraphAxes;
... //他のメンバー

===IGraphAxes のプロパティ:===
Idispatch* XAxis;
Idispatch* YAxis;
Idispatch* ZAxis;
整数の色。
整数スタイル;
… //他のメンバー

===IAxis プロパティ:===
float Min、Max;
ブール値の ShowNumbers;
… //他のメンバー

IGraph から、GetIDsOfNames() および Invoke() 関数を使用して、IGraphAxes (色とスタイル) の単純なメンバーにアクセスできます。しかし、XAxis (または YAxis、Zaxis) にアクセスしようとすると、エラーが発生します。まず、GetIDsOfNames() を使用すると、問題なく XAxis の dispid が返されます。しかし、その dispid で Invoke を呼び出すと、「アドレスでのアクセス違反...」というエラーが発生します。idispatch ポインター (**Xaxis)* は何も指していないようです。どうすればこれを解決できますか?
Idispatch* Xaxis
と
IAxis インターフェイスを相互に接続するにはどうすればよいですか?
PS私の英語でごめんなさい、私はネイティブスピーカーではありません

4

4 に答える 4

2

Delphi には IDispatch レイト バインディングのサポートが組み込まれているため、Invoke() を直接呼び出す必要はありません。通常のプロパティのようにメンバーにアクセスするだけで、Delphi が舞台裏で Invoke() を呼び出します。

Invoke() を直接呼び出したい場合は、失敗している実際のコードを示してください。AV は、OCX 自体のバグではなく、コードのバグが原因である可能性があります。

于 2010-09-12T07:07:47.230 に答える
0

お返事をありがとうございます。実際には、activex コントロールは、3D グラフィックをプロットするためのサードパーティ製のビジュアル コンポーネントです。以下は、activex ライブラリの内容です。

[
uuid(...),
version(xx),
helpstring("3-D グラフ モジュール"),
コントロール,
カスタム(..., ...),
カスタム(..., ...)
]

ライブラリGraphLib
{

importlib("stdole2.tlb");

[
uuid(...),
helpstring("3-D グラフ コントロールのディスパッチ インターフェイス"),
hidden
]
dispinterface _IGraph
{
プロパティ:
[
id(0x0000006)
]
IDispatch * GraphAxes(...);
メソッド:
[
id(0x0000001)
]
byte AddScatterGraph(...);
[
id(0x0000002)
]
バイト AddVectorFieldGraph(...);
[
id(0x0000003)
]
バイト AddParametricSurfaceGraph(...);
[
id(0x0000004)
]
バイト AddSurfaceGraph(...);
[
id(0x0000005)
]
バイト RemoveGraphs( void );
};
[
uuid(...),
helpstring("3-D グラフ コントロール"),
コントロール
]
coclass cGraph
{
[デフォルト] dispinterface _IGraph;
[デフォルト、ソース] dispinterface _IGraphEvents;
};
[
uuid(...)
]
dispinterface IGraphAxis
{
プロパティ:
[
id(0x00000001)
]
バイト番号;
[
id(0x00000002)
]
倍の分;
[
id(0x00000003)
]
ダブルマックス;
[
id(0x00000004)
]
短い GridNum;
[
id(0x00000005)
]
バイト ShowLabel;
メソッド:
};
[
uuid(...)
]
coclass cGraphAxis
{
[デフォルト] dispinterface IGraphAxis;
};
[
uuid(...)
]
dispinterface IGraphAxes
{
プロパティ:
[
id(0x00000001)
]
IDispatch * XAxis;
[
id(0x00000002)
]
IDispatch * YAxis;
[
id(0x00000003)
]
IDispatch * ZAxis;
[
id(0x00000004)
]
整数の色。
[
id(0x00000005)
]
整数スタイル。
メソッド:
};
[
uuid(...)
]
coclass cGraphAxes
{
[デフォルト] dispinterface IGraphAxes;
};
[
uuid(...),
helpstring("3-D グラフ コントロールのイベント インターフェイス")
]
dispinterface _IGraphEvents
{
プロパティ:
メソッド:
[
id(0xFFFFFDA3)
]
void MouseDown(...);
[
id(0xFFFFFDA8)
]
void クリック… );
[
id(0xFFFFFDA7)
]
void DblClick( …);
[
id(0xFFFFFDA6)
]
void KeyDown(… );
[
id(0xFFFFFDA5)
]
void KeyPress(… );
[
id(0xFFFFFDA4)
]
void KeyUp(…);
[
id(0xFFFFFDA2)
]
void MouseMove(…);
[
id(0xFFFFFDA1)
]
void MouseUp(…);
};
};

于 2010-09-20T04:53:10.980 に答える
0

そして、これがタイプ ライブラリから生成されたユニット ファイルです。
ユニットGraphLib_TLB;

// ************************************************************************  
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// ************************************************************************  //  
// Type Lib: graph3d.ocx (1)  
// LIBID: {...}  
// LCID: 0  
// HelpString: 3-D Graph module  
// DepndLst:   
//   (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)  
// ************************************************************************ //  
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.   
{$WARN SYMBOL_PLATFORM OFF}  
{$WRITEABLECONST ON}  
{$VARPROPSETTER ON}  
interface  

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;  

// *********************************************************************//  
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//  
const  
  // TypeLibrary Major and minor versions  
  GraphLibMajorVersion = x;  
  GraphLibMinorVersion = x;  

  LIBID_GLLib: TGUID = '{...}';  

  DIID__IGraph: TGUID = '{...}';  
  DIID__IGraphEvents: TGUID = '{...}';  
  CLASS_cGraph: TGUID = '{...}';  
  DIID_IGraphAxis: TGUID = '{...}';  
  CLASS_cGraphAxis: TGUID = '{...}';  
  DIID_IGraphAxes: TGUID = '{...}';  
  CLASS_cGraphAxes: TGUID = '{...}';  
type  

// *********************************************************************//  
// Forward declaration of types defined in TypeLibrary                      
// *********************************************************************//  
  _IGraph = dispinterface;  
  _IGraphEvents = dispinterface;  
  IGraphAxis = dispinterface;   
  IGraphAxes = dispinterface;  
// *********************************************************************//  
// Declaration of CoClasses defined in Type Library                         
// (NOTE: Here we map each CoClass to its Default Interface)                
// *********************************************************************//  
  cGraph = _IGraph;  
  cGraphAxis = IGraphAxis;  
  cGraphAxes = IGraphAxes;  

// *********************************************************************//  
// Declaration of structures, unions and aliases.                           
// *********************************************************************//  
  PWideString1 = ^WideString; {*}  
  PShortint1 = ^Shortint; {*}  
  PSmallint1 = ^Smallint; {*}  

// *********************************************************************//  
// DispIntf:  _IGraph  
// Flags:     (4112) Hidden Dispatchable  
// GUID:      {...}  
// *********************************************************************//  
  _IGraph = dispinterface  
    ['{...}']  
    function AddScatterGraph(...): {??Shortint}OleVariant; dispid 1;  
    function AddVectorFieldGraph(...): {??Shortint}OleVariant; dispid 2;  
    function AddParametricSurfaceGraph(...): {??Shortint}OleVariant; dispid 3;  
    function AddSurfaceGraph(...): {??Shortint}OleVariant; dispid 4;  
    function RemoveGraphs: {??Shortint}OleVariant; dispid 5;  
    property GraphAxes: IDispatch dispid 6;  
  end;  

// *********************************************************************//  
// DispIntf:  _IGraphEvents  
// Flags:     (4096) Dispatchable  
// GUID:      {...}  
// *********************************************************************//  
  _IGraphEvents = dispinterface  
    ['{...}']  
    procedure MouseDown(); dispid -605;  
    procedure Click; dispid -600;  
    procedure DblClick; dispid -601;  
    procedure KeyDown(...); dispid -602;  
    procedure KeyPress(...); dispid -603;  
    procedure KeyUp(...); dispid -604;  
    procedure MouseMove(...); dispid -606;  
    procedure MouseUp(...); dispid -607;  
    procedure ReadyStateChange; dispid -609;  
  end;  

// *********************************************************************//  
// DispIntf:  IGraphAxis  
// Flags:     (4096) Dispatchable  
// GUID:      {...}  
// *********************************************************************//  
  IGraphAxis = dispinterface  
    ['{...}']  
    property Numbered: {??Shortint}OleVariant dispid 1;  
    property Min: Double dispid 2;  
    property Max: Double dispid 3;  
    property GridNum: Smallint dispid 4;  
    property ShowLabel: {??Shortint}OleVariant dispid 5;        
  end;  

// *********************************************************************//  
// DispIntf:  IGraphAxes  
// Flags:     (4096) Dispatchable  
// GUID:      {...}  
// *********************************************************************//  
  IGraphAxes = dispinterface  
    ['{...}']  
    property XAxis: IDispatch dispid 1;  
    property YAxis: IDispatch dispid 2;  
    property ZAxis: IDispatch dispid 3;  
    property Color: Integer dispid 4;  
    property Style: Smallint dispid 5;  
  end;  

// *********************************************************************//  
// OLE Control Proxy class declaration  
// Control Name     : TGraph  
// Help String      : 3-D Graph Control  
// Default Interface: _IGraph  
// Def. Intf. DISP? : Yes  
// Event   Interface: _IGraphEvents  
// TypeFlags        : (34) CanCreate Control  
// *********************************************************************//  
  TGraph = class(TOleControl)  
  private  
    FOnError: TGraphError;  
    FOnReadyStateChange: TNotifyEvent;  
    FIntf: _IGraph;  
    function  GetControlInterface: _IGraph;  
  protected  
    procedure CreateControl;  
    procedure InitControlData; override;  
    function Get_GraphAxes: IDispatch;  
    procedure Set_GraphAxes(const Value: IDispatch);  
  public  
    function AddScatterGraph(...): {??Shortint}OleVariant;  
    function AddVectorFieldGraph(...): {??Shortint}OleVariant;  
    function AddParametricSurfaceGraph(...): {??Shortint}OleVariant;  
    function AddSurfaceGraph(...): {??Shortint}OleVariant;  
    function RemoveGraphs: {??Shortint}OleVariant;  
    property ControlInterface: _IGraph read GetControlInterface;  
    property DefaultInterface: _IGraph read GetControlInterface;  
    property GraphAxes: IDispatch index 6 read GetIDispatchProp write SetIDispatchProp;  
  published  
    //properties visible in the Object Inspector go here   
    ...  
    property  OnDragDrop;  
    property  OnDragOver;  
    property  OnEndDrag;  
    property  OnEnter;  
    property  OnExit;  
    property  OnStartDrag;  
    property  OnMouseUp;  
    property  OnMouseMove;  
    property  OnMouseDown;  
    property  OnKeyUp;  
    property  OnKeyPress;  
    property  OnKeyDown;  
    property  OnDblClick;  
    property  OnClick;  
    property OnError: TGraphError read FOnError write FOnError;  
    property OnReadyStateChange: TNotifyEvent read FOnReadyStateChange write FOnReadyStateChange;    
  end;    

// *********************************************************************//  
// The Class CocGraphAxis provides a Create and CreateRemote method to            
// create instances of the default interface IGraphAxis exposed by                
// the CoClass cGraphAxis. The functions are intended to be used by               
// clients wishing to automate the CoClass objects exposed by the           
// server of this typelibrary.                                              
// *********************************************************************//  
  CocGraphAxis = class  
    class function Create: IGraphAxis;  
    class function CreateRemote(const MachineName: string): IGraphAxis;  
  end;  

// *********************************************************************//  
// The Class CocGraphAxes provides a Create and CreateRemote method to            
// create instances of the default interface IGraphAxes exposed by                
// the CoClass cGraphAxes. The functions are intended to be used by               
// clients wishing to automate the CoClass objects exposed by the           
// server of this typelibrary.                                              
// *********************************************************************//  
  CocGraphAxes = class  
    class function Create: IGraphAxes;  
    class function CreateRemote(const MachineName: string): IGraphAxes;  
  end;  

procedure Register;  

resourcestring  
  dtlServerPage = 'ActiveX';  

  dtlOcxPage = 'ActiveX';  

implementation  

uses ComObj;  

procedure TGraph.InitControlData;  
const  
  CEventDispIDs: array [0..1] of DWORD = (...);  
  CLicenseKey: array[0..33] of Word = ($006F, ..., ..., e.g.);  
  CControlData: TControlData2 = (  
    ClassID: '{...}';  
    EventIID: '{...}';  
    EventCount: 2;  
    EventDispIDs: @CEventDispIDs;  
    LicenseKey: @CLicenseKey;  
    Flags: $00000000;  
    Version: 401);  
begin  
  ControlData := @CControlData;  
  TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnError) - Cardinal(Self);  
end;  

procedure TGraph.CreateControl;  

  procedure DoCreate;  
  begin  
    FIntf := IUnknown(OleObject) as _IGraph;  
  end;  

begin  
  if FIntf = nil then DoCreate;  
end;  

function TGraph.GetControlInterface: _IGraph;  
begin  
  CreateControl;  
  Result := FIntf;  
end;  

function TGraph.Get_GraphAxes: IDispatch;  
begin  
  Result := DefaultInterface.GraphAxes;  
end;  

procedure TGraph.Set_GraphAxes(const Value: IDispatch);  
begin  
  DefaultInterface.GraphAxes := Value;  
end;  

function TGraph.AddScatterGraph(...): {??Shortint}OleVariant;  
begin  
  Result := DefaultInterface.AddScatterGraph(...);  
end;  

function TGraph.AddVectorFieldGraph(...): {??Shortint}OleVariant;  
begin  
  Result := DefaultInterface.AddVectorFieldGraph(...);  
end;  

function TGraph.AddParametricSurfaceGraph(...): {??Shortint}OleVariant;  
begin  
  Result := DefaultInterface.AddParametricSurfaceGraph(...);  
end;  

function TGraph.AddSurfaceGraph(...): {??Shortint}OleVariant;  
begin  
  Result := DefaultInterface.AddSurfaceGraph(...);  
end;  

function TGraph.RemoveGraphs: {??Shortint}OleVariant;  
begin  
  Result := DefaultInterface.RemoveGraphs;  
end;  

class function CocGraphAxis.Create: IGraphAxis;  
begin  
  Result := CreateComObject(CLASS_cGraphAxis) as IGraphAxis;  
end;  

class function CocGraphAxis.CreateRemote(const MachineName: string): IGraphAxis;  
begin  
  Result := CreateRemoteComObject(MachineName, CLASS_cGraphAxis) as IGraphAxis;  
end;  

class function CocGraphAxes.Create: IGraphAxes;  
begin  
  Result := CreateComObject(CLASS_cGraphAxes) as IGraphAxes;  
end;  

class function CocGraphAxes.CreateRemote(const MachineName: string): IGraphAxes;  
begin  
  Result := CreateRemoteComObject(MachineName, CLASS_cGraphAxes) as IGraphAxes;  
end;  

procedure Register;  
begin  
  RegisterComponents(dtlOcxPage, [TGraph]);  
end;  

end.
于 2010-09-20T06:55:11.213 に答える
0

ocx ファイルを Delphi にインポートすると、コンポーネント パレットの [ActiveX] タブに表示されます。マウスでドラッグして、フォームとオブジェクト
Graph1: TGraph;を配置するだけです。
コードに自動的に追加されます。そのプロパティとイベントが [オブジェクト インスペクタ] ウィンドウに表示されます。ここで、コードからコントロールの軸にアクセスしたいと考えています。ご覧のとおり、プロパティは座標軸を表します。また、IGraphAxes の XAxis/YAxis/ZAxis メンバーは IGraphAxis 型の idispatch ポインターだと思います。idispatch インターフェイスにアクセスするために、次の手順を作成しました。

procedure TForm2.GetProperty(dispobj: IDispatch; PropertyName: WideString;
                                var retvalue: Variant; Sender: TObject);  
var hr: HRESULT;  
    DispId: integer;  
    value: Variant;  
    params: TDispParams;  
begin  
  hr:=dispobj.GetIDsOfNames(GUID_NULL,@PropertyName, 1, LOCALE_SYSTEM_DEFAULT, @DispId);  
  Label1.Caption:=inttostr(DispId);  
  hr:=dispobj.Invoke(DispId,GUID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_PROPERTYGET,
                  Params,@Value,nil,nil);  
  Retvalue:=Value;  
  Label2.Caption:=inttostr(value);  
end;  

procedure TForm2.SetProperty(dispobj: IDispatch; PropertyName: WideString; Value: OLEVariant; Sender: TObject);  
var   
    hr: HRESULT;  
    DispId: integer;  
    params: TDispParams;  
begin  
   hr:=dispobj.GetIDsOfNames(GUID_NULL,@PropertyName,1, LOCALE_SYSTEM_DEFAULT, @DispId);  
  Label1.Caption:=inttostr(DispId);  
  params.rgvarg:=@Value;  
  params.rgdispidNamedArgs:=@DispIDArgs;  
  params.cArgs:=1;  
  params.cNamedArgs:=1;  
  hr:=dispobj.Invoke(DispId,GUID_NULL,LOCALE_SYSTEM_DEFAULT,                  DISPATCH_PROPERTYPUT,Params,nil,nil,nil);  
 end;

これらは、IGraphAxes の Color プロパティと Style プロパティでうまく機能します。 

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

または 

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

しかし、IGraphAxes の XAxis/YAxis/ZAxis メンバーへのフル アクセスを取得するにはどうすればよいでしょうか?

于 2010-09-20T06:58:45.650 に答える