A
along407
Unregistered / Unconfirmed
GUEST, unregistred user!
//================Com+对象中的程序片断========================
function TArea.CreateForm(iDComCon1, iDComCon2: SYSINT;
const sTableName: WideString;
iParentWindow: SYSINT): OleVariant;
var
iRet:Integer;
Data:OleVariant;
begin
iRet:=Integer(Form1);
vServerObj:=TDComConnection(iDComCon1).AppServer;
vServerObj.GetData(sTableName,Data);//这句出错:'应用程序调用另一个线程整理的接口'
Form1.ParentWindow:=TPanel(iParentWindow).Handle;
with Form1do
begin
Left:=0;
Top:=0;
Width:=TPanel(iParentWindow).Width;
Height:=TPanel(iParentWindow).Height;
Show;
end;
Result:=iRet;
end;
//====================================================================
用下面的方式调用此Com+对象
var
Server:Variant;
CForm:TForm;
begin
Server:=CreateOleObject('BaseInfo.Area');
CForm:=TForm(Integer(Server.CreateForm(Integer(DComConnection1),Integer(DComConnection2),'Area',integer(P1))));
end;
发生:'应用程序调用另一个线程整理的接口'错误!DComConnection连接的是MTS服务器.如果
换为DCom就不会错.
这是怎么回事啊?有经验的朋友帮忙看看.谢谢.
function TArea.CreateForm(iDComCon1, iDComCon2: SYSINT;
const sTableName: WideString;
iParentWindow: SYSINT): OleVariant;
var
iRet:Integer;
Data:OleVariant;
begin
iRet:=Integer(Form1);
vServerObj:=TDComConnection(iDComCon1).AppServer;
vServerObj.GetData(sTableName,Data);//这句出错:'应用程序调用另一个线程整理的接口'
Form1.ParentWindow:=TPanel(iParentWindow).Handle;
with Form1do
begin
Left:=0;
Top:=0;
Width:=TPanel(iParentWindow).Width;
Height:=TPanel(iParentWindow).Height;
Show;
end;
Result:=iRet;
end;
//====================================================================
用下面的方式调用此Com+对象
var
Server:Variant;
CForm:TForm;
begin
Server:=CreateOleObject('BaseInfo.Area');
CForm:=TForm(Integer(Server.CreateForm(Integer(DComConnection1),Integer(DComConnection2),'Area',integer(P1))));
end;
发生:'应用程序调用另一个线程整理的接口'错误!DComConnection连接的是MTS服务器.如果
换为DCom就不会错.
这是怎么回事啊?有经验的朋友帮忙看看.谢谢.