Hallo nochmals...
Ich hab nun die TLog von TThread abgeleitet aber dennoch das selbe Problem, nur an andere Stelle. Jetzt hab ich die
AV bei "TLogAdd".
Hier die TLogAdd Procedure. Die alte Version (auskommentiere) hab ich mal stehen lassen...
Delphi-Quellcode:
//class procedure TLog.Add(const APrtData: TDaPrtData);
procedure TLogAdd(
const APrtData: TDaPrtData);
overload;
var
lt: TLog;
begin
lt := TLog.Create(APrtData); <== HIER KOMMT DIE
AV!!
// with TLog.Create(APrtData) do try
// Synchronize;
// finally
// Free;
// end;
end;
Die modifizierte TLog Klasse, aber der Fehler ist ja momentan n
Delphi-Quellcode:
TLog = class(TThread)//TIdSync
protected
FPrtData: TDaPrtData;
procedure DoSynchronize;// override;
procedure Execute; override;
constructor Create(const APrtData: TDaPrtData);
public
// class procedure Add(const APrtData: TDaPrtData); overload;
// class procedure Add(const AStr: String); overload;
end;
constructor TLog.Create(const APrtData: TDaPrtData);
begin
inherited Create(True);
FPrtData := APrtData;
FreeOnTerminate := True;
Resume;
end;
procedure TLog.Execute;
begin
Synchronize(Self.DoSynchronize);
end;