怎樣在DELPHI里回應COM介面的事件？

// *********************************************************************//
  // Interface: Iemptcl
  // Flags:     (4416) Dual OleAutomation Dispatchable
  // GUID:      {2383647A-6772-4B8B-AC50-251B3D8F01E3}
  // *********************************************************************//
  Iemptcl = interface(IDispatch)
    ['{2383647A-6772-4B8B-AC50-251B3D8F01E3}']
    function connect(const IPAddr: WideString; Port: Integer;
      const bstrAccountID: WideString; const bstrPassword: WideString)
      : ConnectResultEnum; safecall;
    procedure disconnect; safecall;
    function Get_connected: WordBool; safecall;
    procedure submit(const Msg: IShortMessage); safecall;
    function Get_AccountID: WideString; safecall;
    procedure Set_AccountID(const pVal: WideString); safecall;
    function Get_signature: WideString; safecall;
    procedure Set_signature(const pVal: WideString); safecall;
    function Get_MsgID: WideString; safecall;
    function Get_SequenceID: WideString; safecall;
    function Get_needStatus: WordBool; safecall;
    procedure Set_needStatus(pVal: WordBool); safecall;
    procedure submit_LongMsg(const Msg: IShortMessage; speed: SYSINT); safecall;
    property connected: WordBool read Get_connected;
    property AccountID: WideString read Get_AccountID write Set_AccountID;
    property signature: WideString read Get_signature write Set_signature;
    property MsgID: WideString read Get_MsgID;
    property SequenceID: WideString read Get_SequenceID;
    property needStatus: WordBool read Get_needStatus write Set_needStatus;
  end;


// *********************************************************************//
  // DispIntf:  _IemptclEvents
  // Flags:     (4096) Dispatchable
  // GUID:      {C4380BFC-9918-4DF7-B937-01ECC5E94E2D}
  // *********************************************************************//
  _IemptclEvents = dispinterface
    ['{C4380BFC-9918-4DF7-B937-01ECC5E94E2D}']
    function MessageReceived(const MsgID: WideString; const srcID: WideString;
      const content: WideString; submitDatetime: OleVariant): HResult; dispid 1;
    function MessageReceivedInterface(const sm: ISMDeliverd): HResult; dispid 2;
    function StatusReceived(const MsgID: WideString; const DestID: WideString;
      doneDatetime: OleVariant): HResult; dispid 3;
    function StatusReceivedInterface(const sm: IStatusReport): HResult;
      dispid 4;
    function SubmitResp(const MsgID: WideString; Result: Integer;
      SequenceID: Integer): HResult; dispid 5;
    function SubmitRespInterface(const sm: ISubmitResp): HResult; dispid 6;
    function EMPPClosed(errorCode: Integer): HResult; dispid 7;
    function SocketClosed(errorCode: Integer): HResult; dispid 8;
    function EMPPConnected: HResult; dispid 9;
  end;


說明：
   上面的介面是中國移動短信平臺提供的介面，下面則是該介面的觸發事件。
   我現在要回應事件，比如說，如何回應下面事件介面中的EMPPConnected
  回應的代碼類似于這樣的：
  function EMPPConnected:HResult;
  begin
     showmessage('連接成功了。');
  end;

uj5u.com熱心網友回復：

你先寫個類實其介面；
然后create一下，再給其回呼函式賦值,就可以呼叫到了，另外如果有要連硬體的話，還要檢測硬體狀態。

uj5u.com熱心網友回復：

能提供一下你的郵箱嗎？我把問題發到你的郵箱吧。

uj5u.com熱心網友回復：

回復 xqchenxue2：

_IemptclEvents 是一個事件，第三方的DLL已經實作好了，我現在要做的是如何回應這個事件。

uj5u.com熱心網友回復：

[email protected]

uj5u.com熱心網友回復：

難道控制源檔案里沒有一個OLE控制元件

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/78848.html

標籤：VCL組件開發及應用

上一篇：Delphi 的 strpas函式存放在哪個dll檔案內？

下一篇：delphi Image視頻錄像