FTPDelete()

FTPDelete() – Datei über FTP Löschen

Die Funktion löscht eine oder mehrere Dateien auf einem FTP-Server. Die Funktion arbeitet Case Sensitive (trifft auch auf die Endungen der Dateien zu).

Parameter	Beschreibung
aCaption:C	Titel
aRemoteHost:C	IP oder Domain des Hosts
aRemotePort:N	Port des Hosts
aUserName:C	User-Name
aPassword:C	Password
aPassiveMode:L	Passiver Übertragungsmodus
aFileList:U	Liste der Dateien
aHostPath:C	RemotePath; default = Leerstring
aLogFileName:C	Logfile schreiben; default = Leerstring
aIncludeHostDir:L	Directorylist in TraceFile; default = false
lShowMsg:L	Exceptions statt Messages; default = false
aQuietMode:L	Kein Dialog anzeigen. Wenn in beas benutzt wird, ist aQuietMode IMMER true

Rückgabewert

Numerisch

0 für korrekte Ausführung, ansonsten Fehler-Code
1 für Verbindungsfehler
2 für Fehler beim Verzeichniswechsel
3 u.a Datei nicht gefunden
5 für Vorgang abgebrochen
Achtung: FTP-Fehler können auch eine Exception auslösen

Beispiel

CODE

| aResult, i, j, aHostFiles, aHostPath, aSourcePath,
  aDestPath, aDestFile, aFileExt, aLogFile, aGetFiles, aLogTxt |

function ErrChk(aErrNo)
   if aErrNo <> 0 then
      ShowMessage('Error ' + Str(aErrNo)),
      Abort(),
   endif,
end,

aLogFile    := 'C:\SICHERUNG\FTP_Test\MyFtpLog.txt',
aDestPath   := 'C:\SICHERUNG\FTP_Test\Download\',
aSourcePath := 'C:\SICHERUNG\FTP_Test\Upload\',
aHostPath   := 'Test',

if File(aLogFile) then
   DeleteFile(aLogFile),
endif,
startseq,

   WriteLn('Beispiel: Datei auf dem FTPServer löschen ...'),
   ErrChk(aResult := FTPDelete('Datei umbenennen',               // Überschrift
                               '192.168.10.152',                 // RemoteHost
                               21,                               // RemotePort
                               'beuser',                         // UserName
                               'be32',                           // Password
                               true,                             // PassivMode
                               {'DataUpload-New.pdf'},           // aFileArray
                               aHostPath,                        // HostPath
                               aLogFile)),                       // LogFileName


onerror,
   aResult := -1,
stopseq,

aResult