delphi中socket连接问题

Question

我在做socket连接时,必须加个按钮执行socket.open连接SERVER端成功后,然后再加一个按钮专门用作发送数据,怎么才能把这两个按钮合并成一个,连接后直接发送或者发送前自动连接.

Answer 1

在onconnect事件里面写socket.sendtext('');喽，非常简单啊

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
  TcpClient1.RemoteHost :='地址';
  TcpClient1.RemotePort :='端口';
  tcpclient1.Active:=false;
  TcpClient1.RemotePort := edit2.Text;//发送一条数据
  tcpclient1.Active:=true;
  bool_st:=true;//状态
end;如果想在这之前发，可以用下面的procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
  if bool_st then
  begin
    TcpClient1.Sendln('内容');//发送数据
    bool_st:=false;
  end;
end;