Hallo,
ich bin im Forum auf Folgenden Code für die wichtigsten FTP commandos gestoßen.
http://www.wer-weiss-was.de/cgi-bin/forum/showarchiv…
Warum läuft der Code nicht ? ist das nur bei mir so (VB6) oder fehlt da etwas ?
danke mfg joe
Testserver: server User PW
xdclan.de
tester
test
Hi Joe,
Warum läuft der Code nicht ? ist das nur bei mir so (VB6) oder
fehlt da etwas ?
da fehlt etwas, ich habe einen Fehler beim Kopieren gamacht.
Inzwischen habe ich den Fehler korrigiert, klick Deinen Link noch mal an.
…tschuldigung.
Gruß, Rainer
Moin Rainer,
So weit Funktionier alles von zuhause, aber auf der arbeit geht nix.
Wenn ich mich direkt über UMTS ins Internet einwähle funktioniert der FTP Download. Aber übers Netzwerk nicht.
Es wird wohl am Proxy Server liegen. Wie kann ich diesen dem Programm bekannt machen ?
ich habe hier die zeilen:
Const INTERNET\_OPEN\_TYPE\_DIRECT = 1 ' direct to netConst INTERNET\_OPEN\_TYPE\_PROXY = 3 ' via named proxy
mfg jonny
Hi Joe,
wie es für mich aussieht wird hier …
Private Sub Form\_Load()
'KPD-Team 2000
'URL: http://www.allapi.net
'E-Mail: [email protected]
Dim hConnection As Long, hOpen As Long, sOrgPath As String
'open an internet connection
hOpen = InternetOpen("API-Guide sample program", INTERNET\_OPEN\_TYPE\_PRECONFIG, vbNullString, vbNullString, 0
...
die Konstante 0 eingetragen. Versuch’s da mal mit 3:
Const INTERNET_OPEN_TYPE_PROXY = 3
also:
hOpen = InternetOpen(„API-Guide sample program“, INTERNET_OPEN_TYPE_PROXY, StrProxy_Name, vbNullString, 0
In StrProxy_Name soll natürlich der Proxyname stehen und deklarieren mußt Du die Variable auch ert noch. Ich kann auch nichts testen, weil ich nicht mit FTP über unsere Firewall komme. 
Ich darf das nur in meinem Subnetz, mein Proxy lehnt den Versuch Port 21 zu öffnen ab. Dafür bin ich zu klein. 
Gruß, Rainer
Hi Rainer,
Also sollen die zeilen nun so aussehen,zbsp:
Dim StrProxy_Name = „86.234.223.44“
Const INTERNET_OPEN_TYPE_PROXY = 3
hOpen = InternetOpen(„API-Guide sample program“, INTERNET_OPEN_TYPE_PROXY, StrProxy_Name, vbNullString, 0
Soll nun hinter vbNullString, eine 0 oder eine 3 stehen ?
mfg joe
;
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi Joe,
Also sollen die zeilen nun so aussehen,zbsp:
Dim StrProxy_Name = „86.234.223.44“
??? Das ist doch kein Proxy-Name. Gefragt ist der Name des Proxy-Servers, nicht seine IP. Wie im Browser unter … -> Verbindung …
Const INTERNET_OPEN_TYPE_PROXY = 3
Hier wird der Konstanten der Wert 3 übergeben.
hOpen = InternetOpen(„API-Guide sample program“,
INTERNET_OPEN_TYPE_PROXY, StrProxy_Name, vbNullString, 0
Und hier steht der Name der konstanten, die die 3 enthält. Du kannst auch so schreiben:
hOpen = InternetOpen(„API-Guide sample program“,
3, StrProxy_Name, vbNullString, 0
das ist das Selbe, aber der Sinn der 3 ist so schwerer erkennbar, der Code wird für andere unverständlich.
Soll nun hinter vbNullString, eine 0 oder eine 3 stehen ?
eine Null. In der Deklaration steht, daß da ein Flag übergeben wird, was das bewirkt müßte man nachlesen, nur wo weiß ich nicht. Ich schätze, daß das auf MSDN zu finden ist.
Gruß, Rainer
HI,
komisch finde ich das wenn ich ein FTP Programm verwende ich eine Verbindung ohne eingabe eines Proxy SErves bekomme. Sobald ich aber mein Code nehme funktioniert es nicht. (ZUhause oder direkt mit dem Internet verbunden funktioniert der download)
Ist das normal ? Leider kann ich das mit dem Proxy erst morgen testen, muss ja nebenbei auch etwas arbeiten 
Danke dir
mfg joe
Hi Joe,
komisch finde ich das wenn ich ein FTP Programm verwende ich
eine Verbindung ohne eingabe eines Proxy SErves bekomme.
Sobald ich aber mein Code nehme funktioniert es nicht.
(ZUhause oder direkt mit dem Internet verbunden funktioniert
der download)
Ist das normal?
das weiß ich nicht, in der Firma funktioniert bei mir FTP ins Internet gar nicht. Selbst wenn ich die Firmenseite pflege, muß ich die Dateien mit nach Hause nehmen und von da aus hoch laden.
Leider kann ich das mit dem Proxy erst morgen
testen, muss ja nebenbei auch etwas arbeiten
Das ist eine Idee! Das werde ich auch mal versuchen. *fg*
Gruß, Rainer
Hi, Rainer.
Auf ActiveVB gibt es einen Code für einen FTP Client.
http://www.activevb.de/tipps/vb6tipps/tipp0193.html
Wie bringe ich diesen dazu auf Knopfdruck
von einer BEstimmten IP aus einem Bestimmten Ordner eine Datei zu laden. Das mit der IP und login ist kein problem. Aber wie sage ich ihm das er auf Knopfdruck aus einem Unterordner eine Datei runterläd ?
mfg jonny