Delphi Excel COM-Addin

Question

Delphi 2006에서 MS Excel COM-Addin을 작성하고 있습니다. 개발 컴퓨터에 Excel 2007이 설치되어 있습니다.

프로젝트를 ActiveX 라이브러리로 시작한 다음 Delphi ActiveX 프로젝트 메뉴에서 자동화 개체를 추가했습니다. 내 자동화 개체에서

나는

IDTExtensibility2 = interface(IDispatch) 
    ['{32E456FC-C710-43AA-9ACA-DDE8F132B91B}'] 
    function OnAddinsUpdate(var w_Custom: OleVariant): HResult; stdcall; 
    function OnBeginShutDown(var w_Custom: OleVariant): HResult; stdcall; 
    function OnConnection(const w_Application: IDispatch; w_ConnectMode: Integer; 
         const w_AddInInst: IDispatch; var w_Custom: OleVariant): HResult; stdcall; 
    function OnDisconnection(w_DisconnectMode: Integer; var w_Custom: OleVariant): HResult; stdcall; 
    function OnStartupComplete(var w_Custom: OleVariant): HResult; stdcall; 
end; 

으로하는 IDTExtensibility2 인터페이스를 정의하고 TAutoObject에서 파생 된 클래스에서 인터페이스를 구현했습니다. 유닛의 초기화 섹션에서

나는

TAutoObjectFactory.Create(ComServer, TPBSExcelAddin, Class_PBSExcelAddin, ciSingleInstance, tmApartment); 

COM 개체가 미세 등록하고, 그러나 그것은에서 엑셀에 설치합니다 엑셀 추가 기능 옵션에 표시 호출합니다. "로드되지 않았습니다 .Addin COM로드 중 오류가 발생했습니다."

누구나 내 인터페이스에 문제가있을 수 있습니까? 또는 내가 com 객체를 만드는 방법? 이 디버깅 할 수있는 방법이 있습니까?

감사합니다

Answer 1

귀하의 신고는 IDTExtensibility2입니다. 그것은해야한다 : 기억하는 것이 중요하다

IDTExtensibility2 = interface(IDispatch) 
    ['{B65AD801-ABAF-11D0-BB8B-00A0C90F2744}'] 
    procedure OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode; 
         const AddInInst: IDispatch; var custom: PSafeArray); safecall; 
    procedure OnDisconnection(RemoveMode: ext_DisconnectMode; var custom: PSafeArray); safecall; 
    procedure OnAddInsUpdate(var custom: PSafeArray); safecall; 
    procedure OnStartupComplete(var custom: PSafeArray); safecall; 
    procedure OnBeginShutdown(var custom: PSafeArray); safecall; 
end; 

한 가지 인터페이스의 메소드가 올바른 선언해야한다는 것입니다 주문 잘못된 순서로 선언했다. 나는 또한 당신이 당신의 GUID를 어디서 얻었는지 모른다.

Microsoft Add-In Designer 용 형식 라이브러리를 가져 와서이 인터페이스 선언을 가져 왔습니다. 나는 당신이 똑같이하도록 강력히 권한다.

Answer 2

예,이 디버깅하는 방법이있다 :

프로젝트 옵션 (Ctrl 키 + + F11 시프트)

이동 링커 탭을 열고

1. 닫기 Excel을
2. 확인 TD32 디버그 정보 포함 및 원격 디버깅 기호을 포함하십시오. 즉시 매개 변수 (실행 메뉴, 매개 변수 ...) 엑셀
3. -
4. 변경 호스트 응용 프로그램 다시 실행을 실행하는
5. 이동 (아마도 첫 번째는 필요하지만 미안보다 안전) 귀하 addin이로드되면 디버깅을 시작할 수 있습니다.

디버깅을하지 않으면 초기화 코드에 문제가없는 것입니다. 그러면 필요한 패키지를로드하는 데 문제가 있거나 추가 기능에서 올바른 방식으로 _IDExtensibility 인터페이스를 구현하지 못할 수 있습니다.