B
backup
Unregistered / Unconfirmed
GUEST, unregistred user!
我想编写用在WEB 服务器上的ActiveX Server对象，用ASP调用，按照网上的文章：“用Delphi编写ASP的ActiveX
网址： http://blog.csdn.net/yeagen/archive/2006/04/04/650098.aspx
”自己摸索了一下，加入了#include "ASPTypeLibrary_TLB.H"
编译成功，但是有一个问题：
文章中提到了m_scriptContext这个变量在BCB中是什么呢？
我自己生成了ScriptingContextPtr的对象scp，但是运行*.asp后在页面上没有结果，刷新两次就死机！
ScriptingContextPtr scp;
STDMETHODIMP TTestObjectImpl::OnEndPage()
{
// ScriptingContextPtr aa;
// aa->Response->Write()
scp->Release();
}
STDMETHODIMP TTestObjectImpl::OnStartPage(LPUNKNOWN unk)
{
scp=unk;
}
STDMETHODIMP TTestObjectImpl::Test()
{
AnsiString s="Server Side Active Test for ASP";
Variant v=s;
scp->Response->Write(v);
scp->Response->End();
}
网址： http://blog.csdn.net/yeagen/archive/2006/04/04/650098.aspx
”自己摸索了一下，加入了#include "ASPTypeLibrary_TLB.H"
编译成功，但是有一个问题：
文章中提到了m_scriptContext这个变量在BCB中是什么呢？
我自己生成了ScriptingContextPtr的对象scp，但是运行*.asp后在页面上没有结果，刷新两次就死机！
ScriptingContextPtr scp;
STDMETHODIMP TTestObjectImpl::OnEndPage()
{
// ScriptingContextPtr aa;
// aa->Response->Write()
scp->Release();
}
STDMETHODIMP TTestObjectImpl::OnStartPage(LPUNKNOWN unk)
{
scp=unk;
}
STDMETHODIMP TTestObjectImpl::Test()
{
AnsiString s="Server Side Active Test for ASP";
Variant v=s;
scp->Response->Write(v);
scp->Response->End();
}