问一个简单的问题,精于网络编程的大虾请进!!!(100分)

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #1

问题描述:

服务端采用线程阻塞模式,客户端采用非阻塞模式,
在服务端的TServerSocket的OnGetThread事件中利用
ClientSocket.SendText('hello');发送信息给连接上来的客户端,
在客户端的TClientSocket的OnRead事件中利用ReceiveText来接收数据,
为何读出来的数据为空??????

急,请高人帮忙!

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #2

没人回答吗?[]

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #3

睡了先。
估计是你服务和客户两端没通。
单步设置断点调试一下就知道了啊！（开两个Delphi，先在本机跑，分别在两个程序中设置断点）

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #4

to gydldfw,
我就是在本机调试的,
在delphi中设单步断点,
可ReceiveText中接收到的消息就是为空!
郁闷![!]

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #5

我累了，886。
我明天有时间的话，调调。

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #6

希望明天能够解决！
晚安！

 

G

gydldfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-21

• #7

我解决不了，还是有好多人的！

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #8

服务端 :
procedure TFrmServer.SocketTransGetThread(Sender: TObject; ClientSocket: TServerClientWinSocket; var SocketThread: TServerClientThread);
begin
ClientSocket.SendText('Hello');
SocketThread := TDbServerThread.Create(False, ClientSocket);
end;
客户端:
procedure TFrmClient.SocketTransRead(Sender: TObject; Socket: TCustomWinSocket);
var
StrMsg: string;
begin
StrMsg := Socket.ReceiveText;
// 接收到的 StrMsg = '' ?????
........
end;

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #9

请大家看看可能错哪了.

进者有分!

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #10

没人知道吗????

 

E

ego

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #11

Procedure TForm1.ServerSocketGetThread(Sender: TObject;
ClientSocket: TServerClientWinSocket;
Var SocketThread: TServerClientThread);
Begin
// Create a new thread for connection
SocketThread := TFileServerThread.Create(False, ClientSocket);
ClientSocket.SendText('Welcome to Server'+#13#10);
End;

 

爱

爱元元的哥哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #12

把一个例子发给你！

 

V

venda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #13

多人接受答案了。