Promotic
WikipediaLinkedInYoutubeTwitterFacebook

Příklad na přenos souborů pomocí FTP (ActiveX)

Je to příklad na přenos souborů přes intranet/internet protokolem FTP. Předpokládá použití ActiveX objektu ChilkatFTP. Ten lze ve "free" verzi stáhnout ze stránek výrobce: www.chilkatsoft.com/downloads.asp. Výrobce rovněž nabízí příklady pro použití na stránkách www.example-code.com/vbscript/ftp.asp a dokumantaci k rozhraní objektu zveřejnil na stránce www.chilkatsoft.com/refdoc/xChilkatFtpRef.html.
 
Použitá technologie se spouští v synchroním režimu, proto bude vhodné v systému Promotic k navázání spojení a přenosu souborů použít objekt PmSequencer. Ve skriptu je vytvořena instance na tento objekt pomocí metody VB skriptu CreateObject.
 
Skript pro odeslání souboru na FTP server v režimu pasivního přenosu.:
Dim oftp, success, localFilename, remoteFilename
  
Set oftp = CreateObject("ChilkatFTP.ChilkatFTP.1")
  
oftp.Hostname = "nameserver"
oftp.Username = "*****"
oftp.Password = "*****"
  
' Výchozí datový přenos je nastaven v "Active" módu (opakem je "Passive")
' Změna na pasivní režim přenosu se nastaví:
oftp.Passive = 1
  
' Připojení a přihlášení na FTP server.
success = oftp.Connect()
If (success <> 1) Then
  MsgBox oftp.LastErrorText
Else
  
  ' Změna nebo nastavení složky na FTP serveru kde je nebo bude umístěn požadovaný soubor.
  success = oftp.ChangeRemoteDir("/FTP")
  If (success <> 1) Then
    MsgBox oftp.LastErrorText
  Else
  
    ' Přenesení souboru
    localFilename = "c:\uplist.txt"
    remoteFilename = "uplist.txt"
  
    success = oftp.PutFile(localFilename,remoteFilename)
    If (success <> 1) Then
      MsgBox oftp.LastErrorText
    Else
      oftp.Disconnect
      MsgBox "Soubor přenesen!"
    End If
  End If
End If
 
Skript pro stažení souboru z FTP serveru v režimu pasivního přenosu.:
Dim oftp, success, localFilename, remoteFilename
  
Set oftp = CreateObject("ChilkatFTP.ChilkatFTP.1")
  
oftp.Hostname = "nameserver"
oftp.Username = "*****"
oftp.Password = "*****"
  
' Výchozí datový přenos je nastaven v "Active" módu (opakem je "Passive")
' Změna na pasivní režim přenosu se nastaví:
oftp.Passive = 1
  
' Připojení a přihlášení na FTP server.
success = oftp.Connect()
If (success <> 1) Then
  MsgBox oftp.LastErrorText
Else
  
  ' Změna nebo nastavení složky na FTP serveru kde je nebo bude umístěn požadovaný soubor.
  ' Tento krok pouze tehdy, když stahovaný soubor není v kořenovém adresáři pro FTP připojení
  success = oftp.ChangeRemoteDir("/FTP")
  If (success <> 1) Then
    MsgBox oftp.LastErrorText
  Else
  
    ' Stažení souboru
    localFilename = "c:\uplist.txt"
    remoteFilename = "uplist.txt"
  
    success = oftp.GetFile(remoteFilename,localFilename)
    If (success <> 1) Then
      MsgBox oftp.LastErrorText
    Else
      oftp.Disconnect
      MsgBox "Soubor stažen!"
    End If
  End If
End If
© MICROSYS, spol. s r. o.Tavičská 845/21 703 00 Ostrava-Vítkovice