Delphi xe 的Indy控件 TIdTCPClient 监听问题

[benzhhell]

TIdTCPServer 收发都没有问题了，现在是 TIdTCPClient 监听有问题了

TCPClient.Connect成功以后，会 创建一个线程
//创建线程
ThreadHandle := CreateThread(nil, 0, @TForm5.ClientListen, nil, 0, ThreadId);

下面就是仿照 TIdTCPServer 玩的，原来的 Socket.ReadLn 没有问题，现在换成这个Socket.ReadBytes或者.IOHandler.ReadBytes，都出现一个问题，就是服务器端发送的字节，客户端没有响应也就是 检查len =0，但是客户端发送字节后，服务器照常接收，这个时候上次发给客户端的字节过来了，也就是检查len>0了，很奇怪，也就是大家有什么好的建议

procedure TForm5.ClientListen;
var
len:integer;
s:string;
buffer:TBytes;
begin
while true do

begin

try

len :=Form5.TCPClient.Socket.InputBuffer.Size;

if len > 0 then
begin

//s :=Form5.TCPClient.Socket.ReadLn('');
Form5.TCPClient.Socket.ReadBytes(buffer, len, false);
//Form5.TCPClient.IOHandler.ReadBytes(buffer, len, false);
//转化成字符串
s := stringof(buffer);
Form5.SendConsole.Lines.Add(s);
end;
except

end;
end;
end;

[iamduo]

服务器端的逻辑有问题吧？
本来嘛，Indy的机制是阻塞式的。
控制的不好就变成这样了。

[benzhhell]

服务器就是用

buffer := bytesof(Edit3.Text);
BzAContext.Connection.IOHandler.Write(buffer);

BzAContext是在服务器连接成功后 procedure TForm5.TCPServerConnect(AContext: TIdContext);中获得 BzAContext :=AContext;

这个服务器发的，服务器使用其他小工具sokit测试过，没有问题

[wylton]

BzAContext是在服务器连接成功后 procedure TForm5.TCPServerConnect(AContext: TIdContext);中获得 BzAContext :=AContext;

你这个BzAContext有问题哦。
TForm5.TCPServerConnect(AContext: TIdContext) 中，AContext是会随时改变的变量。
所以你这个BzAContext也随时在变。

由此判断你的程序写得有问题。
你可以在onExecute事件用AContext答复客户端试试能否收到回答。

[kaikai_kk]

客户端TIdTCPClient用线程监听接收数据
服务器TIdTCPServer在onExecute事件接收数据,每1个客户端连接(参数AContext)相当于1个线程
数据到达时就自动触发onExecute,TIdTCPServer会自己维护这个AContext

所以不须要在Connect事件中保存AContext

所有的连接都在IdTCPServer.Contexts里面,自己判断Handle

[changsn]

你这个，这么看得那么别扭……
启动后，为什么还要开一个线程？
本来INDY设计是很明朗的，TCP，一个客户，启动一个线程，一对一。

[wylton]

你能否贴出你服务端的代码？

[wylton]

这是我客户端的读入

var
RxBuf:TIdBytes;
CB----是我的另一结构变量

SetLength(RxBuf, SizeOf(CB)); //否则读入不会改变

idTCPClient1.IOHandler.ReadBytes(RxBuf, SizeOf(CB), False);
Idglobal.BytesToRaw(RxBuf, CB, SizeOf (CB));

这样cb就赋值了。


你的
var
len:integer;
s:string;
buffer:TBytes;
begin

buffer:TBytes;-----这个是否有问题呢？

[benzhhell]

wylton，我读取的东西，字节大小不定的怎么办，你的SizeOf(CB)，明显是一个定尺寸的读取，不过你可以给我代码，我可以借鉴，实验一下了。多谢了，要是帮我考虑不定尺寸就好了，就像服务器端的
len :=AContext.Connection.IOHandler.InputBuffer.Size;
if len > 0 then
begin
AContext.Connection.IOHandler.ReadBytes(buffer, len, false);

//转化成字符串
s := stringof(buffer);

Self.Console.Lines.Add(s);


end;

这个就可以玩的，好用的

[wylton]

你服务端发送的代码不贴出来，就让别人猜测你的错误？

SizeOf(服务器要发送的东西)其实都有固定的最大值。。所以文件传输和大点的东西，都要分块。

[benzhhell]

wylton
我实验了在onExecute事件用AContext直接答复客户端也是收不到。

kaikai_kk
我理解你的意思，拿如果不使用这个零时AContext，我用什么来发给客户端，因为总有情况是不在onExecute事件里发给客户端，随时可能在其他地方如一个按钮触发

我服务器使用我获得的那个AContext，是可以发给 小工具 sokit ，他能够正常接收，sokit 发出来的，我的服务器也可以正常接收到的，证明服务器是好的。客户端还是有问题。
当时用WriteIn 和 ReadIn 服务器客户端都可以，但是我还是要求收发字节（不带0d0a）的，这个就出了点问题

两位仁兄可否给点你们写的代码，其他哥们朋友也可以帮个忙，谢谢

[benzhhell]

[Quote=引用 12 楼 的回复:]
你服务端发送的代码不贴出来，就让别人猜测你的错误？

SizeOf(服务器要发送的东西)其实都有固定的最大值。。所以文件传输和大点的东西，都要分块。
[/Quote]

楼上的哥们看看2楼就知道了吧，早就贴了出来了，还有其他哥们说我的BzAContext有问题，其实经过 小工具 sokit 测试，服务器这边都可以的。关键还是我这边的客户端的接收。我可以实验一下你那样的接收固定大小的，最好，有没有不知道大小的，就是像服务器这边先测试长度，再去读取。

[shuihan20e]

可以这样，数据包分两部分，先发数据包类型，再发数据包内容

每次读的时候，根据包的类型，来读包的长度

[wylton]

俺不敢再热情了，是俺傻？
俺提出的测试方案，他都不敢试。。也不敢去思考。

[wylton]

你可以先发长度值，再发buffer.

[benzhhell]

这么别扭，客户端不管这么多，他是发不定长度的报文

[benzhhell]

要是都是我自己编程也就简单了，现在人家有现成的程序，就是不定长度的发和收的，


wylton没有关系，你已经帮我很多了，哥们感谢你给我那些思路
shuihan20e有什么具体代码可以贴一点吧

[dth886]

请问楼主能否把你服务端和客户端的代码发送给我啊，我是学生，正在自学delphi里服务端和客户端之间通信的内容，苦于找不到好的例程，连那几个控件如何设置都不会，不管怎样，谢谢了
[e-mail]

[zjsyming]

我今天也遇到你一样的问题 我看了一下源码 TIdTCPClient在读取之前加一句FIdTCPClient.IOHandler.CheckForDataOnSource;就可以了 FIdTCPClient.IOHandler.CheckForDataOnSource; if not FOwner.FIdTCPClient.IOHandler.InputBufferIsEmpty then begin FIdTCPClient.IOHandler.ReadBytes(buffer,FIdTCPClient.IOHandler.InputBuffer.Size, False); BytesToRaw(buffer, FOwner.ReceiveBuffer, Length(buffer)); end; 我用的delphi2007，我想xe应该也差不多

[UnkownState]

idtcpclient是客户端组件，不能监听