运行asp组件时出现"Variant do es not reference an automation object" (80分)

  • 主题发起人 主题发起人 eprun
  • 开始时间 开始时间
E

eprun

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个将word 2000文档转换成html的asp组件,但是运行时出错
'Doc2htm.Doc2HtmObject 错误 '8000ffff'

Variant does not reference an automation object

/jy/test1.asp, 行6'

asp代码如下:

<%
dim myhtml
set myhtml=server.createobject("Doc2Htm.Doc2Htmobject")
myhtml.DocName="g:/inetput/wwwroot/jy/111.Doc"
myhtml.HtmSaveName="g:/inetput/wwwroot/jy/111.Htm"
myhtml.Doc2HtmExecute '<-- 出错的行
set myhtml=nothing
%>

delphi代码如下:

unit Unit1;

interface

uses
ComObj, ActiveX, Word_TLB, AspTlb, Doc2htm_TLB, StdVcl;

type
TDoc2HtmObject = class(TASPObject, IDoc2HtmObject)
private
MyDocName:string;
MyHtmName:string;
protected
procedure OnEndPage
safecall;
procedure OnStartPage(const AScriptingContext: IUnknown)
safecall;
function Get_DocName: WideString
safecall;
procedure Set_DocName(const Value: WideString)
safecall;
function Get_HtmSaveName: WideString
safecall;
procedure Set_HtmSaveName(const Value: WideString)
safecall;
procedure Doc2HtmExecute
safecall;
end;

implementation

uses ComServ;

procedure TDoc2HtmObject.OnEndPage;
begin
inherited OnEndPage;
end;

procedure TDoc2HtmObject.OnStartPage(const AScriptingContext: IUnknown);
begin
inherited OnStartPage(AScriptingContext);
MyDocName:='';
MyHtmName:='';
end;

function TDoc2HtmObject.Get_DocName: WideString;
begin
result:=MyDocName;
end;

procedure TDoc2HtmObject.Set_DocName(const Value: WideString);
begin
MyDocName:=value;
end;

function TDoc2HtmObject.Get_HtmSaveName: WideString;
begin
result:=MyHtmName;
end;

procedure TDoc2HtmObject.Set_HtmSaveName(const Value: WideString);
begin
MyHtmName:=value;
end;

procedure TDoc2HtmObject.Doc2HtmExecute;
var
wrd:OleVariant;
Dc:OleVariant;
begin
wrd:=createoleobject('word.Application');
wrd.visible:=false;
try
Dc := Wrd.Documents.open(MyDocName);
wrd.ActiveDocument.SaveAs(MyHtmName,wdFormatHTML);
finally
Dc.Close(false);
Wrd.Quit(False);
end;
end;

initialization
TAutoObjectFactory.Create(ComServer, TDoc2HtmObject, Class_Doc2HtmObject,
ciMultiInstance, tmApartment);
end.
 
>>Variant does not reference an automation object

似乎是CreateObject没有成功
 
代码我都不要看,根本不是程序的问题。
是因为office200的机制造成的,如果你用office97就可以调用。
我也写过这种程序,不过时间长了,有些地方忘了。
如果你要用word2000,那么具体的要求是你要做成com+组件,然后注册在com+服务中。
word2000本身有一种安全机制对于普通的请求是不接受的,所以你在com+环境中可以
绕过它的验证
 
后退
顶部