FTPUpload() – Hochladen eines Files auf einen FTP-Server
Die Funktion lädt eine oder mehrere Dateien auf einen 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 |
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 |
|
aTransferBinary:L |
Setzt den Transfertyp auf BINARY/ASCII; default = true = BINARY |
|
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
| 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 zum FTPServer kopieren ...'),
ErrChk(aResult := FTPUpload('Datei übertragen', // Überschrift
'192.168.10.152', // RemoteHost
21, // RemotePort
'beuser', // UserName
'be32', // Password
.t., // PassivMode
{'C:\SICHERUNG\FTP_Test\BigDataUpload.pdf',
'C:\SICHERUNG\FTP_Test\DataUpload.pdf',
'C:\SICHERUNG\FTP_Test\TextUpload.txt'}, // aFileArray
aHostPath, // HostPath
aLogFile)), // LogFileName
onerror,
aResult := -1,
stopseq,
aResult