Warten auf Thread Ende

**4lb3rtO**

Vielen Dank für die zahlreichen Hinweise und Tipps

Ich habe nun einmal die angesprochenen Änderungen eingefügt. Die read-property und die Variable habe ich entfernt, da sie im späteren Verlauf auch nicht benötigt wird.
Leider funktioniert hier bei der DP kein Line-Highlighting (gelöschte Zeilen rot, neue Zeilen grün markieren/hinterlegen) um die Änderungen besser sichtbar zu machen

Hier einmal der aktuelle Quelltext.

Die Animation wird mit folgendem Code angezeigt...
{Unit1}

markieren

Delphi-Quellcode:

			  private

    procedure SetBusyAnimation(Value: Boolean);

  public

    property BusyAnimation: Boolean write SetBusyAnimation;

  end;

markieren

Delphi-Quellcode:

			procedure TXMFS.FormCreate(Sender: TObject);

begin

  (Image2.Picture.Graphic as TGIFImage).Animate := True;

  (Image2.Picture.Graphic as TGIFImage).AnimationSpeed := 210;

end;

markieren

Delphi-Quellcode:

			procedure TXMFS.SetBusyAnimation(Value: Boolean);

begin

  Image2.Visible := Value;

end;

Den Thread erzeuge ich bspw. so...
{Unit1}

markieren

Delphi-Quellcode:

			  TGMD := TThreadGetMBData.Create('artist', 'artist', XMFS.Edit1.Text, '5', True);

  TGMD.FreeOnTerminate := True;

  TGMD.Start;

Thread...
{Unit2}

zusammenfalten · markieren

Delphi-Quellcode:

			  TThreadGetMBData = class(TThread)

  private

    FTyp: String;

    FQuery: String;

    FInput: String;

    FLimit: String;

    FShow: Boolean;

    procedure NotifyEndOfThread(Sender: TObject);

    procedure GetMBData(Typ, Query, Input, Limit: String);

  protected

    procedure Execute; override;

  public

    constructor Create(const ATyp, AQuery, AInput, ALimit: String; AShow: Boolean);

  end;

markieren

Delphi-Quellcode:

			constructor TThreadGetMBData.Create(const ATyp, AQuery, AInput, ALimit: String; AShow: Boolean);

begin

  inherited Create(True);

  XMFS.BusyAnimation := True;

  FTyp := ATyp;

  FQuery := AQuery;

  FInput := AInput;

  FLimit := ALimit;

  FShow := AShow;

end;

GetMbData lädt dann die entsprechende Datei herunter

markieren

Delphi-Quellcode:

			procedure TThreadGetMBData.Execute;

begin

  CoInitialize(nil);

  GetMBData(FTyp, FQuery, FInput, FLimit);

  OnTerminate := NotifyEndOfThread;

end;

Hier wird nach Thread-Ende die xml-Daten ausgelesen und die Animation versteckt

markieren

Delphi-Quellcode:

			procedure TThreadGetMBData.NotifyEndOfThread(Sender: TObject);

begin

  if FTyp = 'artist' then

    Mb.ReadArtistData(FShow);

  if FTyp = 'release-group' then

    Mb.ReadReleaseGroupData(FShow);

  XMFS.BusyAnimation := False;

end;

Jetzt müsste ich nur noch bei Bedarf auf die Fertigstellung des Threads warten können, dann wäre es perfekt. Ich glaube ich habe auch mich im ersten Post in der Beziehung etwas missverständlich ausgedrückt. Im Hauptthread müsste ich nach der Erzeugung des Nebenthreads die Möglichkeit haben, auf dessen Fertigstellung zu warten.
Vielleicht auch den Status des Threads abfragen, ob ein Fehler aufgetreten ist?!

Wenn man nun bspw. den Thread wie folgt erzeugt, funktioniert die Animation aufgrund des "WaitFor" und des "Free" nicht mehr

markieren

Delphi-Quellcode:

			  TGMD := TThreadGetMBData.Create('artist', 'artist', XMFS.Edit1.Text, '5', True);

  TGMD.FreeOnTerminate := False;

  TGMD.Start;

  TGMD.WaitFor;

  // Mach noch etwas

  TGMD.Free;

Was für Möglichkeiten hätte man alternativ um dort eine Pause einzulegen, ohne den Hauptthread einzufrieren und die Animation anzuzeigen?
Änderungsvorschläge und Kritik sind nach wie vor erwünscht

Das blöde an der Geschichte ist, das es mehrere solcher Threads gibt und sich das durch das gesamte Programm zieht...
Vielen Dank bis dato

Warten auf Thread Ende

AW: Warten auf Thread Ende

Forumregeln