Thread Anfängerfrage

[Spurius]

Hallo,
ich habe amgefangen einen Netzwerkchat zu programmieren, und bin zu der Erkenntnis gekommen, dass ich threads brauche.
Da ich mich mit threads nicht auskenne, funktioniert folgender Code nicht;

Delphi-Quellcode:

unit thread;

interface

uses
  Classes;

type
  mythread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    procedure Execute; override;
    constructor create;
  public
   procedure lesen;     // lesen soll später nachrichten aus einer tcp connection lesen
  end;

implementation

{ Wichtig: Methoden und Eigenschaften von Objekten in visuellen Komponenten dürfen 
  nur in einer Methode namens Synchronize aufgerufen werden, z.B.

      Synchronize(UpdateCaption);

  und UpdateCaption könnte folgendermaßen aussehen:

    procedure mythread.UpdateCaption;
    begin
      Form1.Caption := 'Aktualisiert in einem Thread';
    end; }

{ mythread }
constructor mythread.create;
begin
 inherited create(false);
end;
procedure mythread.lesen;
var test:string;
begin
 test := client.readln;   //client ist ein tcpclient auf der form, wo ich den thread verwenden will
 memo1.lines.add(test);   //memo1 ist ein memo auf der form wo ich den thread verwenden will
end;
procedure mythread.Execute;
begin
  { Thread-Code hier einfügen }
  lesen;
end;

end.

Also,
der client ist nicht bekannt, wie muss ich das machen
gleiches gilt für memo1

Gruß
Spurius

[Luckie]

Nimm die Unit der Form in die Thread Unit auf. :roll:

[Spurius]

hab ich gemacht, aber dann kommt
[Fataler Fehler] modul.pas(8): Überkreuzender Bezug zweier Units auf 'modul'

und in der hilfe steht, das man da wenn möglich in der implementation machen soll(oder so),
und dann gehts auch nicht.

Gruß
Spurius

[Spurius]

ok, jetzt kommt die fehlermeldung nicht mehr :)
mal sehen, wie's weitergeht ...
Gruß
Spurius

[Spurius]

Schon wieder ne Frage :roll:

Wie kann ich mythread jetzt in der hauptunit (name: modul) verwenden?

muss ich da auch den constructor aufrufen?

kann mir vielleicht jemand den code posten, wie ich mythread da einbaue?

Gruß

Spurius

[choose]

Hallo Spurius,

Du hast zunächst das Problem, dass Dein Thread-Objekt (unabhängig davon, dass es sich um einen Thread handelt) keine Kenntnis von client hat, stattdessen wird dies wahrscheinlich eine Exemplarvariable von Deiner Form-Klasse sein.
Auch wenn Du nun die Unit des Forms einbinden solltes, wüsstest Du zwar von der Formular-Klasse, aber nicht, welches Formular-Exemplar (schließlich könnten mehrere Formulare der selben Klasse erzeugt werden) nun tatsächlich verwendet werden soll.
Darüber hinaus hast Du einen entscheidenen Kommentar mit in Deiner Unit: "Niemals VCL-Controls aus einem Thread heraus verwenden". Deine Änderung des Memos verstößt gegen diese Forderung...

Eine Mögliche Lösung soll diese Pseudocode verdeutlichen

Delphi-Quellcode:

type
  TMyThreadClass = class(TThread)
  private
    FClient : TSomeClient;
    FMemo : TSomeVCLControl; 
    procedure UpdateMemo;
  protected
    procedure Execute;override;
  public
    constructor Create(const AClient: TSomeClient; 
      const AMemo: TSomeVCLControl);
  end;

constructor TMyThreadClass.Create(const AClient: TSomeClient;
  const AMemo: TSomeVCLControl);
begin
  inherited Create(True);
  Assert(Assigned(AClient));
  Assert(Assigned(AMemo));

  //copy references to member vars
  FClient:= AClient;
  FMemo:= AMemo;
  //start thread
  Resume;
end;

procedure TMyThreadClass.Execute;
begin
  while not Terminated do
    if FClient.HasData then
      //update vcl controls only within the mainthread!
      Synchronize(UpdateMemo);
    else
      //better: use some syncobj connected with 
      //   FClient to wait for!
      Sleep(100); 
end;

procedure TMyThreadClass.UpdateMemo;
begin
  //will be executed within the mainthread
  FMemo.Lines.Append(FClient.ReadLn);
end;

Die Hauptgedanken dabei:

