Hola a tod@s l@s forer@s
Estoy intentando crear una animación GIF mediante hilo (D-7/RxLib) en el que se presenten los pasos que va recorriendo en un TMemo definido en el proyecto
Por ahora no consigo quitarme de encima una excepción de memoria (en la línea
FMemo := AMemo del procedimiento
create del hilo), aunque es igual a la que trae la demo del Delphi (
FBox := Box;)
Código Delphi
[-]
TMainLoopThread = class(TThread)
private
FAnimacion : TGIFImage; FMemo : TMemo; FLista : TStringList; FCabecera : string; FDirIni : string; FDirImg : string; FDirOut : string; FMensaje : string;
procedure DoSynchronizeMSG;
procedure SetMensaje(const Value: string);
protected
procedure Execute; override;
procedure SincronizarMSG( AMensaje:string );
procedure EjecutarLOOP( var AAnimacion:TGIFImage; AFrame:integer ); virtual; abstract;
public
constructor Create( AMemo:TMemo; ACabIni:string );
destructor Destroy; override;
property Mensaje : string read FMensaje write SetMensaje;
end;
TLoopThread = class(TMainLoopThread)
private
protected
procedure EjecutarLOOP( var AAnimacion:TGIFImage; AFrame:integer ); override;
public
end;
El error se encuentra aquí:
Código Delphi
[-]
constructor TMainLoopThread.Create( AMemo:TMemo; ACabIni:string );
var
IniFile : TIniFile;
Cadena : string;
Fichero : string;
begin
FMemo := AMemo;
FDirIni := DIR_INI;
FDirImg := DIR_IMG;
FDirOut := DIR_OUT;
.....
end;
He probado con
Assign y también
¿Podeis decirme como se hace?
Gracias adelantadas
salvica