Thread Programmierung

[Athris]

Hallo,

ich beschäftige mich erst seit ein paar Tagen mit dem Thema Threads in Delphi und konnte durch ein paar Tutorials bereits Informationen erlangen und funktionstüchtigen Code programmieren. Dieser Code funktioniert auch bereits reibungslos doch bin ich mir nicht sicher ob das so auch sauber programmiert ist.

Kurz zu der Situation. Ich programmiere zurzeit ein Programm was Dateien aktualisiert. Den Überprüfungs- und Downloadprozess habe ich nun in einem Thread ausgelagert um den Hauptthread (also die Form) während der Aktualisierung weiter benutzen zu können. Dafür habe ich eine neue Unit namens UpdateThread.pas erstellt und in mein Projekt eingebunden.
Die UpdateThread.pas sieht so aus:

Delphi-Quellcode:

unit UpdateThread;

interface

uses
  SysUtils, Classes, Dialogs, IdHTTP, IdComponent, IdTCPConnection, IdTCPClient, main;

type
  TUpdateThread = class(TThread)
    private
    { Private-Deklarationen }
    fpntMain: TfrmMain;
    protected
      procedure Execute; override;
    public
    { Public-Deklarationen }
    procedure VersionenLaden;
    procedure AktualisiereDaten;
    procedure DateiDownload(strUrl, strLocalFile:String;
    WorkBegin:TWorkBeginEvent;Work:TWorkEvent;WorkEnd:TWorkEndEvent);
  end;

implementation

procedure TUpdateThread.Execute;
begin
  fpntMain := main.frmMain;
  VersionenLaden;
  AktualisiereDaten;
end;
[...]
end.

In meiner main.pas sieht der Aufruf dann so aus:

Delphi-Quellcode:

procedure TfrmMain.FormActivate(Sender: TObject);
var
  pntUpdateThread: TUpdateThread;
begin
  pntUpdateThread := TUpdateThread.Create(true);
  pntUpdateThread.FreeOnTerminate := True;
  pntUpdateThread.Resume;
end;

Der Quellcode funktioniert soweit und die Aktualisierung läuft parallel zum Hauptthread. Wie bereits ersichtlich starte ich durch das FormActivate nur einen einzigen Thread. Diese arbeitet dann Schritt für Schritt die Dateien ab.
Meine Frage ist nun: Habe ich das soweit korrekt umgesetzt, insbesondere in Hinblick auf Speicherfreigabe usw.? Mir ist es sehr wichtig dass mein Programm so sauber wie möglich läuft und bei Threads bin ich mir unsicher wie ich diese korrekt nach kompletter Ausführung freigebe.

[Sir Rufo]

Da wir hier nur sehr wenig von der Thread-Klasse sehen, kann man nur sehr wenig darüber sagen, ob diese Implementierung auch sauber und sicher ist.

Wenn du dir Gedanken über MemLeaks machst, dann setze einfach

Delphi-Quellcode:

ReportMemoryLeaksOnShutdown := True;

und am Ende bekommst du die Leaks um die Ohren gehauen.

[Uwe Raabe]

Zitat:

Zitat von Athris (Beitrag 1314053)

Meine Frage ist nun: Habe ich das soweit korrekt umgesetzt,

Keine Ahnung, aber dieses Konstrukt "[...]" ist in meinen Delphi zumindest nicht bekannt.

[Athris]

Entschuldigung das [...] sollte nur verdeutlichen dass dann der Quellcode von den drei Methoden VersionenLaden, AktualisiereDaten und DateiDownload kommt und im Anschluss das end. der Unit. Die Unit ist ja letztendlich nur von der Klasse TThread abgeleitet die bereits in der Classes Unit vorhanden ist.

[TiGü]

Ansonsten kannst du Resume noch mit Start ersetzen (siehe zweiter Satz: http://docwiki.embarcadero.com/Libra...TThread.Resume).
Oder gleich den Thread losrennen lassen, also ohne True im Create.
FreeOnTerminate passt schon, aber anhand des kurzen Codeschnipsels sieht man nicht wirklich, was passiert.
Wie greifst du denn in auf pntUpdateThread zu? Es ist nur eine lokale Variable im OnActivate?!?

So erstellst du einen Thread und wenn er nicht in VersionenLaden; oder AktualisiereDaten; in einer Dauerschleife läuft oder auf ein Windows-Event wartet, dann ist der auch schnell wieder vorbei, beendet und freigeben.

[frankyboy1974]

Hallo,

warum gibt es bei deinem Thread die Programmierzeile

Delphi-Quellcode:

fpntMain := main.frmMain;

. Wenn der Thread also das Hauptformular kennt, müssten wir davon ausgehen, dass dieser auch darauf zurück greift!? Wenn du aber aus einem Thread auf einem gemeinsamen Speicherbereich zurückgreifst, kann dies Fehler vorursachen. Da du keinen Quellcode veröffentlichen möchtest, was die Methoden 'VersionenLaden', 'AktualisiereDaten' und 'DateiDownload' genau machen, können wir also nur raten, ob dein Thread auch wirklich threadsafe ist. Ich nehm daher meine :glaskugel: und sag nee.

mfg

[Athris]

Stimmt von der Problematik hatte ich bereits gehört. Der Pointer auf die Mainklasse ruft eine AddProtocol Funktion auf die einen Text für ein Label setzt. Ansonsten wird über diese Verbindung nur auf Variablen der Mainklasse zugegriffen.

[BUG]

Zitat:

Zitat von Athris (Beitrag 1314066)

Der Pointer auf die Mainklasse ruft eine AddProtocol Funktion auf die einen Text für ein Label setzt. Ansonsten wird über diese Verbindung nur auf Variablen der Mainklasse zugegriffen.

Und jetzt die Gretchenfrage: Wie hältst du's mit der Synchronisation?
Das geht entweder mit

Delphi-Quellcode:

TThread.synchronize(...)

oder Synchronisationsmitteln wie zB. Critical-Sections.

[frankyboy1974]

hallo,

Du greiftst also auf Variablen bzw. auf ein Label deines MainFormular zurück, wie soll hier jetzt irgendwer beurteilen, ob du dies auch threadsafe programmiert hast. Der eine läuft nach Afrika und der andere nach Amerika, jo das funktioniert, wenn aber beide (bzw. alle) gleichzeitig in die gleiche Richtung laufen, wirds etwas komplizierter. Vielleicht schreiben die Threads auch gleichzeitig in eine Datei und was passsiert, wenn die sich da treffen? Noch mal ohne Quellcode, lautet die Antwort :glaskugel:.

mfg

[Athris]

Ich bedanke mich für alle Antworten und die damit verbundenen Tipps und Hinweise.
Bezüglich der Mehrfachzugriffproblematik muss ich mich definitiv noch einmal ran setzen, da die Funktionen auch zwischenzeitlich von der Main aufgerufen werden können. Da muss ich natürlich steuern dass die sich nicht in die Quere kommen. :)