这是我程序中的一段代码,明白吗?根据李维的MTS/COM+写的!
var
vDatas: OleVariant;
begin
objFactoryPlanQ := CoCofactoryPlanQuery.CreateRemote(AppServerAddress);
objFactoryPlanQ.GetFactoryPlanBody(GUID,BillID,vDatas);
ClientDataSet1.Data := vDatas;
objFactoryPlanQ := nil;
end;