FTP Upload Problem

[Golli18]

Hallo Delphi Forum,

Habe ein Problem.
Ich versuche über einen FTP-Client(Android) eine Text Datei hochzuladen mit folgendem Inhalt:

Befehl
Benutzername


Doch wenn die Datei beim Server ankommt, wird der Inhalt:

BefehlBenutzername

Warum?

Mit freundlichen Grüßen

Golli

[Jonas Shinaniganz]

Das könnte an einem Steuerzeichen / zwei unterschiedlichen Applikationen mit denen du die Textdatei betrachtest liegen.

Wie erstellst du die Textdatei auf dem Android?

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

[Jonas Shinaniganz]

WriteLn(datei, 'a');
WriteLn(datei, 'b');

ergibt in einer .txt eigentlich immer:
a
b

versuch mal bitte
WriteLn(datei, command + sLineBreak);
WriteLn(datei, parameter);

[Golli18]

Hey,

Leider ändert das nichts.

es steht trotz alldem BefehlBenutzername bzw. ab statt

Befehl
Benutzername

bzw.

a
b

[Jonas Shinaniganz]

Okay dann ändere mal die Zeile

IdFTP1.TransferType := ftASCII; in

IdFTP1.TransferType := ftBinary; Dann überträgst du die Datei im 'Binärmodus'. Mit welchem Programm schaust du dir die .txt auf dem FTP Server an?