FTPRename()
FTPRename() – FTP Datei umbenennen
Die Funktion ermöglicht das Umbenennen von Dateien auf einem FTP-Server.
Parameter | Beschreibung |
---|---|
aCaption:C | Titel |
aRemoteHost:C | IP oder Domain des Hosts |
aRemotePort:N | Port des Hosts |
aUserName:C | User-Name |
aPassword:C | Passwort |
aPassiveMode:L | Passiver Übertragungsmodus |
aFileList:U | Array mit altem und neuem Dateinamen |
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,
FTPUpload('Datei übertragen', // Überschrift
'192.168.10.152', // RemoteHost
21, // RemotePort
'beuser', // UserName
'be32', // Password
.t., // PassivMode
{'C:\SICHERUNG\FTP_Test\DataUpload.pdf'}, // aFileArray
aHostPath, // HostPath
aLogFile), // LogFileName
WriteLn('Beispiel: Datei auf dem FTPServer umbenennen ...'),
ErrChk(aResult := FTPRename('Datei umbenennen', // Überschrift
'192.168.10.152', // RemoteHost
21, // RemotePort
'beuser', // UserName
'be32', // Password
true, // PassivMode
{'DataUpload.pdf', 'DataUpload-New.pdf'}, // aFileArray
aHostPath, // HostPath
aLogFile)), // LogFileName
onerror,
aResult := -1,
stopseq,
aResult