Hallo,

ich sage euch schonmal vorab, dass ich die sufu benutzt habe und leider zu meiner Frage keine passende Antwort fand.

Ich hoffe auch darauf eine Antwort anstelle eines Verweises zur Sufu zu bekommen dass zukünftige User nicht in eine Sufuverweis-endlosschleife geraten wie ich teilweise.


Ich möchte eine TStringList als Parameter zu meiner Threadroutine übergeben, bin allerdings mit Delphi nicht sonderlich gut vertraut bisher

Ich erkläre mal wie mein gedanklicher Ansatz ist:

Hier die Funktion des Threads, als übergabe eben den Pointer 'p'

markieren

Delphi-Quellcode:

function GetProxys(p: pointer): LongInt; stdcall;
var
  list : ^TStringList;
begin
  list := TStringList(p);
  list^.Text := proxylistende.idHTTP.Post(proxylistende.site, proxylistende.postparam);
end;

//Hier die Routine die den Thread startet.

markieren

Delphi-Quellcode:

procedure StartGrab(var strList: TStringList);
var
  tID : DWORD;
  tHWND : THandle;
begin
  initiateProxyStructs;
  tHWND:=CreateThread(nil, 0, TFNThreadStartRoutine(@GetProxys), @strList, 0, tID);
  if tHWND <> 0 then CloseHandle(tHWND);
end;

Nachdem ich dann beispielsweise die Stringlist "strlist" erzeugt habe rufe ich einfach so auf:

StartGrab(strlist);


Keine Sorge, ich werde mir zum Thema 'Threadsafe' noch einiges durchlesen, bis jetzt weiß ich nur dass ich auf dem Heap allocaten sollte da der ram nach beendigung der Funktion wieder free'd wird.

Ich verstehe nur meinen Fehler nicht.. Ich übergebe doch die Adresse von strlist und weise dann der Adresse von "list", also dem Pointer auf TStringlist die übergebene Adresse zu und greife auf das Objekt per derefferenzierung zu...

Ich hoffe hier schlauer zu werden, danke

Du gibst einen Pointer auf die Variabe als Parameter rein, castest es später aber als TStringList, wo es doch eine PStringList ist
und das auch noch bei einer Variable, welche inzwischen nichtmal mehr existiert, da StartGrab schon beendet wurde und somit seine Variablen weg sind.

Objekte sind schon Pointer, die man einfach nach Integer/NativeInt/IntPtr/Pointer casten kann.


Und wozu ist strList eigentlich ein Var-Parameter?

PS: CloseHandle prüft selber auf 0, also kann man sich die Prüfung sparen, wenn mann mag.

markieren

Delphi-Quellcode:

tHWND:=CreateThread(nil, 0, TFNThreadStartRoutine(@GetProxys), @strList, 0, tID);
CloseHandle(tHWND);

CloseHandle(CreateThread(nil, 0, TFNThreadStartRoutine(@GetProxys), @strList, 0, tID));