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

Y... ocurre alguna excepción o simplemente no trae nada?

Saludos.

hola jachguate.
Ahora veo donde fue a morir mi otro post, perdón que lo halla posteado tambien en varios :o.
No ninguna excepción, solo que no trae datos al memo. El event OnRead del TClientSocket no llega a ejecutarse nunca.

Bien... no se si será una tontería... pero te has dado cuenta que los mensajes que envías con los trozos de código que enviaste no son los mismos?

Saludos.

Perdón, la pifie al postear :o.. ya lo edite, no existe comando4 solo 1,2 y 3
De paso pongo el contenido de las constantes

Francamente no se me ocurre nada, mas porque hace mucho no he trabajado con los componentes que estas usando... pero, por curiosidad, y viendo que es bastante sencillo... ¿has intentado con las indy?. En otras palabras... ¿no será un problema del componente?.

En lo personal, prefiero las Indy por muchas razones que ya no recuerdo, pero en resumen es mucho mas limpio, robusto y estable.

Saludos.

Supongo que si, pero el ejemplo que venia con el reloj estaba con TClientSocket. Por lo que vi en el TidTCPClient no hay un evento OnRead y yo desconozco bastante de este tipo de componentes de tcp.
Si tienes algun ejemplo de como sería la lectura con Indy quiza pueda hacer una prueba.

Lo que me parece raro es que con los botones fucione, no se si un tema de hilos en el componente para manejar el evento OnRead. (no si digo pensando, porque en realidad se poco de esto).

Bueno al final cambie por el TidTCPClient, no me resulto tan dificil.
Los metodos writeLn y readLn del componente me ayudaron a hacerlo más fácil.
Gracias jachguate por tu tiempo.

Saludos

Me alegra que te haya servido de algo el consejo... podemos suponer que todo funcionó bien?

Saludos.