Threadklasse mit Event aktualisiert nicht

[Olli73]

Ein "Not" zu viel:

Delphi-Quellcode:

if not Assigned(FOnTest) then
    FOnTest(self);

[jaenicke]

Zitat von Olli73:

Ein "Not" zu viel:

Delphi-Quellcode:

if not Assigned(FOnTest) then
    FOnTest(self);

Oh ja, das habe ich am Handy glatt übersehen.

[Rollo62]

TL;DR;

Delphi-Quellcode:

procedure TTestThread.Execute;
begin
  Synchronize(DoTest);
end;

Das macht nicht so viel Sinn, denn damit läuft ja dein zu "threadender" Code wieder im Main UI-Thread, wenn ich das richtig interpretiere.
Es sollte doch nur das Ergebnis synchronisiert werden.

[himitsu]

DoTest ist quasi die Methode, welche OnTest auslöst, womit dieses Synchronize schon stimmt. (die Namensgebung ist in der VCL Vielerorts genauso)


Am Ende klingt es so, als wenn der "eigentliche" Code noch viel mehr macht, wie z.B. vorher scheinbar eine Datei runterladen. (natürlich außerhalb des Synchronize)




Prinzipiell sind LongStrings (String/AnsiString/UnicodeString) und ihre Referenzzählung per se thread-save.

Funktional quasi so, als wenn man einen Integer/Boolean/LongBool/Pointer mit den Interlocked-, bzw. Atomic-Funktionen schreibend (Inc/Dec) und kopierend behandelt.

[Rollo62]

Zitat von himitsu:

DoTest ist quasi die Methode, welche OnTest auslöst, womit dieses Synchronize schon stimmt. (die Namensgebung ist in der VCL Vielerorts genauso)

FTest.OnTest := [B]MyTest[/B]; Das klingt für mich eigentlich danach, dass OnTest die harte Threadarbeit macht ...
Kann mich aber irren

Jedenfalls sieht das hier nicht so aus, als würde der Thread überhaupt irgendwie zum Tragen kommen.
Der Button hängt doch, bis der Thread terminiert ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FTest := TTestThread.Create(false);
  FTest.FreeOnTerminate := false;
  FTest.OnTest := MyTest;
  FTest.Resume;
  repeat
    CheckSynchronize(10);
  until FTest.Terminated;
  Caption := FTest.TestProperty;
  FTest.Free;
end;

[himitsu]

TThread.WaitFor anstatt so einer komischen Schleife, falls überhaupt gewartet werden sollte.

[jaenicke]

Alleine schon jemandem zu raten, auf einen Thread zu warten, wenn man gerade mit Threads anfängt, halte ich für kontraproduktiv. Das macht man nicht!

Events sind schon der richtige Weg.

Zitat von Inspur1:

Ich möchte mehrere HTML auslesen, im Event möchte ich festlegen wonach gesucht wird und die Ergebnisse den Eigenschaften übergeben.

Warum erst im Event? Brauchst du für die Entscheidung Informationen, die dem Event übergeben werden?

Ansonsten solltest du das dem Thread gleich z.B. im Konstruktor mitgeben, bevor er losläuft.

[Inspur1]

Correctly. Das OnTest Event im Beispiel übernimmt die Aufgabe von TThread.Execute. Ich möchte nicht jedes Mal TThread.Execute für jede neue Aufgabe überschreiben, sondern im OnTest Event den Ablauf und die Ergebnisse festlegen und bevor der Thread Free ist die Ergebnisse ausgeben.
Das Problem ist, die Ergebnisse sind nach Änderung noch default.

Delphi-Quellcode:

procedure TTestThread.Execute;
begin
  Synchronize(DoTest);
end;

repeat
  CheckSynchronize(10);
until FTest.Terminated;

Synchronize hat leider nicht geholfen und die Loop blocked die ganze Application.

[jaenicke]

Zitat von Inspur1:

Correct. Das OnTest Event im Beispiel übernimmt die Aufgabe von TThread.Execute. Ich möchte nicht jedes Mal TThread.Execute für jede neue Aufgabe überschreiben, sondern im OnTest Event den Ablauf und die Ergebnisse festlegen und bevor der Thread Free ist die Ergebnisse ausgeben.

Irgendwie habe ich das Gefühl, dass du eher anonyme Threads brauchst...

TThread ist dafür da, dass du dort die Aktionen implementierst und nur Parameter mitgibst und ggf. Ergebnisse abholst. Deine Beschreibung klingt nun eher danach, dass du bestimmte Funktionen einfach im Thread ausführen möchtest. Das geht dann eher so:

Delphi-Quellcode:

type
  TOnSuccess = reference to procedure(const AResult: string);
  TOnFailure = reference to procedure(const AErrorMessage: string);

function RunDownload(AUrl: string): string;
begin

end;

function Filter(var AResults: string; AFilterParam: string): Boolean;
begin
  Result := True;
end;

procedure ExecuteXyz(AUrl, AParam: string; AOnSuccess: TOnSuccess; AOnFailure: TOnFailure);
begin
  TThread.CreateAnonymousThread(procedure
    var
      Results: string;
    begin
      Results := RunDownload(AUrl);
      if Filter(Results, AParam) then
        TThread.Queue(nil, procedure
          begin
            AOnSuccess(Results);
          end)
      else
        TThread.Queue(nil, procedure
          begin
            AOnFailure('Fehler xyz');
          end)
    end).Start;
end;

procedure TForm273.Button1Click(Sender: TObject);
begin
  ExecuteXyz('http://www.example.com', '',
    procedure(const AResult: string)
    begin
      ShowMessage(AResult);
    end,
    procedure(const AErrorMessage: string)
    begin
      ShowMessage('Fehler:' + sLineBreak + AErrorMessage);
    end);
end;

Ohne mehr Details kann ich aber schlecht konkretere Ratschläge geben. Oft helfen dabei auch Generics weiter, aber das kommt darauf an, welche Aktionen durchgeführt werden und wo diese sich unterscheiden.