Danke für deine Hinweise und Code, Himitsu!
Da ich mit threads aber kaum Erfahrung habe, bekomme ich damit leider keine funktionierende SyncThreadedDownload
Unit hin.
Verstehe ich das richtig, dass weder Constructor noch Destructor dafür benötigt werden?
Dies läuft bei mir auch nicht:
Code:
TDownloadCompleteEvent = reference to procedure(Stream: TStream; Success: Boolean);
Vor allem aber verstehe ich nicht, wie/wo deine Prozedur ThreadedDownloadFile einzubinden ist.
Eigentlich sollte doch eine
Unit, die eine Datei in einem synchronen Thread lädt, ein übliches Mittel in jedem Werkzeugkasten sein. Deshalb wundert es mich, dass ich auch nach intensivem googeln nichts dergleichen finde.
Könnte hier vielleicht jemand netterweise seine entsprechende
Unit (Firemonkey!) zur Verfügung stellen?
Da niemand etwas anderes erwähnt hat, ist es wohl erforderlich, dass nach dem Aufruf des Download Threads ein Timer zyklisch prüft, ob OnDownladComplete schon ein Ergebnis bereit gestellt hat?