A
autumn
Unregistered / Unconfirmed
GUEST, unregistred user!
我的ASP程序中定义了一个这样的方法:
type
TASPTest = class(TASPObject, IASPTest)
protected
procedure OnEndPage;
safecall;
procedure OnStartPage(const AScriptingContext: IUnknown);
safecall;
procedure GETAGUID(var AGUID: OleVariant);
safecall;//用形参返回数据
end;
...
procedure TASPTest.GETAGUID(var AGUID: OleVariant);
begin
AGUID:='ABCDE';
end;
...
我的ASP页面:
<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("TestASP.ASPTest")
DIM ABC
DelphiASPObj.GETAGUID(ABC)
Response.Write(ABC)
%>
<HR>
</BODY>
</HTML>
ASP页面显示的时候不能正确显示ABCDE.请大家指教,在ASP Object的方法中如何返回多个
参数值
type
TASPTest = class(TASPObject, IASPTest)
protected
procedure OnEndPage;
safecall;
procedure OnStartPage(const AScriptingContext: IUnknown);
safecall;
procedure GETAGUID(var AGUID: OleVariant);
safecall;//用形参返回数据
end;
...
procedure TASPTest.GETAGUID(var AGUID: OleVariant);
begin
AGUID:='ABCDE';
end;
...
我的ASP页面:
<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("TestASP.ASPTest")
DIM ABC
DelphiASPObj.GETAGUID(ABC)
Response.Write(ABC)
%>
<HR>
</BODY>
</HTML>
ASP页面显示的时候不能正确显示ABCDE.请大家指教,在ASP Object的方法中如何返回多个
参数值