A
asharper
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟用Delphi7开发一个Intraweb程序,通过一个DLL形式的COM接口调用其中的一个函数,Intraweb程序中界面oncreate过程是这样写的
procedure TformMainjbxx.IWAppFormCreate(Sender: TObject);
var
vCom: Variant;
vData: OleVariant;
begin
vCom:=CreateOleObject('comdemo.demoserver');//调用COM接口
vCom.QueryPszy('select * from pszy',vData);//调用COM接口中的函数
with DatamoduleUnit.DataModule1.CDSGetpszy do//Intraweb程序中DataModule单元
//中的clientdataset
begin
Active:=false;
XMLData:= vData;
Active:=true;
end;
end;
在打开界面的时候提示的错误信息是:尚未调用CoInitialize,小弟跪求解决方法。
procedure TformMainjbxx.IWAppFormCreate(Sender: TObject);
var
vCom: Variant;
vData: OleVariant;
begin
vCom:=CreateOleObject('comdemo.demoserver');//调用COM接口
vCom.QueryPszy('select * from pszy',vData);//调用COM接口中的函数
with DatamoduleUnit.DataModule1.CDSGetpszy do//Intraweb程序中DataModule单元
//中的clientdataset
begin
Active:=false;
XMLData:= vData;
Active:=true;
end;
end;
在打开界面的时候提示的错误信息是:尚未调用CoInitialize,小弟跪求解决方法。