Variable an Thread übergeben... oder auch nicht!?

[Meflin]

Hi,
hab ein kleines problem dabei eine variable an meinen thread zu übergeben.
erstellt werden die threads so:

Delphi-Quellcode:

for y := 0 to Data.SubStrings - 1 do begin
    ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@WorkerThreadFunc), @y, 0, ThreadID);
    ThreadData[y].ThreadHandle := ThreadHandle;
    ThreadData[y].ThreadID := y;
  end;

dann versuche ich die variable so rauszufinden:

Delphi-Quellcode:

function WorkerThreadFunc(P: Pointer): Integer;
var MyID: integer;
    i: integer;
    test: TStringList;
begin
  MyID := Integer(P^);
...

allerdings nimmt dann die variable nie den y wert an, den ich ihr übergeben habe :gruebel:
genau so hat das aber früher (mit d7) funktioniert!?
woran könnte das denn liegen...?

*MFG*

[Dax]

Deklariere die Funktion mal als stdcall lass die Pointer-Casts weg.
Also so:

Delphi-Quellcode:

for y := 0 to Data.SubStrings - 1 do begin
    ThreadHandle := BeginThread(nil, 0, @WorkerThreadFunc, y, 0, ThreadID);
    ThreadData[y].ThreadHandle := ThreadHandle;
    ThreadData[y].ThreadID := y;
  end;

Delphi-Quellcode:

function WorkerThreadFunc(P: Pointer): Integer; stdcall;
var MyID: integer;
    i: integer;
    test: TStringList;
begin
  MyID := Integer(P);
...

[supermuckl]

mal ganz blöd gefragt.. wieso nimmste nicht die Tthread classe und übergibst die variablen mit einer überschriebenen Create function ?

[Meflin]

1. stdcall und beginthread gibt acess violation
2. das @ vor dem y kann man nicht weglassen, der parameter ist ein pointer!
ansonsten: gleiches problem: wenn ich das @nicht weglasse aber das ^ kommt auch irgendne mistzahl dabei raus...

[Dax]

Dann versuchs mal mit CreateThread (aber nicht vergessen, IsMultiThread auf true zu setzten ;))

[Meflin]

immernoch alles nur nicht y :(

[Luckie]

Guck dir mein Threading Tutorial an. In den Demos zeige ich, wie man Parameter an Threads übergibt.

Bitte nicht CreateThread nutzen. Und die Thread-Funktion nicht als stdcall deklarieren.

Delphi-Quellcode:

type
  TThreadParams = record
    MyInt: Integer;
    MyString: String[255];
  end;
  PThreadparams = ^TThreadParams;

[..]

function ThreadFunc(p: Pointer): Integer;
var
  i: Integer;
  s: String;
begin
  i := PThreadParams(p)^.MyInt;
  s := PThreadParams(p)^.MyString;

  [..]
  
  FreeMem(p, sizeof(TThreadParams));
end;

[..]

procedure Foobar;
var
  ThreadParams: PThreadParams
begin
  GetMem(ThreadParams, sizeof(TThreadParams));
  ThreadParams.MyInt := 5;
  ThreadParams.MyString := 'Meflin ist doof.';
  hThread := BeginThread(0, nil, @ThreadFunc, ThreadParams, ... );
  if hThread <> 0 then
  begin
    ...;
    CloseThread(hThrerad);
end;

Mal so auf die Schnelle ohne Compiler in die Tasten gehauen.

[Sprint]

@Meflin: Die Antwort auf dein Problem hat supermuckl schon geschrieben.

[Meflin]

Zitat:

Zitat von Sprint

@Meflin: Die Antwort auf dein Problem hat supermuckl schon geschrieben.

irgendein problm damit dass ich den vcl thread nicht verwenden will :gruebel:
steht hier in der windows api oder?

[Meflin]

Zitat:

Zitat von Luckie

Guck dir mein Threading Tutorial an. In den Demos zeige ich, wie man Parameter an Threads übergibt.

Bitte nicht CreateThread nutzen. Und die Thread-Funktion nicht als stdcall deklarieren.

Delphi-Quellcode:

type
  TThreadParams = record
    MyInt: Integer;
    MyString: String[255];
  end;
  PThreadparams = ^TThreadParams;

[..]

function ThreadFunc(p: Pointer): Integer;
var
  i: Integer;
  s: String;
begin
  i := PThreadParams(p)^.MyInt;
  s := PThreadParams(p)^.MyString;

  [..]
  
  FreeMem(p, sizeof(TThreadParams));
end;

[..]

procedure Foobar;
var
  ThreadParams: PThreadParams
begin
  GetMem(ThreadParams, sizeof(TThreadParams));
  ThreadParams.MyInt := 5;
  ThreadParams.MyString := 'Luckie ist doof.';
  hThread := BeginThread(0, nil, @ThreadFunc, ThreadParams, ... );
  if hThread <> 0 then
  begin
    ...;
    CloseThread(hThrerad);
end;

Mal so auf die Schnelle ohne Compiler in die Tasten gehauen.

also dein tutorial kenn ich. mit dem hab ich mir das ja angeeignet. und letztenendes ist das was ich mache doch genau das gleiche wie du schriebst oder :gruebel: ausser dass es sich bei mir nicht um eine globale variable handelt... muss es das denn?

[Luckie]

Was ist eine globale Variable? In meinem Beispiel ist nichts global außer dem Typ. Aber das muss er ja sein, da er ja in der Thread-Funktion und in der Routine, die den Thread startet, bekannt sein muss.

[Meflin]

ok, ich machs jetzt so wie oben beschrieben.
1. es wird immernoch nicht die zahl übergeben, die ich eigentlich übergebe
2. beim beenden des threads (also vermutlich das freemem) entsteht eine exception :(

edit: fehler entdeckt, ein @ zu viel 8) also erledigt

[Meflin]

also doch noch nicht ganz erledigt:
die exception beim selbstbeenden des threads führt das freemem zu einer exeption EInvalid Pointer Operation oder so ähnlich. wpran könnte das nun wieder liegen?