Delphi 2010 RIDL 편집기에서 함수/프로 시저 포인터 유형의 특성 정의

Question

Delphi 2010 RIDL 편집기에서 함수/프로 시저 포인터 유형의 특성을 인터페이스 정의에 정의 할 수 있는지 궁금합니다. 예를 들어 인스턴스를 작성할 때 구현 자의 CoCreator를 사용하여 해당 소스에 해당 인터페이스 정의를 사용하는 함수/프로 시저를 할당 할 수 있습니다. 사실 "???"을 채우는 방법을 알고 싶습니다.

TLB 파일 :

IComIntf = interface(IDispatch) 
... 
    function Get_OnDoSomething : ??? safecall; 
    procedure Set_OnDoSomething(const New_Event : ???); safecall; 
... 
    property OnDoSomething : ???; 
... 
implementation 

uses ComObj; 

class function CoComIntf.Create: IComInt; 
... 
begin 
    Result := CreateComObject(CLASS_ComIntf) as IComIntf; 
end; 

구현 파일, ComIntfUnit.pas :

type 
    TOnDoSomething = function (Info: OleVariant): HResult of object; 

TComIntf = class(TAutoObject, IComIntf) 
private 
    fOnDoSomething : TDoSomething; 
... 
public 
    property OnDoSomething: TOnDoSomething read fOnDoSomething write fOnDoSomething; 
... 

클라이언트 형태 :

uses ComIntfUnit; 

type 
    TForm1 = class(TForm) 
    private 
    { Private declarations } 
    fCom : IComIntf; 
    function DoSomething(Info: OleVariant): HResult; 
    public 
    { Public declarations } 
... 
    end; 
... 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    fCom := CoComIntf.Create; 
    fCom.OnDoSomething := DoSomething; 
... 

미리 감사드립니다.

Answer 1

원시 함수 포인터는 COM 호환 유형이 아닙니다. 원한다면 확실히 무효 포인터를 사용할 수 있지만 COM의 정신이 아닐 것입니다.

여기서해야 할 일은 다른 인터페이스를 전달하는 것입니다. 그러면 피 호출자는 해당 인터페이스에서 함수를 호출하고 호출자의 코드를 실행할 수 있습니다.

Answer 2

잘못된 방향으로 가고 있습니다. 이것을 구현하는 올바른 방법은 클라이언트가 구현하고 COM 객체에 전달하는 두 번째 인터페이스를 정의하는 것입니다. 그런 다음 COM 개체는 해당 인터페이스를 유지하고 필요할 때 메서드를 호출 할 수 있습니다. 이것은 가장 일반적으로 이벤트 인터페이스 용으로 Connection Points을 사용하여 구현됩니다.

는 IDispatch를 사용하고, 특히 이후이를 구현하는 쉬운 방법은 IDE 마법사를 사용하여 새 자동화 개체을 만들고, 마법사 대화 상자에서 "이벤트 지원 코드를 생성"체크 박스를 클릭해야하는 것입니다 . 그런 다음 마법사는 개체 자체에 대한 인터페이스와 개체 이벤트에 대한 인터페이스를 생성하고 연결 지점 논리를 구현합니다. 그런 다음 필요할 때 객체 메서드가 이벤트 메서드를 호출하는 방식으로 필요에 따라 두 개의 인터페이스에 메서드를 추가 할 수 있습니다.

최종 개체를 컴파일하고 등록한 다음 IDE로 가져오고 해당 개체에 대한 VCL 래퍼를 생성하면 결과 구성 요소에는 내부적으로 개체의 연결 지점 이벤트에 연결되는 VCL 스타일의 이벤트가 생깁니다.