R
roczhoupeng
Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手!下午好!
本人目前有一难题不能解决(目前急需解决的问题).
在Delphi7中写一应用程序,其方式为:
1)中间层采用Soap方式连接SQL SERVER2000数据,同时中间层的所有方法及相关属性写在SOAP Server Data Module中.
如方法rocedure OpenData(const vSql:WideString; var vXMLData:OleVariant); stdcall;
begin
try
ADOQuery1.Close ;
ADOQuery1.SQL.Text := vSql ;
ADOQuery1.Open ;
ClientDataSet1.Data := DataSetProvider1.Data ;
vXMLData := ClientDataSet1.XMLData ;
Result := 'OK';
except
Result:='取数失败!';
end;
end;
2)客户端与中间层之间用SOAP的HTTPRIO1控件连接
3)客户端调中间层方法:
如:
procedure TFrm_2.BitBtn1Click(Sender: TObject);
var
aIntf : ISoapTestIASPI3;//中间层接口
vxmlData: OleVariant;
ss: WideString;
begin
ss := 'select * from '+trim(RWComboBox1.Text);
try
aIntf := HTTPRIO1 as ISoapTestIASPI3 ; //IAppServer;
aIntf.OpenData(ss,vxmlData);
ClientDataSet1.XMLData := vxmlData ;
finally
aIntf := nil ;
end;
end;
4)问题:
1)在客户端运行时,有的客户端运行一切正常,有的客户端运行间出现'Variant or sate array id looked'错误,
2)在服务器上运行客户端时,有的计算机运行一切正常,有的计算机出现'Variant or sate array id looked'错误
请问各位高手,出现这一现象该如何解决? 谢谢!!!
本人目前有一难题不能解决(目前急需解决的问题).
在Delphi7中写一应用程序,其方式为:
1)中间层采用Soap方式连接SQL SERVER2000数据,同时中间层的所有方法及相关属性写在SOAP Server Data Module中.
如方法rocedure OpenData(const vSql:WideString; var vXMLData:OleVariant); stdcall;
begin
try
ADOQuery1.Close ;
ADOQuery1.SQL.Text := vSql ;
ADOQuery1.Open ;
ClientDataSet1.Data := DataSetProvider1.Data ;
vXMLData := ClientDataSet1.XMLData ;
Result := 'OK';
except
Result:='取数失败!';
end;
end;
2)客户端与中间层之间用SOAP的HTTPRIO1控件连接
3)客户端调中间层方法:
如:
procedure TFrm_2.BitBtn1Click(Sender: TObject);
var
aIntf : ISoapTestIASPI3;//中间层接口
vxmlData: OleVariant;
ss: WideString;
begin
ss := 'select * from '+trim(RWComboBox1.Text);
try
aIntf := HTTPRIO1 as ISoapTestIASPI3 ; //IAppServer;
aIntf.OpenData(ss,vxmlData);
ClientDataSet1.XMLData := vxmlData ;
finally
aIntf := nil ;
end;
end;
4)问题:
1)在客户端运行时,有的客户端运行一切正常,有的客户端运行间出现'Variant or sate array id looked'错误,
2)在服务器上运行客户端时,有的计算机运行一切正常,有的计算机出现'Variant or sate array id looked'错误
请问各位高手,出现这一现象该如何解决? 谢谢!!!