L
Laputa
Unregistered / Unconfirmed
GUEST, unregistred user!
想写一个要在Asp调用的ActiveX,从Asp中获得参数,在ActiveX中操作数据库并返回结果。
查了以前的帖子,New了个ActiveX lib,又New了个Active Server Object,添加一个方法:Test
function TTestObject.Test(const InStr: WideString): WideString;
begin
Result:=Instr;
end;
在Asp中调用:
set DelphiObj = Server.CreateObject("MyServer.TestObject")
response.write DelphiObj.Test("Got it!")
输入“Got it!”,输出“Got it!”运行完全正常。
可是要怎样在ActiveX中查询数据库?用TQuery?
新建了一个Form,加上Query控件,设好属性,把Test方法改为
function TTestObject.Test(const InStr: WideString): WideString;
begin
Result:=form1.Query1['Node_id'];
end;
运行Asp出错:“Server.CreateObject 失败”
把Form1换成ActiveFormX,function TTestObject.Test编译无法通过:“Object or class type required”
找了找,在ActiveForm的单元文件中根本没有定义“ActiveFormX”的类
请问该如何在ActiveX中操作数据库?
查了以前的帖子,New了个ActiveX lib,又New了个Active Server Object,添加一个方法:Test
function TTestObject.Test(const InStr: WideString): WideString;
begin
Result:=Instr;
end;
在Asp中调用:
set DelphiObj = Server.CreateObject("MyServer.TestObject")
response.write DelphiObj.Test("Got it!")
输入“Got it!”,输出“Got it!”运行完全正常。
可是要怎样在ActiveX中查询数据库?用TQuery?
新建了一个Form,加上Query控件,设好属性,把Test方法改为
function TTestObject.Test(const InStr: WideString): WideString;
begin
Result:=form1.Query1['Node_id'];
end;
运行Asp出错:“Server.CreateObject 失败”
把Form1换成ActiveFormX,function TTestObject.Test编译无法通过:“Object or class type required”
找了找,在ActiveForm的单元文件中根本没有定义“ActiveFormX”的类
请问该如何在ActiveX中操作数据库?