EAccessViolation usando Hilos

[Neftali [Germán.Estévez]]

Debes tener en cuenta de a qué cosas accedes desde dentro del hilo.
Si accesdes a elementos externos al hilo, debes hacerlo desde el Synchronize.

[Thoronluin]

Hola Neftali:

Ante todo muchas gracias por tu pronta respuesta. Con ella, más los dos ejemplos que ví en tu web las cosas me han quedado más claras.

Corrígeme si me equivoco. Puedo:

O incluir el Memo en la declaración del Thread:

Código Delphi [-]
TPruebaMensaje = class(TThread)
   private
   protected
   public
      Memo1: Tmemo;
      procedure Execute; override;
      procedure UpdateProgress;
 end;

O usar la función Synchronize para ejecutar la acción:

Código Delphi [-]
Procedure TPruebaMensaje.Execute;
begin
   Synchronize(Ventana_Principal.Memo1.Lines.Add('pepe'));
end;

O definir la función UpdateProgress como perteneciente a Ventana_Principal y ejecutar:

Código Delphi [-]
Procedure TPruebaMensaje.Execute;
begin
   Synchronize(UpdateProgress);
end;

Muchas gracias por tu ayuda, estoy ansioso por probarlo mañana a primera hora .

Saludos

[Thoronluin]

He probado las tres cosas pero ninguna funcionó. Lo unico que parece que me elimina el error es modicar el código comos sigue:

Código Delphi [-]
procedure TVentana_Principal.Button4Click(Sender: TObject);
var
   MensajeThread: TPruebaMensaje;
begin
   MensajeThread := TPruebaMensaje.Create(False);
   //MensajeThread.FreeOnTerminate:=true;
   //MensajeThread.Resume;
end;

Pero en ese caso cada vez que se ejecute la línea:

Código Delphi [-]
MensajeThread := TPruebaMensaje.Create(False);

Se me crearía una nueva instancia, el problema ahora es, que las antiguas si no las he liberado posiblemente me estén ahí consumiendo recursos ¿Me equivoco?.

En el ejemplo he puesto un botón pero esas líneas de código las va a llamar un execute de un TIdTCPserver, ejecutandose muchas veces durante la vida del programa.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por Thoronluin

O incluir el Memo en la declaración del Thread:... Synchronize(Ventana_Principal.Memo1.Lines.Add('pepe'));

Puedes definir el memo propiedad (pública) del Thread, por ejemplo, o pasarlo como parámetro en el Create (redefiniendolo).
Cuando crees el Thread o después, si lo creas suspendido, asignas el memo del programa principal a tu propiedad del thread. Luego puedes accederlo.

Código Delphi [-]
TPruebaMensaje = class(TThread)
   private
   protected
   public
      MemoMain: Tmemo;
      procedure Execute; override;
      procedure UpdateProgress;
 end;
...

var
   MensajeThread: TPruebaMensaje;
begin
   MensajeThread := TPruebaMensaje.Create(True);
   MensajeThread.MemoMain := memo1;
   MensajeThread.FreeOnTerminate:=true;
...

Luego, desde el thread, no debes acceder al memo del programa principal:

Código Delphi [-]
Synchronize(Ventana_Principal.Memo1.Lines.Add('pepe'));

Si no al memo del Thread.

Código Delphi [-]
Synchronize(MemoMain.Lines.Add('pepe'));

[Thoronluin]

Muchísimas gracias por la respuesta y por la velocidad de ésta. Voy a intentarlo así, ya te contaré.

Saludos

[Thoronluin]

Lo he probado, funciona genial, muchísimas gracias por todo.

Saludos