首先 Set com = CreateObject("COM接口") 然后 COM.方法 例:有一接口为TT的COM,里面有一个GETDATE的函数,在ASP中可这样调用<% Set com = CreateObject("TT") LDATE=COM.GETDATE %>
<HTML> <BODY> <TITLE> Testing Delphi ASP </TITLE> <CENTER> <H3> You should see the results of your Delphi Active Server method below </H3> </CENTER> <HR> <% Set DelphiASPObj = Server.CreateObject("Project1.aspDelphiObject") DelphiASPObj.GetData(name) %> <br> <%=name%> <HR> </BODY> </HTML> 我的com用delphi做的! com中的代码是这样,按理说网页应该输出“name"的!但却是空的! function TaspDelphiObject.GetData(var Name: OleVariant): HResult; begin Name:='Name'; end;
function TaspDelphiObject.GetData(var Name: OleVariant): HResult; begin Response.Write('<p>name'); end; 但用了这个,在网页上就有"name"输出了!
调用这个方法呢?
然后 COM.方法
例:有一接口为TT的COM,里面有一个GETDATE的函数,在ASP中可这样调用<%
Set com = CreateObject("TT")
LDATE=COM.GETDATE
%>
<BODY>
<TITLE> Testing Delphi ASP </TITLE>
<CENTER>
<H3> You should see the results of your Delphi Active Server method below </H3>
</CENTER>
<HR>
<%
Set DelphiASPObj = Server.CreateObject("Project1.aspDelphiObject")
DelphiASPObj.GetData(name)
%>
<br>
<%=name%>
<HR>
</BODY>
</HTML>
我的com用delphi做的!
com中的代码是这样,按理说网页应该输出“name"的!但却是空的!
function TaspDelphiObject.GetData(var Name: OleVariant): HResult;
begin
Name:='Name';
end;
begin
Response.Write('<p>name');
end;
但用了这个,在网页上就有"name"输出了!
一定正确的!
另外,调用com+,注意你的事务处理,通常com+的对象使用支持事务,而事务由asp发起!
具体怎么写??