FTP Upload Problem

[Golli18]

Hey Jonas Shinaniganz,

auf dem Android sieht das so aus:

Delphi-Quellcode:

procedure TTabbedForm.datenAbfragen(command: string; parameter: String);
var
  datei: textfile;
  stream: TFileStream;
  begin
    try
      AssignFile(datei, TPath.GetTempPath + '/command.txt');
      ReWrite(datei);
      WriteLn(datei, command);
      WriteLn(datei, parameter);
      CloseFile(datei);
    except
      CloseFile(datei);
      showMessage('Befehl ' + command + ' fehlgeschlagen');
    end;

    stream:= TFileStream.Create(TPath.GetTempPath + '/command.txt', fmOpenRead);

    //Befehl auf den Server hochladen
    IdFTP1.TransferType := ftASCII;
    //Datei command.txt hochladen
    //IdFTP1.Put(TPath.GetTempPath + '/command.txt', ed_Benutzername.Text + '.txt', true);
    IdFTP1.Put(stream, ed_Benutzername.Text, true);
    //Datei ipadresse.txt runtergeladen
    IdFTP1.Get(ed_Benutzername.Text + '.txt', TPath.GetTempPath + '/command.txt', true);

end;