Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
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 20-05-2011
Avatar de cesarsoftware
cesarsoftware cesarsoftware is offline
Miembro
 
Registrado: nov 2006
Posts: 241
Poder: 18
cesarsoftware Va por buen camino
indy 10 y sincronizacion

Hola compis. Tengo un componente idftpserver y un lisbox donde pretendo mostrar su estado (conectado, login, etc). Se que no debo meter nada en el lisbox dentro de los metodos del idftpserver porque puedo provocar un "access violation" o algo peor. Necesito sincronizar como se hace en los thread normales pero no veo la forma (ya he buscado en los foros, en la red, en el manual, etc)
He encontrado este codigo pero es de indy 9 y no se como pasarlo a indy 10, vamos que no encuentro el metodo syncronize en el tIdContext o como indicar su thread.
Espero que puedan ayudarme. Gracias

Código Delphi [-]
uses IdThread;
type
 TSrvSynchListBox = class
 private
 FText: string;
 procedure VCLUpdate;
 public
 procedure Sync(AThread: TIdThread; AMethod: TThreadMethod; s: string);
 end;
procedure TSrvSynchListBox.Sync(AThread: TIdThread; AMethod: TThreadMethod; s: string);
begin
 FText := s;
 AThread.Synchronize(AMethod);
end;
procedure TSrvSynchListBox.VCLUpdate;
begin
 TFormFTPServer.LBftpServer.ItemIndex := TFormFTPServer.LBftpServer.Items.Add(FText);
end;
// y su uso
procedure TFormFTPserver.IdFTPServerConnect(AContext: TIdContext);
var
 s: string;
begin
 s := 'Conectado con ' + AContext.Binding.PeerIP + ':' +
 IntToStr(Acontext.Binding.PeerPort);
// LBftpServer.ItemIndex := LBftpServer.Items.Add(s); // esto no lo debo hacer
 with TSrvSynchListBox.Create do
 try
 Sync(AContext, VCLUpdate, s); // aqui debo conseguir el thread del TIdContext
 finally
 Free;
 end;
end;

Última edición por Neftali [Germán.Estévez] fecha: 20-05-2011 a las 13:57:46. Razón: Añadir TAG's al código
Responder Con Cita
  #2  
Antiguo 20-05-2011
Delfino Delfino is offline
Miembro
 
Registrado: jul 2003
Ubicación: Madrid
Posts: 974
Poder: 21
Delfino Va por buen camino
Las Indy ya tienen sus propias clases para sincronizar. Mira en la ayuda las clases TIdSync y TIdNotify..
__________________
¿Microsoft? No, gracias..
Responder Con Cita
  #3  
Antiguo 24-05-2011
Avatar de cesarsoftware
cesarsoftware cesarsoftware is offline
Miembro
 
Registrado: nov 2006
Posts: 241
Poder: 18
cesarsoftware Va por buen camino
Gracias Delfino.
Ya las he implementado aunque ya he descubierto que tienen sus "cosillas" porque ha veces con formularios dinamicos (o no) tambien da algun "access violation" pero parece que "mejor controlados".
Pongo un ejemplo para el que lo necesite.

Uses IdSync. // necesario

// definir clase
type
TLogSync = class(TIdSync)
protected
s: string;
procedure DoSynchronize; override;
public
procedure Write(const texto: string);
end;

// Sincronizacion
procedure TLogSync.DoSynchronize;
begin
try
FormMain.ListBox1.Items.Add(s);
except
on e: Exception do
Exit;
end;
end;

procedure TLogSync.Write(const texto: string);
begin
s := texto;
Synchronize;
end;

// uso
procedure TFormMain.IdTCPServerLog(msg: string);
var
LogSync: TLogSync;
begin
LogSync := TLogSync.Create;
LogSync.Write(msg);
LogSync.Free;
end;
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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con incompatibilidad del Post de TIdHTTP de Indy 8 con Indy 10 rolandoj Internet 13 24-12-2008 14:19:01
Como reemplazar Indy 10 por Indy 9 en Delphi 2007 ? rolandoj Internet 0 13-02-2008 19:44:31
Sincronización de carpetas de archivos Ivr API de Windows 2 21-04-2007 02:34:01
Sincronizacion de dos tablas pab4146 Conexión con bases de datos 1 21-02-2005 15:10:33
Update en Varios ClientDataSets. (Sincronización) Listirrinin Varios 0 19-10-2004 11:49:02


La franja horaria es GMT +2. Ahora son las 14:37:29.


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