用clientsocket接收数据集,望高手赐教，如可行必酬谢(50分)

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #1

我用serversocket从库读取数据，用DataSetProvider1存储并赋给一变量，并用sendbuf
发送，客户端用ReceiveBuf接受，并给ClientDataSet1赋值，在客户端显示数据；
我现在可以发送成功，可是不能接受不成功
如能解决，另开一帖给分300

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #2

你有没有确定clientsocket的已经connected上serversocket了？

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #3

确定连上了

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #4

你是在哪里完成对server端数据的接收的，代码呢？

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #5

在onclientread里面
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
MyData:variant;
Pointer;//Add
Size:Integer;
begin
if socket.ReceiveText='1' then
begin
MyData:=DataSetProvider1.Data;
Size:=VarArrayHighBound(MyData,1)-VarArrayLowBound(MyData,1)+1;
P:=VarArrayLock(MyData);
Socket.SendBuf(P^,Size);
end;
end;

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #6

上面这一段是server端读client时发生的，你的client的onread是怎么写的呢？

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-02

• #7

我就是不知道客户端如何接受

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #8

发送代码估计有问题

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #9

张教主：
发送代码是我在以前的帖子里找到的，我socket发送文件不了解 望指教

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #10

不知道_0909，建议你去看看delphi中自带的范例chat，里面就有用到socket!

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #11

不知道是哪个范例

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #12

邮箱：。。。。
发给你。

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #13

TYZhang:
谢谢你，昨天在大富翁列表中找不到你；上面就是看的你的帖子；
我的信箱是:zzb0909@sina.com

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #14

按这个路径找C:/Borland/Delphi5/Demos/Internet/Chat

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #15

to 不知道_0909:
收邮件吧！
先运行服务器端，然后再运行客户端，输入服务器端的IP地址，点击GetData就可以
取得数据了。

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #16

TYZhang:
我还没有收到邮件，如果方便麻烦你在下面的邮箱中再发送一次
fish919yu@sohu.com
zzb0909@xwsx.com

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #17

to 不知道_0909:
再收邮件吧！

 

伊

伊天仇

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #18

在客户端中加个midas中的socketconnetct来实现吧!

 

不

不知道_0909

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-03

• #19

谢谢TYZhang邮件已收到，
我另开一帖给你分；
另外多谢伊天仇