Conexion con reloj mediante TClientSocket
 

Hola a todos.
Me surgio la necesidad de hacer un programa que se conecte a un reloj de personal por tcp/ip y que traiga la marcas de los empleados.
Con el reloj venia un ejemplo en Delphi que usaba el TClientSocket (tuve que agregarlo porque en el Delphi 7 no viene por def).
El ejemplo tiene un TEdit, un TMemo1 y 3 botones, uno para activar el TClientSocket, otro para desactivarlo y el tercero para enviar el comando que se escriba en el TEdit.
En el evento OnRead del TClientSocket se graba lo que se recibe en el memo.
Este funciona bien.

Ahora yo tenía la necesidad de que sea más o menos en tiempo real por lo que hice un proyecto con un TTimer para poder consultar automáticamente cada 60 segundos al reloj las nuevas marcas. El exe queda en el tray con el componente de las trivial TApp2Tray
Mi sorpresa es que al poner todo dentro de un procedimiento deja de funcionar la comunicación, o al menos no funciona como debería.
Este es el código que uso, haber si alguien me puede dar una mano o tiene idea de porque pasa esto.

Código Delphi [-]
type
  TfrmgetMarcas = class(TForm)
    popMenu: TPopupMenu;
    Cerrar1: TMenuItem;
    Timer1: TTimer;
    cs1: TClientSocket;
    appTray: TApp2Tray;
    Memo1: TMemo;
    procedure Timer1Timer(Sender: TObject);
    procedure cs1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
     procedure getRegsDeMarcas;     
    procedure sendcomando(comando: string); 
  public
    { Public declarations }
  end;

const
   comando1 = '(1000,sysinfo)';
   comando2 = '(1000,kqdata)';
   comando3 = '(commclose)';
 
procedure TfrmgetMarcas.getRegsDeMarcas;
begin
   try
      cs1.Active := true;
      sendcomando(comando1);
      sleep(600); //sleep recomendado por el fabricante
      sendcomando(comando2);
      sendcomando(comando3);
      cs1.Active := false;
   except
      on e: Exception do
      begin
         MessageDlg('Error al traer datos del reloj'+#10+e.Message,mtError,[mbOk],0);
         cs1.Active := false;
         Application.Terminate;
      end;
   end;

procedure TfrmgetMarcas.sendcomando(comando: string);
begin
      cs1.Socket.SendText(comando);
end;

procedure TfrmgetMarcas.cs1Read(Sender: TObject; Socket: TCustomWinSocket);
var
    S:String;
begin
    Socket.ReceiveLength;
    S:=Socket.ReceiveText;
    Memo1.Text:=Memo1.Text+S;
end;

procedure TfrmgetMarcas.Timer1Timer(Sender: TObject);
begin
   try
      getRegsDeMarcas;
      timer1.Enabled := true;
   except
      on e: Exception do
      begin
         messageDlg(e.Message,mtError,[mbOk],0);
         cs1.Active := false;
         application.Terminate;
      end;
   end;
end;

Probe poner sleep entre cada paso del procedure pero tampoco llega el programa al evento OnRead.
Ahora si pongo 5 botones y en cada boton pongo

Código Delphi [-]
procedure TfrmgetMarcas.Button1Click(Sender: TObject);
begin
      cs1.Active := true;
end;
procedure TfrmgetMarcas.Button2Click(Sender: TObject);
begin
      sendcomando(comando1);
      sleep(600);
end;
procedure TfrmgetMarcas.Button3Click(Sender: TObject);
begin
      sendcomando(comando2);
end;
procedure TfrmgetMarcas.Button4Click(Sender: TObject);
begin
      sendcomando(comando3);
end;
procedure TfrmgetMarcas.Button5Click(Sender: TObject);
begin
      cs1.Active := false;
end;

Voy apretando secuencialmente los botones y funciona .....
Me esta quemando la cabeza, alguien me puede tirar algun cable.

Saludos

Si entendi bien lo que tienes que generar el evento OnTimer y alli llamar el procedimiento getRegsDeMarcas

En el evento del timer se llama al procedure getRegsDeMarcas, no lo puse, pero es así.

Coloca un punto de interrupcion en el procedimiento getRegsDeMarcas y fijate si esta entrando, si es asi revisa que las constantes esten bien escritas. eso es lo que se me ocurre de momento, pero lo que me parece es que no esta entrando en el procedimiento

eduarcol, gracias por tu tiempo.
Las constantes estan bien, porque si lo hago mediante botones fuciona bien, la prueba es en el mismo form deshabilitando el timer y usando los 5 botones (que con esos botones si anda).
Al evento llega, probe con un breakpoint, pero pasan cosas raras al pasar el cs1.active := true; el valor del cs1.active me lo muestra como false a veces, a veces true pero igual no funciona, es decir no llega a ser disparado el evento OnRead del TClientSocket donde el reloj deberia devolver las marcas.

Probastes dandole mas tiempo en el Timer a lo mejor esta muy seguido y por eso el comportamiento que se desactiva tan rapido

En el código lo dice, 1 minuto de tiempo, creo que es suficiente, ya que cuando lo hago mediante los botones clickear los 5 nunca demoro más de 5 o 6 segundos. Y ahi si se ejecuta el evento OnRead y en el TMemo aparece lo que devuelve el reloj.

Gracias eduarcol por tu tiempo.
Lo resolvi cambiando de componente y usando el TidTCPClient de las Indy. Los métodos writeLn y readLn del componente me facilitaron mucho.
El TClientSocket me parece que debe tener un tema medio raro con el manejo del thread principal o algo por el estilo(ojo lo digo sin saber mucho y pensando en que puede ser).

Saludos

Gracias por avisar, ya estuve leyendo el otro hilo, me alegra lo hayas conseguido