• Der Thread bekommt die Referenzen auf die zu verwendenen Objekte übergeben und verwendet sie dort (besser noch: die Connection (FClient ist nur ihm bekannt)
• Das Aktualisieren des GUIs findet im Haupthread statt (unter Verwendung von Synchronize)

Erzeugt werden könnte Dein Thread innerhalb des Formulars dann wie folgt:

Delphi-Quellcode:

Self.FThread:= TMyThreadClass.Create(Self.Client1, Self.Memo1);

[Spurius]

Hallo,
ich hab zu demo Code ein paar Fragen:

1. FClient : TSomeClient; tsomeclient, tsomevclcontrol sind feste Ausdrücke, nicht nur Bsp. ?
FMemo : TSomeVCLControl;

2. public
constructor Create(const AClient: TSomeClient; heisst dass, das irgendéin client, bzw. memo
const AMemo: TSomeVCLControl); erzeugt wird, dem ich dann später einen
vorhandenen client zuweisen kann?

3. constructor TMyThreadClass.Create(const AClient: TSomeClient;
const AMemo: TSomeVCLControl);
begin
inherited Create(True); wenn ich hier create(false) eingebe, dann brauch ich später kein resume?
Assert(Assigned(AClient)); was machen die 2 zeilen?
Assert(Assigned(AMemo));

//copy references to member vars
FClient:= AClient; wird hier dem beliebigen client der vorhandene zugewiesen?
FMemo:= AMemo;
//start thread
Resume;
end;

4. procedure TMyThreadClass.Execute; den abschnitt versteh ich nicht
begin
while not Terminated do
if FClient.HasData then
//update vcl controls only within the mainthread!
Synchronize(UpdateMemo);
else
//better: use some syncobj connected with
// FClient to wait for!
Sleep(100);
end;

So, ich will hier nicht nerven, aber ich denke, es ist besser was zu verstehen als nur den Code abzutippen.

Gruß

Spurius

[Rumpi]

Hi,

suche doch mal nach TTimerThread im Forum,
ich galaube ich habe da auch ein Beispiel
geschrieben.

Zur Info:
Eine IP Verbindung immer aus dem Haupthread
"ThreadSync" mit

Delphi-Quellcode:

 
Synchronize( DoConnect );

aufbauen.

Ich bin gestern "mal wieder drüber" gestolpert.

Ich habe TTimerThread in alten code eingebaut
um eine IP Verbindung aus dem Thread heraus
aufzubauen (ohne Synchronize ) und den Status
zu überwachen, Reconnect ect.

Ich habe dann in die TTimerThread class noch

Delphi-Quellcode:

TSyncMethod = (smThreadSync, smNone);
... 
FSyncMethod: TSyncMethod;
...

...
  if FSyncMethod = smNone then
    Notify
  else
    Synchronize( Notify );

Bitte Info wenn du die neue haben möchtest.


mfg Rumpi

[choose]

Hui, das wird wohl 'ne lange Antwort :gruebel:...

Zitat:

FClient : TSomeClient; tsomeclient, tsomevclcontrol sind feste Ausdrücke, nicht nur Bsp. ?
FMemo : TSomeVCLControl;

Das sind natürlich nur Beispielklassen, ich wollte mit Ihnen nur verdeutlichen, dass es sich

• bei dem Memo um ein VCL-Objekt handelt
• bei dem Client um einen beliebigen Client handelt, wobei auch die unten verwendeten Methodenbezeichner der Phantasie entsprechen

Zitat:

Delphi-Quellcode:

constructor Create(const AClient: TSomeClient;

heisst dass, das irgendéin client, bzw. memo

Delphi-Quellcode:

const AMemo: TSomeVCLControl);

erzeugt wird, dem ich dann später einen vorhandenen client zuweisen kann?

Hier wird nur etwas bereits erzeugtest (zB im Formular vorhandenes) an das neue Exemplar der Thread-Klasse übergeben.

Zitat:

Delphi-Quellcode:

Assert(Assigned(AClient)); 
Assert(Assigned(AMemo));

was machen die 2 zeilen?

Ein Blick in die OH verrät: Hier prüfen wir, ob wirklich etwas übergeben wordne ist, oder nicht vielleicht doch nil. Im letzteren Fall würde eine spezielle Exception geworfen werden. Assertions dienen nur der Absicherung, und

• deuten zum einen an, was man in den folgenden Zeilen vorraussetzt und
• prüfen (sofern aktiviert) ob es auch wirklich stimmt (Stichwort: ProgrammingByContract, Assertions).

Zitat:

Delphi-Quellcode:

inherited Create(True);

wenn ich hier create(false) eingebe, dann brauch ich später kein resume?

theoretisch: Ja. Praktisch solltest Du den Thread erst "loslaufen lassen", wenn alles, was in Execute verwendet wird, initialisiert ist (hier: die Exemplarvariablen).

Zitat:

4. procedure TMyThreadClass.Execute; den abschnitt versteh ich nicht

Delphi-Quellcode:

begin 
while not Terminated do 
if FClient.HasData then 
//update vcl controls only within the mainthread! 
Synchronize(UpdateMemo); 
else 
//better: use some syncobj connected with 
// FClient to wait for! 
Sleep(100); 
end;

Threads befinden sich iA in einer Endlosschleife (siehe div. Tuts hierzu). In Worten passiert hier folgendes: "So lange Du nicht beendet bist, prüfe ob neue Daten beim Client vorliegen. Falls nicht, kurz schlafen legen. Fall doch, rufe die Methode UpdateMemo innerhalb des Hauptthreads auf."

Ich hoffe, dass ich Dir mit diesen Ausführungen etwas weiter helfen konnte.

[Spurius]

Hallo,
ich hab leider immer noch nicht alles verstanden.
Was kann ich denn konkret einsetzten:

Delphi-Quellcode:

FClient : TSomeClient; 
    FMemo : TSomeVCLControl;

für tsomeclient, tsome vclcontrol?
Gruß
Spurius