S
spdavid
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个OLAP分析可视控件,现需要将它封装在ASP不可视服务器端组件中,代码如下
procedure TaspCubeData.OnEndPage;
begin
CubeX.Free;
inherited OnEndPage;
end;
procedure TaspCubeData.OnStartPage(const AScriptingContext: IUnknown);
begin
inherited OnStartPage(AScriptingContext);
try
CoInitialize(nil);
CubeX := TContourCubeX.Create(nil);
CoUninitialize;
finally
CubeX.Free;
end;
end;
但在asp中调用时
Set DelphiASPObj = Server.CreateObject("aspCubeobj.aspCubeData")
显示dll内部出错
procedure TaspCubeData.OnEndPage;
begin
CubeX.Free;
inherited OnEndPage;
end;
procedure TaspCubeData.OnStartPage(const AScriptingContext: IUnknown);
begin
inherited OnStartPage(AScriptingContext);
try
CoInitialize(nil);
CubeX := TContourCubeX.Create(nil);
CoUninitialize;
finally
CubeX.Free;
end;
end;
但在asp中调用时
Set DelphiASPObj = Server.CreateObject("aspCubeobj.aspCubeData")
显示dll内部出错