socket

Question

procedure TfSocketClient.ButtonClick(Sender: TObject);
begin
  with  ClientSocket do
  begin
    port:=2056;
    Address:='127.0.0.1';
    clienttype:=ctNonBlocking;
    active:=true;
    socket.sendtext(eInfo.Text);
    active:=false;
    free;
  end;
end;
为什么要点击2次才能发送成功

Answer 1

点一次，连接成功，程序跳到Connect事件中去执行了.
再点一次,就....还是使用twinsocketstream连做.这样很爽的!很好控制!

Answer 2

你使用twinsocketstream来接收就不会出现那种问题！
设置一个等待时间，如果超过等待时间就game over了！调试的时候你是单步执行，速度慢！
好象直接运行的时候就象我说的那样！