Problema con hilos

[zajoma]

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.

[dec]

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.

[zajoma]

He creado un hilo elemental de la forma

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.

[[white_zombie]]

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.

[zajoma]

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