FTPDir() – Verzeichnis auf FTP-Server
Die Funktion liefert in aResultDir das Verzeichnis eines FTP-Servers (s. Beispiel).
|
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 |
|
aResultDir:R |
Ergebnis-Parameter, der nach Ausführen der Funktion das Verzeichnis enthält |
|
aHostPath:C |
RemotePath; default = Leerstring |
|
aLogFileName:C |
Logfile schreiben; default = Leerstring |
|
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: Verzeichnis des FTPServers holen ...'),
ErrChk(aResult := FTPDir('Hole Verzeichnis vom FTP-Server', // Überschrift
'192.168.10.152', // RemoteHost
21, // RemotePort
'beuser', // UserName
'be32', // Password
.t., // PassivMode
aHostFiles, // ResultDir
aHostPath, // HostPath
aLogFile)), // LogFileName
onerror,
aResult := -1,
stopseq,
if !Empty(aResult) and LoadArray(aLogTxt, aLogFile) then
WriteLn(aLogTxt),
endif,
aHostFiles