hi,
habe eine Klasse und möchte diese gerne bei BeginThread mit als pointer übergeben.
Wie kann ich dann in der Thread Procedure drauf zugreifen?
Delphi-Quellcode:
TMyClass = class
private
procedure ....
public
procedure irgendwas;
procedure test;
end;
...
function MeinThread(p : Pointer) : integer;
var
pMyClass : ^TMyClass;
begin
pMyClass := p;
pMyClass^.irgendwas; //<- fehler, Zugriffsverletzung
end;
...
procedure TMyClass.test;
begin
BeginThread(nil,0,@MeinThread, @self, 0, ThreadId);
end;
müste doch so funktionieren, oder?
bekomme immer einen fehler.....