Ich benutze fast immer die
Unit AnonThread.pas aus den Delphi samples. Wie hier beschrieben:
https://community.embarcadero.com/bl...tification-127
Delphi-Quellcode:
//TAnonymousThread findet sich in anonthread.pas in den Delphi Samples.
TAnonymousThread<TMyResultRecord>.create(
Function:TMyResultRecord
// Alles was parallel im hintergrund passieren soll
Begin
Result.worked := false;
Result.Filename := LastSavedFile;
DoFTPUpload(Result.Filename);
Result.worked := true;
End
,
Procedure (res:TMyResultRecord)
// Was passieren soll wenn der Thread fertig ist
Begin
if Res.Worked
then
ShowSyncedMessage('
Upload von '+ res.filename+'
erfolgreich!' );
End
,
Procedure (e:
Exception)
// Was passieren soll wenn der Thread mit einer Exception endete.
Begin
ShowSyncedMessage( '
FTP UPLOAD Thread:'+e.
message );
End
);