Thread soll die richtige LForm finden.

[ScharfeMietze]

Hallo
Ich erzeuge per Button eine Form.

Delphi-Quellcode:

LFormxy:= TFormxy.create(abc)
try
do something
wait for all results 
do something
finally
Release...
end

Dieser LForm sind Button die Threads starten und vorgegebene FTstringlisten welche über öffentliche functions befüllt werden können. Diese sollen durch die eigenständigen Threads befüllt werden.

Das Problem

Die Threads finden die passende LForm nicht
Threadcode

Delphi-Quellcode:

procedure TThread.ResultThread;
begin
 Formxy.SetThreadResult(FResultstringlist); // hiermit wird offensichtlich die "Grundform" gefüttert aber nicht die LForm die den Thread gestartet hat.:(
end;

Es wird die "Grund"Form angesprochen und nicht die erzeugte LForm.
Wie kann ich dem Thread die richtige Form mitteilen damit die "Antworten" an der richtigen stelle landen?
Ps: Arbeite ich ich nur mit der "Grundform" ohne sie mir mittels Button zu erzeugen funktioniert der Code perfect.

Es geht also wirklich nur darum das der Thread am Ende mit seiner Antwort auch die LForm anspricht, die ihn erzeugt hat.

Ich danke für eure Ideen und Antworten :)
Gruß
SM;)

[himitsu]

Verwende NIEMALS diese globalen Variablen.
Gib selber den Threads die gewünschten Instanzen rein (z.B. als Parameter im Thread.Create)

und in dieser globalen Variable steht die Instanz, welche vom letzten Application.CreateForm da rein geschrieben wurde.

[ScharfeMietze]

Zitat:

Zitat von himitsu (Beitrag 1337781)

Gib selber den Threads die gewünschten Instanzen rein (z.B. als Parameter im Thread.Create)

Genau da sitzt meine Blockade wie ich das erschlage.
Wenn ich 3 Mal den Butten drücke hätte ich ja 3 x LFormxyz.Ich weiß schlicht nicht was ich mitgeben soll.


Gruß SM;)

[DeddyH]

Du erzeugst doch eine neue Form-Instanz, diese gibst Du dem Thread mit, der sie sich dann in einem privaten Feld merkt.

[milos]

Hi,

ich bin mir nicht sicher was du genau willst oder wo das Problem liegt aber ich hätte zwei Dinge. ^^
Also im 2. Code hast du ja Formxy.SetThreadResult(FResultstringlist); stehen und nicht LFormXY ist das vielleicht das Problem? Dein Formular heisst TFormXY, Delphi erstellt ja gerne diese Globalen Variablen welcher in dem Fall genau so heissen würde, also FormXY. Ich kenne den Code nicht also frage nur um sicher zu gehen. ^^

Und sonst übergebe wie schon gesagt die erzeugte Form Instanz beim Konstruktor der Thread Klasse. Edit: Oder einfach irgendwann :D

[ScharfeMietze]

Mir fehlt die genaue Syntax.
wenn ich z.B. 3x auf den Button drücke,
habe ich doch 3 Instanzen die sich LFormxyz nennen.
Wie müsste die Codezeile des construcktor aussehen und auf der LFormseite das Create?
Da ich bisher nie Instanzen mit Threads gestartet habe kam ich immer gut hin.
Ich bin Blond bitte helft mir :)
Lieben Gruß und Danke

SM;)

[ScharfeMietze]

Zitat:

Zitat von milos (Beitrag 1337821)

Also im 2. Code hast du ja Formxy.SetThreadResult(FResultstringlist);[/I] stehen und nicht LFormXY ist das vielleicht das Problem?

LFormxy.SetThreadResult(FResultstringlist) schluckt Delphi gar nicht....

[Fritzew]

also sowas wie:

Delphi-Quellcode:

tmyresult = procedure(const aList : TStrings) of object;


TmyThread = class(TThread)
 private
   fresultproc : tmyresultproc;
 public
 constructor Create(const aresultproc : tmyresult);
 procedure ResultThread;
 procedure execute ; override;
end;


constructor TmyThread.Create(const aresultproc : tmyresult);
begin
 inherited Create(false);
 fresultproc := aresultproc;
end;


procedure TmyThread.execute ; 
begin
 while not terminated do
 begin 
   // tu was
 end;
 synchronize(ResultThread);
end;

procedure TmyThread.ResultThread;
begin
 if assigned(fresultproc) then
  fresultproc(FResultstringlist);

end;

Delphi-Quellcode:

// in Form 
 procedure  tmyform.resultThread(const aList : TStrings);
 begin 
  //tue was mit alist
 end;


//Aufrufen mit :

TmyThread.create(myForm.resultThread);

[DeddyH]

Beim form.Resultthread hast Du aber doch dasselbe Problem in grün, oder?

[Sir Rufo]

Zitat:

Zitat von ScharfeMietze (Beitrag 1337810)

Zitat:

Zitat von himitsu (Beitrag 1337781)

Gib selber den Threads die gewünschten Instanzen rein (z.B. als Parameter im Thread.Create)

Genau da sitzt meine Blockade wie ich das erschlage.
Wenn ich 3 Mal den Butten drücke hätte ich ja 3 x LFormxyz.Ich weiß schlicht nicht was ich mitgeben soll.


Gruß SM;)

Nein,

Delphi-Quellcode:

LFormxyz

ist eine Variable in der mal der eine oder der andere Wert enthalten sein kann, aber nie mehr als einer. Und da diese Variable auch noch lokal ist, wird der Inhalt nach dem Verlassen der Methode auch wieder vergessen.

In der Variablen steht nicht die Form sondern die Adresse wo sich die Form-Instanz befindet.

Ist so wie mit Keks haben und wissen wo ein Keks ist. :stupid: