非常奇怪的一个问题??急!!

[IDWB]

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket.Host:=hostedit.Text;
ClientSocket.Port:=strtoint(portedit.Text);
ClientSocket.Open;
sleep(100); //这里无论多少时间都一样
ClientSocket.Socket.SendText('abcd');
end;
服务器端始终收不到abcd
我用sniffer查看了发现没有发过abcd的包

但是
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket.Socket.SendText('abcd');
end;
就可以收到
用sniffer发现有包

[hongqi162]

var
  timeout: integer;
begin
  ClientSocket.Host:=hostedit.Text;
  ClientSocket.Port:=strtoint(portedit.Text);
  ClientSocket.Open;
  timeout := 0;
  while not ClientSocket.Socket.Connected and (timeout< 500) do
  begin
    Application.ProcessMessages;
    Sleep(1);
    inc(timeout);
  end;
  if ClientSocke.Socket.Connected then begin
    ClientSocket.Socket.SendText('abcd');
  end;
end;

//Open不等于已经建立连接了

[yct0605]

还是应该判断是否连接成功了，然后在发送数据。

[bdmh]

你应该确保ClientSocket已经连接上,在进行发送
ClientSocket应该有Connect事件,在里面判断是否连接成功,如果成功,则发送

[IDWB]

应该是连上了,而且我用sniffer发现连接已经发起,然后sleep,但是执行到sendtext,没有发现发包.
不过bdmh的建议不错,我一直钻了牛角

[7年]

帮顶，学习。

[sll853]

应该判断是否连接成功了，然后在发送数据。

[悦铉]

一楼说的对，在发送数据之前一定要加上判断
if clientSocket.connected then
begin
clientSocket.sendText('asdf');
end;

[xiaoxian251]

ClientSocket.Host:=hostedit.Text;
ClientSocket.Port:=strtoint(portedit.Text);
ClientSocket.Open;
sleep(100); //这里无论多少时间都一样
Application.ProcessMessages;
ClientSocket.Socket.SendText('abcd');

[kye_jufei]

已经不是建立连接了吗