FTPUpload()

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

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 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