No se si alguien ya uso los DEMOS de los INDYS que vienen con Delphi ó bien que hayan bajado de la página
www.Nevrona.com , lo que pasa es que uno de los DEMOS que vienen es un CHAT, son 2 aplicaciones 1 Server y 1 Cliente, el problema es que en el Cliente tiene un Timer Activo(se activa cada segundo), y este mismo se detiene(Bloquea) en la linea: Msg := IdTCPClient1.ReadLn('', 5);
No se que es lo que hara en esta linea, pero impide la comunicación entre los Clientes. Alguien sabe que pasa con este DEMO???? ó se tiene que agregar alguna instrucción extra para que no suceda esto?
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
Com,
Msg : String;
begin
if not IdTcpClient1.Connected then
exit;
Msg := IdTCPClient1.ReadLn('', 5);
if Msg <> '' then
if Msg[1] <> '@' then
begin
memLines.Lines.Add(Msg);
end
else
begin
Com := UpperCase(Trim(Copy(Msg, 2, Pos(':', Msg) -2)));
Msg := UpperCase(Trim(Copy(Msg, Pos(':', Msg) +1, Length(Msg))));
if Com = 'CLIENTS' then
lbClients.Items.Add(Msg);end;
end;
Agradezco cualquier sugerencia.