BeginThread mit Paramater self übergeben.

[Thomas83]

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.....

[Luckie]

Zitat:

Zitat von Thomas83

bekomme immer einen fehler.....

:roll:
Was für einen Fehler und wo?

[Thomas83]

ok wurde geändert.....

[SirThornberry]

eine Objectinstanz ist bereits ein pointer. Wenn du dir die Adresse von Self holst bekommst du eine Adresse vom Stack (wo der unsichtbare Self-Pointer liegt). Übergebe direkt Self (gegebenfalls einfach nach Pointer casten)

[Luckie]

Du kannst auch die Thread-Funktion zu einer Methode deiner Klasse machen: http://www.michael-puff.de/Artikel/2...backMethod.php Ist meiner Meinung nach eleganter.

Aber wo hast du jetzt was geändert?

[SirThornberry]

er hat im quelltext einen kommentaar dahinter gemacht mit dem Fehler.
@luckie: Dein Code macht aber auch nichts anderes als diese globale Funktion zu erzeugen (nur das sie dann nicht deutlich lesbar im Quelltext steht) und darin wird dann eine methode aufgerufen. Das kann er ja auch machen in dem er es selbst durchleitet (was er ja vor hat)

[Thomas83]

da ich kein assembler lesen kann weis auch nicht was diese methode genau macht.

habe self jetzt ohne @ übergeben,
bekomme jedoch weiterhin eine EAccessViolation.......
in dieser Threadmethode möchte ich mit TidTcpClient die daten auslesen. Und bei ReadBuffer puff.....
kann aber auch nicht vom pointer den port oder so auslesen. irgend was bei der übergabe läuft schief.....

[Luckie]

Zitat:

Zitat von SirThornberry

er hat im quelltext einen kommentaar dahinter gemacht mit dem Fehler.
@luckie: Dein Code macht aber auch nichts anderes als diese globale Funktion zu erzeugen (nur das sie dann nicht deutlich lesbar im Quelltext steht) und darin wird dann eine methode aufgerufen. Das kann er ja auch machen in dem er es selbst durchleitet (was er ja vor hat)

Nein, mit meinem Code kann er seine Thread-Funktion zu einer Methode seiner Klasse machen.

[andreash]

Man schaue sich doch mal den Quelltext zu TThread an. Dort wird auch das Objekt an die Threadfunktion weitergegeben.

[Thomas83]

Zitat:

Zitat von andreash

Man schaue sich doch mal den Quelltext zu TThread an. Dort wird auch das Objekt an die Threadfunktion weitergegeben.

wo?

[Thomas83]

ok habes gefunden, aber wie kann ich dann auf meine klasse zugreifen?
bekomme ja immer die fehlermeldung.....

[Jackie1983]

bin jetzt schon weiter gekommen und habe da einen komischen fehler.

Delphi-Quellcode:

TMyClass = class
private
  fBoolean : Boolean;
  fClient : TidTcpClient;
public
  procedure irgendwas;
  procedure test;
end;

...

function MeinThread(p : Pointer) : integer;
var
  pMyClass : ^TMyClass;
  b : boolean;
  port : integer;
begin
  pMyClass := p;
  b := pMyClass^.fBoolean; //<- ok
  port := pMyClass^.fClient.port; //<- fehler
end;

...

procedure TMyClass.test;
begin
  BeginThread(nil,0,@MeinThread, Pointer(self), 0, ThreadId);
end;

wenn ich eigenschaften der klasse aufrufe ist alles bestens, wenn ich auf fclient zugreifen möchte bekomme ich einen fehler :gruebel:
hat das was mit dem pointer zu tun?

//edit
bekomme auch einen EOSError code 5

[Jackie1983]

wenn ich fClient bei beginthread übergebe kann ich drauf zugreifen, aber nicht über die klasse.... ich check es nicht :gruebel:

[Apollonius]

Bei der Übergabe des Parameters castest du nach Pointer (ohne mit @ die Adresse zu nehmen), aber in der Thread-Funktion dereferenzierst du mit ^, das ist ein Widerspruch. Du musst in der Thread-Funktion wieder in den Klassentype casten.

[Thomas83]

:wall: na super, danke @Apollonius