Hallo zusammen,

ich habe eine kleine Kamera App für Android auf Basis der Camera for Android Komponente von Winsoft gemacht.
Nach dem ich ein Bild gemacht habe wird selbiges gespeichert und per FTP auf einen Server geladen.
Funktioniert alles bis auf die Tatsache, dass während der Uploads natürlich die GUI blockiert ist.

Ich kenne mich mit Treading nicht aus und wollte fragen wie ich den FTP Upload in einen geeigneten Thread packe, der die GUI nicht blockiert.

In der Codelib habe ein zwar einen entsprechenden Eintrag gefunden, der aber nicht das gewünschte Ergebnis bringt.

LG

Mirko

Hi Mirko,
muss es FTP sein, da kann jeder Deinen Usernamen mitsamt Passwort im Klartext lesen und auch die Daten lassen sich ohne Probleme mitlesen.
Lässt der Server kein FTPs (FTP over SSL) oder SFTP (SecureFTP) zu?

Grüße
Klaus

Die Frage, ob es FTP sein muss ist zwar erlaubt, führt aber vom Thema weg.
Man kann das Hochladen per FTP vermutlich in einen Thread packen oder TTask
bemühen, was die Sache evtl. vereinfacht gegenüber der klassischen Thread Programmierung.

Wichtig dabei ist, dass aus einem Thread keine direkten GUI Aufrufe geben darf, da es sonst
irgendwann zufällig Bumm macht!

Ein klassischer Thread wäre so zu programmieren:

zusammenfalten · markieren

Delphi-Quellcode:

uses
  Classes;

type
  TMyThread = class(TThread)
  public
    // Hier muss alles rein, was nebenläufig sein soll
    procedure Execute; override;
  end;

var
  MyThread: TMyThread;

procedure TMyThread.Execute;
begin
  // wenn man was "endlos" im Hintergrund abarbeiten will
  while not Terminated do
  begin
  end;
end;

begin
  MyThread := TMyThread.Create;
  MyThread.FreeOnTerminate := true; // das ggf. im überschriebenen Constructor
                                    // des Threads auf true setzen
  // irgendwas im Vordergrund tun, der Thread wurde bereits gestartet

  // und hier die Schleife im Thread stoppen, der wird dann beendet und freigegeben
  MyThread.Terminate;

Nur so als Beispiel...

Grüße
TurboMagic

Danke ich denke damit komme ich schonmal weiter.

Das while not Terminated do begin end; wäre dann mein FTP Upload und dann meine Kamera Vorschau darunter nach dem // irgendwas im Vordergrund tun, der Thread wurde bereits gestartet .

Ich versuche das mal.

@Klaus: Ja der Server lässt sftp zu aber testweise habe ich das erstmal deaktiviert weil er mit einen Fehler beim Upload gab "traffic needs to be encrypted" oder sowas.
Die Verbindung wurde aber hergestellt.

LG

Mirko

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.