Zitat:

CriticalSection
MultiReaderSingleWriter
Interlocked

Ich verstehe nicht, was das jetzt mit SendMessage und der ProgressBar zu tun hat.

Zitat von Glados:

Woran kann das den liegen, dass sich hier rein gar nichts tut? Laut diesem Beitrag soll es ja angeblich funktionieren https://www.entwickler-ecke.de/topic..._106970,0.html

Ich habe das jetzt nicht alles gelesen, aber das hier scheint für mich bestens zu funktionieren:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit17;

interface uses
   System.SysUtils, System.Classes,
   Winapi.Windows,
   Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ComCtrls;

type
   TMyThread = class(TThread)
      protected var
         progressbarHandle: THandle;
      protected
         procedure Execute(); override;
      public
         constructor Create(const progressbarHandle: THandle);
    end;

   TForm1 = class(TForm)
      ProgressBar1: TProgressBar;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
   end;

var
   Form1: TForm1;

implementation uses Winapi.CommCtrl;

{$R *.dfm}

{ TMyThread }

constructor TMyThread.Create(const progressbarHandle: THandle);
begin
   inherited Create(True);
   self.progressbarHandle := progressbarHandle;
end;

procedure TMyThread.Execute();
var
   percentDone: Integer;
begin
   percentDone := 0;

   while (not Terminated) do
      begin
         Inc(percentDone, 1);

         PostMessage(progressbarHandle, PBM_SETPOS, percentDone, 0);
         if (percentDone < 100) then
            TThread.Sleep(100)
         else
            Terminate();
      end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   myThread: TMyThread;
begin
   myThread := TMyThread.Create(ProgressBar1.Handle);
   myThread.FreeOnTerminate := True;
   myThread.Start();
end;

end.

Bonuspuntke für mehrmaliges Drücken des Buttons

Zitat von Glados:

Ich verstehe nicht, was das jetzt mit SendMessage und der ProgressBar zu tun hat.

Hier gab es auch genügend andere Beispiele mit Variablen, du hattest einmal von "Variablen" gesprochen und auch im Titel geht es allgemain um Synchronisierung.

Funktioniert bei mir leider trotzdem nicht.

(Hier könnte ihre Werbung stehen)

Zitat von Glados:

Ich verstehe nicht, was das jetzt mit SendMessage und der ProgressBar zu tun hat.

Du hast im Hauptformular ein Progressbar (MainThread), und einen Thread der "Datenschaufelt". Dieser sendet per SendMessage/PostMessage an das Hauptformular immer wieder eine Statusmeldung mit dem aktuellen Zählerstand. Wenn das Hauptformular Zeit hat wird es dann die Progressbar aktualisieren.

So ist die grobe Richtung.

Gruß
K-H

Zitat:

Wenn das Hauptformular Zeit hat wird es dann die Progressbar aktualisieren.

Liegt das vielleicht an meinem Code?
Pseudo!

markieren

Delphi-Quellcode:

- MainForm > Button1Click
-- UnitX.Prozedur1 wird aufgerufen*
-- while-Schleife**
-- ein paar Sachen werden noch in UnitX.Prozedur1 erledigt
- wenn fertig, gehts zurück zu Button1Click (Aufrufer), ein paar Sachen werden noch erledigt und der Code ist beendet.

* diese Arbeit kann etwas dauern. In dieser Prozedur1 wird auch mein Thread erst erzeugt.
**Nachdem der Thread erzeugt wurde warte ich mit while ... solange der thread läuft ... do begin Application.ProcessMessages; Sleep(1000); end;

Wozu dann der Thread, wenn du eh Sleep im Mainthread aufrufst? Dann kannste auch alles gleich darin (im Button1Click) ausführen.

Zitat von TiGü:

Wozu dann der Thread, wenn du eh Sleep im Mainthread aufrufst? Dann kannste auch alles gleich darin (im Button1Click) ausführen.

Vermutung, weil er etwas in einen Thread ausgelagert hat, und sonst nicht weiß wie er "zurück" kommen soll?

Gruß
K-H

Das ist sehr alter Code.

Ohne die Threads (es gibt mehrere Worker-Threads) würde das gar nicht so funktionieren wie ich es möchte und wie es aktuell auch ist.