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
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
