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
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
ÇëÎÊdelphiÖеϲ¼ÄÜ»æ×ø±êͼÂð£¬ÄÇλ´óʦÓÐÕâ·½ÃæµÄÀý×Ó£¬°ïæ·¢Ò»¸ö£¬Ð»Ð»ÁË£¡ÎÒµÄÓÊÏäÊÇspringbird2006@126.com
tChart¿Ø¼þ¾Í¿ÉÒÔ£¬»¹ÓÐһЩµÚÈý¿Ø¼þ¡£ÏÂÔØÆµµÀÀï¾ÍÓв»ÉÙ¡£
¿É²»¿ÉÒÔ˵¾ßÌåµãÄØ£¬ÎÒ¸Õѧdelp ......