关于socket

Question

过程如下：
procedure TfMain.N7Click(Sender: TObject);
begin
  ClientSocket1.Address:=pub.ServerIp;
  ClientSocket1.Port:=pub.Port1;
  ClientSocket1.Open;
  ClientSocket1.Socket.SendText('['+IntToStr(ptLogin)+'#'+Edit1.Text+'#'+Edit2.Text+']');
end;
为什么服务器端收不到信息。
但再运行一次就行了

Answer 1

在socket打开后，是不能直接发送消息的，不然服务器端会收不到的

Answer 2

请问ClientSocket，在那有下载，我的delphi没有~！~！~！~！~

Answer 3

对，连接不能马上发送消息，握手有一个时间，你可以在OnConnect Everts里面写ClientSocket1.Socket.SendText();

Answer 4

http://community.csdn.net/Expert/TopicView1.asp?id=3326247上这里去看

Answer 5

procedure TfMain.N7Click(Sender: TObject);
begin
  ClientSocket1.Active:=false;
  ClientSocket1.Address:=pub.ServerIp;
  ClientSocket1.Port:=pub.Port1;
  ClientSocket1.Active:=true;
  ClientSocket1.Socket.SendText('['+IntToStr(ptLogin)+'#'+Edit1.Text+'#'+Edit2.Text+']');
end;

Answer 6

cdsgajxlp(新手) 
ClientSocket.open后不能马上Sendtext

Answer 7

对，连接不能马上发送消息，握手有一个时间，你可以在OnConnect Everts里面写ClientSocket1.Socket.SendText();-----------
同意