Delphi-Quellcode:
x := TStringlist.Create;
x.LoadFromFile(extractfilepath(application.ExeName)+'
\'+combobox1.text+'
.txt');
x.Add(Datum+'
|'+inttostr(Kilometer)+'
|'+inttostr(Punkte)+'
|'+'
Datei');
deletefile(extractfilepath(application.ExeName)+'
\'+combobox1.text+'
.txt');
x.SaveToFile(extractfilepath(application.ExeName)+'
\'+combobox1.text+'
.txt');
if ftp.Connected
then
begin
showmessage(combobox1.Text);
showmessage(Datum+'
|'+inttostr(Kilometer)+'
|'+inttostr(Punkte)+'
|'+ '
Datei');
FTP.Delete(combobox1.text+'
.txt');
FTP.Put(combobox1.text+'
.txt',extractfilepath(application.ExeName)+'
\'+ combobox1.text+'
.txt',true);
Hallo es kommt immer die Fehlermeldung das der Dateiname Invalid sei aber er konnte komiuscherweiße ohne Fehlermeldung davor die Datei löschen auf dem
ftp server