Delphi xe 的Indy控件 TIdTCPClient 监听问题

Question

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;

Answer 1

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

Answer 2

服务器就是用buffer := bytesof(Edit3.Text);
BzAContext.Connection.IOHandler.Write(buffer);BzAContext是在服务器连接成功后 procedure TForm5.TCPServerConnect(AContext: TIdContext);中获得 BzAContext      :=AContext;这个服务器发的，服务器使用其他小工具sokit测试过，没有问题

Answer 3

BzAContext是在服务器连接成功后 procedure TForm5.TCPServerConnect(AContext: TIdContext);中获得 BzAContext :=AContext;你这个BzAContext有问题哦。
TForm5.TCPServerConnect(AContext: TIdContext) 中，AContext是会随时改变的变量。
所以你这个BzAContext也随时在变。由此判断你的程序写得有问题。
你可以在onExecute事件用AContext答复客户端试试能否收到回答。

Answer 4

客户端TIdTCPClient用线程监听接收数据
服务器TIdTCPServer在onExecute事件接收数据,每1个客户端连接(参数AContext)相当于1个线程
数据到达时就自动触发onExecute,TIdTCPServer会自己维护这个AContext所以不须要在Connect事件中保存AContext所有的连接都在IdTCPServer.Contexts里面,自己判断Handle

Answer 5

wylton
我实验了在onExecute事件用AContext直接答复客户端也是收不到。kaikai_kk
我理解你的意思，拿如果不使用这个零时AContext，我用什么来发给客户端，因为总有情况是不在onExecute事件里发给客户端，随时可能在其他地方如一个按钮触发我服务器使用我获得的那个AContext，是可以发给 小工具 sokit ，他能够正常接收，sokit 发出来的，我的服务器也可以正常接收到的，证明服务器是好的。客户端还是有问题。
当时用WriteIn 和 ReadIn 服务器客户端都可以，但是我还是要求收发字节（不带0d0a）的，这个就出了点问题两位仁兄可否给点你们写的代码，其他哥们朋友也可以帮个忙，谢谢

Answer 6

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

Answer 7

这是我客户端的读入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;
beginbuffer:TBytes;-----这个是否有问题呢？

Answer 8

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;这个就可以玩的，好用的

Answer 9

你服务端发送的代码不贴出来，就让别人猜测你的错误？SizeOf(服务器要发送的东西)其实都有固定的最大值。。所以文件传输和大点的东西，都要分块。

Answer 10

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

Answer 11

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

Answer 12

要是都是我自己编程也就简单了，现在人家有现成的程序，就是不定长度的发和收的， 
wylton没有关系，你已经帮我很多了，哥们感谢你给我那些思路
shuihan20e有什么具体代码可以贴一点吧

Answer 13

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

Answer 14

我今天也遇到你一样的问题
我看了一下源码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应该也差不多

Answer 15

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