Erste Schritte Multi-Threading

[himitsu]

Zitat von dummzeuch:

Da fehlte ein ")" am Ende:
http://docwiki.embarcadero.com/RADSt...gnisse_(Delphi)

Bei dir auch.
[URL] selbst drumrumschreiben, oder den Link-Button benutzen.

Leider sind automatische Links zu doof, einfach die ) mitzunehmen, wenn im Link eine ( drin ist.

[Edelfix]

Wenn du im Projekt eine neue Unit hinzufügst dann hast du die Möglichkeit eine neue Unit von Type Thread zu wählen. Dann ist die Unit vor formatiert.

[Ykcim]

Vielen Dank, dass wusste ich noch nicht.
Ich habe die Auslagerung gestern noch mit einer eigenen Unit gelöst, werde ich nachher posten.

Kurze Frage zu den Events: Sollten diese auch in einer eigenen Unit definiert werden oder im der Form, in der sie zur Anwendung kommen sollen?

Ich habe mich an den folgenden Links entlanggehangelt:
https://docwiki.embarcadero.com/RADS...nisse_(Delphi)

und bei diesem Thema an Post 2
https://www.delphipraxis.net/70116-e...rammieren.html

Das ist bis jetzt dabei rausgekommen:

Delphi-Quellcode:

type
   TTimeEvent = procedure (TimeValue: TTime) of object;
   TTimeObject = class
   private
     FTimeValue: TTimeEvent;

   public
     property OnGetTime: TTimeEvent read FTimeValue write FTimeValue;
     { Löst das Ereignis aus, wenn etwas registriert ist }
     procedure TriggerTimeEvent(TimeValue: TTime);
   end;
   TForm1 = class(TForm)
      lbl_eins: TLabel;
      lbl_zwei: TLabel;

...

private
      { Private-Deklarationen }
      MyThread: TMyThreads;

...

var
  Form1: TForm1;
  TimeObject: TTimeObject;

implementation

{$R *.dfm}

{ TTimeObject }

procedure TTimeObject.TriggerTimeEvent(TimeValue: TTime);
begin
   if Assigned(FTimeValue) then begin
      FTimeValue(TimeValue);
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   MyThread := TMyThreads.Create;
   TimeObject := TTimeObject.Create;
   TimeObject.OnGetTime := Write_Uhr;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   MyThread.TH_Uhr_Start(False);
end;

In meiner ThreadUnit muss ich jetzt aber irgendwie den Aufruf anstoßen:

Delphi-Quellcode:

{ TMyThread_Uhr }

procedure TMyThread_Uhr.Execute;
var   I: integer;
      sUhr: integer;
begin
   sUhr := 1000;
   while not Terminated do begin
      sleep(sUhr);
      Synchronize(procedure
                  begin
                     Form1.Write_Uhr(Now());
                  end);
   end;

end;

Und da weiß ich nicht, wie ich den Bezug zu Form1 loswerde...

Vielen Dank
Patrick

[haentschman]

Zitat:

Und da weiß ich nicht, wie ich den Bezug zu Form1 loswerde

...Event? https://www.delphipraxis.net/1527953-post2.html

[himitsu]

Als Parameter dem Contructor (oder anschließend einen Property/Setter) mitgeben
und intern speichern (Feld/Variable in der ThreadKlasse).

aber Event/Callback ist besser (unabhängiger).



Oder statt der Form-Instanz ein Interface deklarieren, in der Form implementieren, dieses als Parameter übergeben und intern speichern.
Schon kann man auch bei Anderem dieses Interface implementieren und diese Threadklasse, ebenso wie beim Event/Callback, auch für Anderes wiederverwenden, da es nicht direkt mit "dieser" Form verknubbelt ist.

In TComponent ist ein IInterface als Basis implementiert, ohne Referenzzählung, damit es mit der Speicherverwaltung der VCL nicht kollidiert. (sowie auch FMX usw.)

[Edelfix]

Bei Events und Threads tuhe ich mich auch noch schwer.

Das Problem ist das der Thread die Form nicht kennen soll aber das Event der Form und dem Thread bekannt sein soll.

Ich habe mir mit einer dritten Unit beholfen die beiden bekannt ist. In der habe ich das Event angelegt.

Ich glaube es gibt eine Lösing mit Pointer und dem @ Zeichen und eine schwer verständliche Interface Lösung.

[himitsu]

z.B. dort, wo der Thread dekaliert ist, oder in einer gemeinsam genutzten Unit wird eine Event-Signatur deklariert
type TMyEvent = procedure(.....) of object;
Das als Parameter, Setter-Funktion oder Property in die ThreadKlasse.
Und schon kann die Form eine "gleich" aufgebaute Objekt-Methode an das übergeben.

Entsprechend dem
OnGetTime := Write_Uhr
und

Delphi-Quellcode:

   if Assigned(FTimeValue) then
      FTimeValue(TimeValue);