Delphi einfaches Multithread Beispiel.

[gemy]

Guten Abend zusammen. Habe alles nochmal überarbeitet.
Hier das Ergebniss. Erhöhe jetzt i mit atomic increment. Synchronize durch queue ersetzt. Habe von https://www.youtube.com/watch?v=WOc89TF8l-8&t=648s viel gelernt.


Kritik erwünscht und Verbesserungsvorschläge !

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Comctrls, System.ImageList,
  Vcl.ImgList, Vcl.StdCtrls;

type
  TmyThread = class(TThread)
    private
      FMainThreadLog: TStrings;
    public
    constructor Create(Alog: Tstrings; DoOnTerminate: TnotifyEvent);
    procedure Execute; override;
    procedure OutputMessage(const Amessage: string);
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure HandleTerminate(Sender: Tobject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:integer =0;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
for i :=0 to 5 do TmyThread.Create(ListBox1.Items, HandleTerminate);
end;





{ TmyThread }

constructor TmyThread.Create(Alog: Tstrings; DoOnTerminate: TnotifyEvent);
begin
inherited Create(false);
FMainThreadLog := Alog;
FreeOnTerminate := true;
OnTerminate := DoOnterminate;
end;

procedure TmyThread.Execute;
var z: integer;
begin
  TmyThread.Queue(nil, procedure
                        begin
                          FMainThreadLog.Add(IntToStr(ThreadID));
                        end
                        );
  for z := 0 to 49 do
  begin
    AtomicIncrement(i);
    sleep(random(50));
  end;
end;



procedure TForm1.HandleTerminate(Sender: Tobject);
begin
Caption := inttostr(i);
end;




procedure TmyThread.OutputMessage(const Amessage: string);
begin
if Assigned(FMainThreadLog) then
    FMainThreadLog.Add(Amessage);
end;


end.

[DieDolly]

Das neue Beispiel ist genau so schlimm wie das erste.
Du solltest dir nicht nur ein Video ansehen, sondern am besten in Fachbüchern nachschlagen und lernen, wie man das mit Threads richtig macht.
Ich würde an deiner Stelle aber noch viel weiter vorne anfangen - bei den Grundlagen. Das klingt hart und ich will dich nicht verletzen. Aber dieser Code hat nichts im Unterforum Tutorials zu suchen.

[gemy]

Das ist von Coderage 2019 übernommen. Dann hat der wohl auch keine Ahnung.

[DieDolly]

Übernehme keinen Code von irgendwoher - außer aus der DP hier
Und ja da hast du recht. Das Beispiel was du übernommen hast ist wirklich gruselig.

[gemy]

Das ist der Kanal von Embacadero Germany.

[DieDolly]

Ich kann mir nicht vorstellen, dass Embarcaeero Germany solchen Code schreibt.

[Jumpy]

Zitat von DieDolly:

Das neue Beispiel ist genau so schlimm wie das erste.

Ich find so Aussagen immer doof, denn so lernt der TE nix und ich, der ich über den Thread (no pun intended) stolpere, lerne auch nix. Es geht ja scheinbar nur um ein Minimal-Beispiel für mehrere Threads mit Zugriff auf die GUI, das so auch in alten Delphis funktioniert ohne die ganzen neuen Threads-/Paralles-Libraries die es da in und für neue Delphis gibt.

Ich vermute nur warum das Beispiel nicht gut ist, deshalb würde ich mir von den Wissenden konstruktive Aussagen wünschen ala "das ist nicht gut weil", "besser wäre so", "schau mal dieses Beispiel", "diesen Link". Idealerweise dann auf dem Komplexitäts-Niveau auf dem das ursprüngliche Beispiel war, kein Overkill.

Ich hab z.B. nur wenig Ahnung von Threads, sie nur selten benutzt und wenn dann so minimal wie hier. Darum bin ich auf einmal von so Aussagen "Synchronize benutzen ist böse" überrascht. Muss ich das jetzt mit Goto, With und ProcessMessages auf den Dachboden verbannen? Wieso?

[p80286]

Zitat von Jumpy:

Darum bin ich auf einmal von so Aussagen "Synchronize benutzen ist böse" überrascht. Muss ich das jetzt mit Goto, With und ProcessMessages auf den Dachboden verbannen? Wieso?

Wer hat denn gesagt, daß es böse ist? Es ist nur kontraproduktiv. Damit hast Du die Vorteile von 2 Threads über bord geworfen, weil der Mainthread und der Produktivthread voneinnder abhängig sind. danit fällst Du auf das altbekannte

Delphi-Quellcode:

for i:=0 to x do
begin
  machwas;
  if i and $f =0 then 
  begin
    label1.caption:=inttostr(i);
    processMessages;
  end;
end;

zurück.

Da ist der Vorteil eines Threads auf ein Minimum geschrumpft.

Man kann damit allerdings für Demonstrationszwecke die ganze Chose einbremsen aber das sollte dann auch explizit gesagt werden.

Gruß
K-H

[Jumpy]

Ich verstehe glaub ich was du meinst. Der Thread hält an, während er die GUI über synchronize udated? Und über Postmessage ist das ganze dann mehr entkoppelt? Der Thread setzt sie Message ab und macht weiter. Die GUI fängt bei Gelegenheit die Message ab und verarbeitet sie? Hab ich das so richtig verstanden?

Diese Messages sind doch ein Windows-Ding, oder? Wie macht man das anderswo? Kommen jetzt doch schon die Libraries ins Spiel, wenn man das sauber (aber einfach) machen will?

Es muss ja nicht immer das updaten der GUI sein, ein Thread im Sinne Worker-Thread kann ja seine Ergebnisse mitteilen wollen und sagen, dass er auf neue Aufgaben wartet.

[DieDolly]

Zitat:

Und über Postmessage ist das ganze dann mehr entkoppelt? Der Thread setzt sie Message ab und macht weiter. Die GUI fängt bei Gelegenheit die Message ab und verarbeitet sie? Hab ich das so richtig verstanden?

Bei PostMessage ist es so wie du sagst. Bei SendMessage wird gewartet, bist die Nachricht verarbeitet wurde.