Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

test_ftp_download.bas

Uploader:MitgliedThePuppetMaster
Datum/Zeit:26.01.2009 03:42:49
Hinweis: Dieser Quelltext ist Bestandteil des Projekts TSNEX V2/V3 (Extension), zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

'##############################################################################################################
'FTP_Download TEST-CLIENT für TSNE_V3 und TSNEX_V3
'##############################################################################################################



'##############################################################################################################
#include once "TSNEX_V3.bi"             'Wir binden die TSNE-X Version 3 ein. Sie beinhaltet bereits die TSNE_V3



'##############################################################################################################
'Ein Callback (Das ist Optional), kann den aktuellen fortschritt anzeigen. Dabei wird die Maximalgrösse sowie
'die bereits hochgeladene oder heruntergeladene Datengrösse angezeigt.
'Das Callback wird nur bei _DownLoad und _UpLoad verwendet.
Sub ProgressCallback(V_Max as UInteger, V_Value as UInteger)
locate , 1                              'Wir positionieren unseren Cursor an den Anfang der Zeile
Print Str(V_Max); " / "; Str(V_Value);  'Und schreiben odrt (ohen Zeilenumbruch) die aktuellen Werte hin.
End Sub



'##############################################################################################################
'Die URL Definieren. Sie wird per Commandline übergeben und muss folgendermassen aufgebaut sein:
'ftp://[<benutzername>[:<Passwort>]@]<Hostname>.<Domain>/[<verzeichniss>]/[<Dateiname>][.<Dateierweiterung>]
Dim XURL as String = Command()


'Hier rufen wir die Download Funktion für FTP auf.
'Dabei übergeben wir der Funktion eine Komplette URL, welche bereits Host / Port / User und Passwort enthält.
'Alternativ können auch alle Angaben direkt der Funktion übergeben werden, falls keine URL verwendet werden soll.
'Zusätzlich KANN (muss NICHT) ein Callback angegeben werden. Dieses Informiert uns über den aktuellen Fortschritt.
'
'Wird kein Zielverzeichniss angegeben, wird die Datei automatisch in das Selbe verzeichniss geschrieben.
'Ist eien Datei mit dem selben Namen schon vorhanden, erfolgt eine Fehlermeldung. Die Datei muss folglich zuvor
'von hand gelöscht werden, damit die Funktion den Download aufnehmen kann.
'Die Datei kann mit "Kill" von hand gelöscht werden.
Dim RV as Integer = TSNEX_FTP_Download(XURL, , , , , , @ProgressCallback)
Print ""                                    'Da wir ein Callback nutzen, das beim Print keine zeilenumbrüche macht, machen wir jetzt einen

If RV <> TSNEX_Const_NoError Then         'Prüfen, ob die Abfrage erfolgreich war. Wenn nicht
    Print TSNEX_GetGURUCode(RV)             'dann geben wir den Fehlercodezurück
    End -1                                  'Und beenden das Programm
End If



End 0                                       'Zum schluss das Programm sauber beenden