关于asp 调delphi创建的自动化组件(分数好说)(100分)

  • 主题发起人 主题发起人 汪汪汪汪
  • 开始时间 开始时间

汪汪汪汪

Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi写了个自动化对象,实现两个接口,代码如下:
procedure Tmethodobject.getname(out myname: OleVariant);
begin

myname:='hello';
end;

procedure Tmethodobject.insert(var mydata: OleVariant);
var query1:Tquery;
database1:Tdatabase;
begin
query1:=Tquery.Create(nil);
database1:=Tdatabase.Create(nil);
database1.AliasName :='test';
database1.DatabaseName :='test';
database1.LoginPrompt :=false;
database1.Params.Clear
database1.Params.Add('user name=sa');
database1.Params.Add('password=');
database1.Connected :=true;
query1.DatabaseName:='test';
with query1 do
begin
close;
sql.clear;
sql.add('insert into test values('''+mydata[0]+''',
'''+mydata[1]+''')');
execsql;
end;
query1.close;
database1.CloseDataSets
query1.Free;
database1.Free;
end;
编译通过,并注册了dll,我要在asp中调用这两个接口
asp的代码如下:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim mydata(2),me1
mydata(0)="121"
mydata(1)="121"

set myobject=server.CreateObject("wangwang.methodobject") '创建对象成功
myobject.getname me1 '此方法调用也成功
response.write me1
myobject.insert mydata '但是这个方法调用始终不成功
set myobject=nothing
%>
<P>&amp;nbsp;</P>

</BODY>
</HTML>
数据库在sql server上,不知道我哪里写错了,望大侠就我阿。。
 
问题自己解决了,只要用adoquery 代替query就可以了,
不知道是不是asp不支持bde控件阿?
 
请那位高手把它翻译成BCB把,我急需这个东西
 
老大你真狠噢
居然就在Insert中生成一个Query 和 DataBase

用书籍模块不是更好吗? 不用每次数据库操作都Create这两个东西呀,而且还要考虑Session
 
asp不支持Query;
 
后退
顶部