Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 25-10-2004
Avatar de AGAG4
AGAG4 AGAG4 is offline
Miembro
 
Registrado: ago 2004
Ubicación: Los Mochis, Sinaloa, México
Posts: 1.420
Poder: 21
AGAG4 Va por buen camino
Problema con DEMOS Indys

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
{ Not a system command }
memLines.Lines.Add(Msg);
end
else
begin
{ System command }
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);// CommaText := Msg;
end;
end;

Agradezco cualquier sugerencia.

Última edición por AGAG4 fecha: 25-10-2004 a las 22:42:46. Razón: Corrección
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:56:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi