ClientSocket1 - Conectar e enviar ao mesmo tempo;

Delphi

09/12/2004

Olá,
Tenho o seguinte código:
Begin
  ClientSocket1.Active:=True;
  ClientSocket1.Socket.Sendtext(Edit1.Text+´$´+Edit2.Text+´$´);
End;

O problema é que está apenas conectando, mas não envia a string. Quando coloco a segunda linha da rotina em outro botão ela é enviada, mas gostaria que fosse feito tudo em uma única rotina.
:? Uma ajudinha, por favor.


Sonec2004

Sonec2004

Curtidas 0

Respostas

Massuda

Massuda

09/12/2004

Fazer
  ClientSocket1.Active:=True;
inicia o processo de conexão com o servidor, o que geralmente demora algum tempo. Quando tenta executar
  ClientSocket1.Socket.Sendtext(...);
provavelmente a conexão ainda não foi completada. Experimente enviar sua string no evento OnConnect do TClientSocket.


GOSTEI 0
Sonec2004

Sonec2004

09/12/2004

Valeu, rodô blz...
Brigadao. :D


GOSTEI 0
POSTAR