Foros Club Delphi - Problema con hilos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Problema con hilos (https://www.clubdelphi.com/foros/showthread.php?t=64652)

Problema con hilos

Hola a todos.

Estoy intentando, con Delphi 7, Crear una aplicación con hilos pero cuando lo ejecuto me sale un error que dice:

Project Project1.exe raised exception class EThread with message 'Thread Error: Controlador no válido (6)'. Process stopped. Use Step or Run to continue.

A qué puede ser debido. Un saludo.

Hola,

El mensaje de error está muy bien puesto, pero, me temo que sea preciso algo de código para encontrar el posible problema. Si pudieras concretar el error en unas cuantas líneas de código y pudieras copiarlas aquí... igual alguien estaría en disposición de echarte una mano. ;)

He creado un hilo elemental de la forma

Código:

uses ... , SyncObjs, ...;

 

type

  TMiHilo = class( TThread )

  private

    FinternalData:TStringList;

    FEvent:TEvent;

  public

    constructor Create( CreateSuspended:boolean );

    function LeerCadena( timeout:integer ):string;

    procedure Execute(); override;

 

    property Event:TEvent read FEvent;

  end;

 

constructor TMiHilo.Create( CreateSuspended:boolean );

begin

  FInternalData := TStringList.Create();

  FEvent := TEvent.Create( nil, false, false, '' );

end;

 

function TMiHilo.LeerCadena( timeout:integer ):string;

var

  res:TWaitResult;

begin

  if ( timeout = 0 ) then res := FEvent.WaitFor( INFINITE )

  else res := FEvent.WaitFor( timeout );

 

  if ( res = wrSignaled ) then begin

    result := FInternalData[0];

    FInternalData.Delete(0);

    if FInternalData.Count > 0 then FEvent.SetEvent;

  end else

  if ( res = wrTimeout ) then result := 'timeout' else result := 'error';

end;

 

procedure TMiHilo.Execute();

begin

  while not Self.Terminated do begin

    ReadDataFromFile();

    FEvent.SetEvent;

    Sleep(1000);

  end;

end;

Un saludo y gracias por el interés.

Hola, el problema lo tienes en el constructor create, añade esta linea

Código Delphi [-]constructor TMiHilo.Create( CreateSuspended:boolean );
begin
  FInternalData := TStringList.Create();
  FEvent := TEvent.Create( nil, false, false, '' );
  inherited create(CreateSuspended);
end;

Un Saludo.

Hola white_zombie. Te agradezco la gran ayuda que me has brindado. Me has solucionado el problema. Muchas Gracias.
Un saludo.