delphi activx µÄÎÊÌâ 110·Ö

ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ 

[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetIDsOfNames'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'Invoke'
[¾¯¸æ] Unit1.pas(25): Text after final 'END.' - ignored by compiler
[ÖÂÃü´íÎó] MYbho.dpr(6): Could not compile used unit 'Unit1.pas'


------´úÂëÌù³öÀ´¿´¿´--------------------------------


unit Unit1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, ActiveX, Classes, ComObj, MYbho_TLB, StdVcl;

type
  TMyIEBHO = class(TTypedComObject, IMyIEBHO)

  protected
  {ÔÚÕâÀïÉùÃ÷ IMyIEBHO ·½·¨}
  end;
implementation

uses ComServ;

initialization
  TTypedComObjectFactory.Create(ComServer, TMyIEBHO, Class_MyIEBHO,
  ciMultiInstance, tmApartment);
end.
   
  CPC.FindConnectionPoint(DWEBBrowserEvents2,CP);

  CP.Advise(Self,Cookie); //ÓÃAdvise·½·¨ÊµÏÖ¼àÌý

  end;

  end;

  Result:=S_OK;

end;

function TMyIEBHO.GetSite(const riid:TIID;out site:IUnknown):HResult;

begin

  if(Assigned(IEThis))th