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 ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
