H
hsj
Unregistered / Unconfirmed
GUEST, unregistred user!
我的系统是三层体系，客户端通过SocketConnection连接，下面出现AppServer就是
SocketConnection.AppServer.
用户服务器方法：
procedure TDataMD.GetData(RcdSet: OleVariant);
var
c:TClientDataset;
begin
c:=TClientDataSet.Create(nil);
c.Data:=RcdSet;
//...//
c.Free;
end;
客户端方法：
procedure TdlgInputInfo.Button1Click(Sender: TObject);
var
Tmp:OleVariant;
begin
AppServer.GetData(ClientDataSet1.Data);//第一次尝试，正常
Tmp:=ClientDataSet1.Data;//变量赋值
AppServer.GetData(Tmp);
//第二次尝试，异常，说什么Missing data provider or data packet
end;
我想我这里的代码也比较简单，就是把一个OleVariant的值传给服务器，但是使用ClientDataSet1.Data
作为参数没有问题，而把ClientDataSet1.Data的值赋给一个变量，然后再把这个变量作为
参数传给服务器却出现这个错误，真是搞不懂！这个代码原来在Delphi5中根本没什么问题，
什么要升到Delphi6，简直把我害苦了。
请教各位仁兄贤妹，这是不是Delphi6的一个Bug啊?还是我哪里搞错了？
SocketConnection.AppServer.
用户服务器方法：
procedure TDataMD.GetData(RcdSet: OleVariant);
var
c:TClientDataset;
begin
c:=TClientDataSet.Create(nil);
c.Data:=RcdSet;
//...//
c.Free;
end;
客户端方法：
procedure TdlgInputInfo.Button1Click(Sender: TObject);
var
Tmp:OleVariant;
begin
AppServer.GetData(ClientDataSet1.Data);//第一次尝试，正常
Tmp:=ClientDataSet1.Data;//变量赋值
AppServer.GetData(Tmp);
//第二次尝试，异常，说什么Missing data provider or data packet
end;
我想我这里的代码也比较简单，就是把一个OleVariant的值传给服务器，但是使用ClientDataSet1.Data
作为参数没有问题，而把ClientDataSet1.Data的值赋给一个变量，然后再把这个变量作为
参数传给服务器却出现这个错误，真是搞不懂！这个代码原来在Delphi5中根本没什么问题，
什么要升到Delphi6，简直把我害苦了。
请教各位仁兄贤妹，这是不是Delphi6的一个Bug啊?还是我哪里搞错了？