Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-05-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Poder: 21
Novás Va por buen camino
Problemas con las indy

Hola a todos...

Estos días he estado mirándo el código fuente de un programa de chat que he encontrado al mirar los ejemplos de las indy y me he encontrado con un pequeño problemilla.

Cuando el programa cliente ejecuta el temporizador para descargar los mensajes del chat (IdTCPClient1.ReadLn('', 5) éste se queda colgado hasta
que encuentra un mensaje y no me deja hacer nada.

Código:
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Com, Msg : String;
begin
  if not IdTcpClient1.Connected then
    exit;

  
   Msg := IdTCPClient1.ReadLn('', 5);
  
  if Msg<>'' then
  begin
    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.CommaText := Msg;
      end;
  end;
end;
Este es el fragmento de código que me da problemas. El temporizador se ejecuta cada medio segundo
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita
  #2  
Antiguo 07-05-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Que versión de las indy tenes?... esto no debiera dar ningun problema, y devolver una cadena vacia si a los 5 milisegundos de ejecutado el readln no hay nada en el stack de tcp/ip.



Será mejor que cambies de versión, pues probablemente haya algún bug. Si no tenes la última, date una vuelta por http://www.nevrona.com/indy.

Hasta luego.

Responder Con Cita
  #3  
Antiguo 07-05-2004
Novás Novás is offline
Miembro
 
Registrado: oct 2003
Ubicación: Galicia
Posts: 146
Poder: 21
Novás Va por buen camino
Exactamente tengo la versión que trae el delphi 7, creo que es la 9 pero no sabría decirte con exactitud.

Por lo referente a la página que me mencionas es precisamente de ahí de donde he sacado la versión del programa que estoy mirando...
__________________
Hay dos cosas infinitas: el Universo y la estupidez humana. http://www.cybertarjetas.net
Responder Con Cita
  #4  
Antiguo 07-05-2004
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 27
jachguate Va por buen camino
Pues aprovecha y actualizá la versión de la biblioteca, a la última disponible. Yo he usado el demo de chat en varias ocasiones, sin problema alguno...

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 15:01:19.


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