Comportamiento ClientSocket

[bucanero]

Hola a todos!!

puede ser que necesites hacer un Application.processMessages después de intentar conectar para que el componente detecte el cambio de estado, en cualquier caso ¿Que tipo de error te genera?

Intenta probar con este código

Código Delphi [-]
procedure TForm2.TestConnection;
var
  intentos: integer;
begin
  try
    try
      intentos := 30;
      ClientSocket1.Open;
      while (intentos > 0) and not ClientSocket1.Active do begin
        Application.ProcessMessages;
        Sleep(250);
        Dec(intentos);
      end;
      ClientSocket1.Socket.SendText('#I#');

      /// ...

    finally
      if ClientSocket1.Active then
        ClientSocket1.Close;
    end;
  except
    on e: Exception do
      MessageDlg(E.Message, mtError, [mbOK], 0);
  end;
end;

[[newtron]]

Bucanero.


Gracias por contestar.


El tema es que lo que planteas básicamente es también esperar (más o menos tiempo) a que se active el ClientSocket y no se activa.


He estado mirando por internet y he visto que hay dos formas de tratar este componente, una con el parámetro "ctBlocking" y otra con el parámetro "ctNonBlocking". La verdad es que no sé muy bien la diferencia que hay entre una forma y otra pero si parece que los eventos los disparan de distinta manera. Por defecto viene "ctNonblocking", si lo cambio a "ctBlocking" si me activa al tirón pero tiene la contrapartida de que no se activa el evento "OnRead" por lo que hay que consultar el resultado manualmente cuando se envía cualquier cosa.


P.e.:

Código Delphi [-]
    ClientSocket1.ClientType := ctBlocking;
    ClientSocket1.Open;
    ClientSocket1.Socket.SendText('#I#');
    Raw:='';
    while Raw='' do begin
      Raw:=ClientSocket1.Socket.ReceiveText;
    end;
    ShowMessage(Raw);

Yo creo que con esto me apaño.


Gracias a todos.