Könntest Du mir bitte noch sagen, wie sich das mit dem Execute verhält?

zusammenfalten · markieren

Delphi-Quellcode:

type
  TMyThread = class(TThread)
  public
    ----> Hier habe ich meine FTPUpload Prozedur eingefügt
    procedure FTPUpload;
    procedure Execute; override;
  end;

var
  MyThread: TMyThread;

procedure TMyThread.Execute;
begin
  FTPUpload; //beim Ausführen des Threads soll die Uploadfunktion ausgeführt werden.
  // wenn man was "endlos" im Hintergrund abarbeiten will
  ---- > ich will nichts endlos ausführen
end;

Wenn ich auf den Auslöser drücke wird ein JPG erzeugt (fname = Dateiname):
TFile.WriteAllBytes(TPath.Combine(TPath.GetPublicP ath, fname + '.jpg'), Data);

Und direkt danach habe ich den Code:

markieren

Delphi-Quellcode:

  MyThread := TMyThread.Create;
  MyThread.FreeOnTerminate := true;
  MyThread.Terminate;

Wo wird MyThread.Execute aufgerufen? Passiert das automatisch onCreate?

LG

Mirko

.. der Thread startet sofort, wenn der Thread nicht mit dem CreateSuspended = true Parameter aufgerufen wird.

MyThread.Terminate ist meines Wissens nicht notwendig, da der Thread automatisch terminiert wenn der Executeblock abgearbeitet wurde.

Grüße
Klaus

Wenn du einen ganz einfachen Thread haben möchtest, der nicht viel mehr als den Upload machen solll, dann kannst du auch einen anonymen Thread verwenden:

markieren

Delphi-Quellcode:

  TThread.CreateAnonymousThread(procedure
  begin
    FTPUpload;
  end).Start();

Wäre ggf. auch eine gute Anwendung für System.Threading?

markieren

Delphi-Quellcode:

TTask.Run(
  procedure
  begin
    FTPUpload;
  end);

Ich benutze fast immer die Unit AnonThread.pas aus den Delphi samples. Wie hier beschrieben:
https://community.embarcadero.com/bl...tification-127

zusammenfalten · markieren

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
  );

Zitat von Klaus01:

.. der Thread startet sofort, wenn der Thread nicht mit dem CreateSuspended = true Parameter aufgerufen wird.

MyThread.Terminate ist meines Wissens nicht notwendig, da der Thread automatisch terminiert wenn der Executeblock abgearbeitet wurde.

Grüße
Klaus

Richtig. Das hab' ich nur zur Illustration eingebaut wie man was länger laufendes mit Schleife im Thread behandeln kann.

Danke für die vielen Anregungen. Ich habe es bis dato einfach hiermit gemacht und es funktioniert wie gewünscht.

markieren

Delphi-Quellcode:

TTask.Run(
  procedure
  begin
    FTPUpload;
  end);

Ich wollte den Upload eigentlich in einen Service verlegen, der dann im Hintergrund mitläuft aber unter Android 12 habe ich damit noch ein Problem.
Die App schließt sich unvermittelt, sobald der Service gestartet werden soll.
Irgendwas scheint da generell schlief zu laufen, denn das gleiche macht er auch bei der Notification Demo.

LG

Mirko