客户端详服务器请求数据时，可否用自定义的结构作为参数？ ( 积分: 50 )

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #1

当客户端详服务器请求数据时，可以调用DataRequest()方法，也可以调用服务端自定义的接口方法。
但是不论哪个方法，传递的参数都有类型上的限制，我需要传送的是一系列的值，最好使用一个结构，应该如何实现呢？

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #2

当客户端详服务器请求数据时，可以调用DataRequest()方法，也可以调用服务端自定义的接口方法。
但是不论哪个方法，传递的参数都有类型上的限制，我需要传送的是一系列的值，最好使用一个结构，应该如何实现呢？

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #3

还是没人，在线等...

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #4

可以,用vacaint传

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #5

您说的是varaint吧，但是具体应该如何实现呢？我试了很多次都没有成功。

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #6

procedure TForm1.ClientDataSet1AfterGetRecords(Sender: TObject;
var OwnerData: OleVariant<===这个);
begin

end;

procedure TForm1.ClientDataSet1BeforeRowRequest(Sender: TObject;
var OwnerData: OleVariant<===这个);
begin

end;

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #7

谢谢大哥，我写的也是这个意思，可就是在定义接口时：
procedure TForm1.ClientDataSet1AfterGetRecords(Sender: TObject;
var OwnerData: OleVariant<===这个);
begin
如何在这里接收这个OwnerData参数？ 它里面应该保存的是我自定义的结构，不是保留的数据类型。
end;

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-27

• #8

？

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-28

• #9

procedure TForm1.ClientDataSet1BeforeApplyUpdates(Sender: TObject;
var OwnerData: OleVariant);
begin
OwnerData := VarArrayCreate([0, 4], varVariant);
OwnerData[0] := 1;
OwnerData[1] := 1234.5678;
OwnerData[2] := 'Hello world';
OwnerData[3] := True;
OwnerData[4] := VarArrayOf([1, 10, 100, 1000]);
end;

 

Y

youxiazhu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-28

• #10

非常感谢，先奉上仅有的一点积分。
1 您写的这几个事件是不是都是针对客户端的？我需要的是服务段如何接受客户端传来的参数。
2 上面的帖子是对参数赋值，如果在服务端应该是用一个变量接收这个参数吧。我在使用中如果使用相应的结构接受参数，会提示无法转换。
另外我使用的是cb6.0,不知道与delphi是不是会有差别？

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-12-28

• #11

早讲啊,我也使用的是cb6.0