aus Thread Funktion aufrufen

[Mazel]

Hallo,

ich habe noch nie mit Threads gearbeitet und nun dachte ich es wird mal Zeit. Dabei stellt sich ein Problem auf.
Zunächst einmal der Code:

Delphi-Quellcode:

type
 TLoadThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
    Value: TObject;
    procedure Execute; override;
    procedure UpdateProgress;
  end;


procedure TLoadThread.Execute;
var
 i              : Cardinal;
 Time1          : Real;
 Time2          : Real;

begin
 with Main do
  begin
   for i := 0 to 10 do
    begin
     Time1 := GetTickCount;
     if Value = BtnFirstValue then LVwUser.Items[i].SubItems[0] := LoadValue
     else
      begin
       LVwUser.Items[i].SubItems[1] := LoadValue;
       LVwUser.Items[i].SubItems[2] := 'andere Text';
      end;
     Time2 := GetTickCount;
     Time1 := Time2 - Time1;
     Time1 := Time1 / 1000;
     LVwUser.Items[i].SubItems[3] := FloatToStr(Time1);
     Synchronize(UpdateProgress);
    end;
   PBrUser.Visible := False;
  end;
end;


procedure TLoadThread.UpdateProgress;
begin
 Main.PBrUser.Position := Main.PBrUser.Position + 1;
end;

Delphi-Quellcode:

procedure TMain.BtnFirstValueClick(Sender: TObject);
begin
 PBrUser.Visible := True;
 PBrUser.Max := 10;
 PBrUser.Position := 0;
 Thread := TLoadThread.Create(True);
 Thread.Value := Sender;
 Thread.FreeOnTerminate := True;
 Thread.Resume;
end;

Das funktioniert soweit auch, aber ich dachte, VCL Komponenten wie die LVwUser könnten nur über Synchronize bearbeitet werden, doch wie man sieht geht es auch in der Execute. Wieso geht es auch dort? Sollte dann nicht auch die Funktion LoadValue, die im Hauptthread liegt ebenfalls nicht funktionieren?
Die Tatsache dass es funktioniert verwirrt mich, denn ich dachte eingentlich dass es nicht geht.
Kann mir das jemand erklären? Ich würde die Funktion LoadValue auch in den Thread nehmen, zu Testzewcken habe ich die Funktion einfach unter TLoadThread deklariert. aber geändert hat sich nichts. Sicher war das auch nicht korrekt. Wie muss ich das aufbauen, damit es richtig ist?

Gruß
Mazel

[SirThornberry]

der Zugriff auf VCL-Elemente funktioniert meistens im ersten Moment. Irgendwann bekommst du dann vielleicht grafische Ausgabe fehler, die Meldung: Canvas does not allow drawing, AV's etc. Alles eben Folgeerscheingungen.

[Luckie]

Zitat:

Zitat von Mazel

Das funktioniert soweit auch, aber ich dachte, VLC Komponenten wie die LVwUser könnten nur über Synchronize bearbeitet werden, doch wie man sieht geht es auch in der Execute.

Reines Glück, es kann gut gehen, muss aber nicht. Was passiert, wenn der Listview in dem Moment neu gezeichnet werden muss, wenn du was an seinem Inhalt änderst? Dann hast du nämlich inkonsistente Daten in deinem Listview.

[Mazel]

Wie kann ich das dann umgehen? Wie kann ich a) den Code sicherer und b) schneller machen? Irgendwie muss ich doch dann den Code in UpdateProgress verlegen.

[Luckie]

Zitat:

Zitat von Mazel

Irgendwie muss ich doch dann den Code in UpdateProgress verlegen.

Genau. Aber wenn du sowieso andauernd Synchronisierst und auf den Hauptthread zugreifst, erübrigt sich eigentlich auch ein Thread.

[SirThornberry]

Das ganze aus dem Thread raus nehmen und mit BeginUpdate und EndUpdate arbeiten.

[Mazel]

Wenn ich das aus dem Thread herausnehme, hab ich das Problem, dass ich mit Application.ProcessMessage arbeiten muss, damit die Form anklickbar bleibt. Aber auch nur ruckelweise, da ich Daten ermittle, deren Abfrage einen Moment lang dauert.