Estoy haciendo una aplicacion la cual se conecta a un servidor k yo hice, los hago con TidTCPClient y TidTCPServer, al inciar la aplicacion on el oncreate me conecto de la sig. forma:
Código:
with datos do
begin
if cliente.Connected then
Application.MessageBox('Actualmente conectado con el servidor','Aviso',mb_ok+mb_iconinformation)
else
begin
try
cliente.Connect;
except
Application.MessageBox('No se ha podido conectar con el servidor','Aviso',mb_ok+mb_iconwarning);
application.Terminate;
end;
end;
Cliente.WriteLn(inttostr(0));
hora:=cliente.ReadLn;
DecodeTime(strtotime(hora), Hour, Min, Sec, MSec);
Cliente.WriteLn(inttostr(1));
fecha:=cliente.ReadLn;
end;
eso si me lo hace bien.
Pero en otra forma que es un checador en el evento OnActivate vuelvo a pedir los mismos datos el servidor de la sig. forma:
Código:
with datos do
begin
if cliente.Connected=false then
Application.MessageBox('No hay conexion con el servidor','Aviso',mb_ok+mb_iconinformation)
else
begin
Cliente.WriteLn(inttostr(0));
hora:=cliente.ReadLn;
DecodeTime(strtotime(hora), Hour, Min, Sec, MSec);
Cliente.WriteLn(inttostr(1));
fecha:=cliente.ReadLn;
end;
end;
pero en la linea hora:=cliente.ReadLn; se traba y ya no hace nada yo no le veo nada raro al codigo, pero no lo he podido reparar, espero y me puedan ayudar.
El TidTCPClient lo tengo en un DataModule.