Hi!
ich habe mit Winsock.ocx eine Verbindung zu einem FTP-server aufgebaut(Port 21)
Dann kann ich auch Raw befehle schicken.
Mein Problem ist, ich kann zwar den befehl zum download einer datei schicken
<bre>RETR index.php</pre>
, worauf auch folgende Meldung erscheint:
<pre>150 Data connection created for /www/index.php retrieving</pre>.
das problem ist, ich weiss nicht wie ich darauf reagieren soll, weil mein winsock-element so tut als ob keine daten ankommen.
bitte sagt mir, wie ich winsock dazu bringen soll, den "Downstream" zu akzeptieren.
Der Quellcode bis zum download sieht folgendermaßen aus:
<pre>
If schritt = 1 Then
Call Send("USER testuser", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 2 Then
Call Send("PASS test", Winsock1, List1, False)
schritt = schritt + 1
ElseIf schritt = 3 Then
Call Send("PASV", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 4 Then
Call Send("CWD www", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 5 Then
schritt = schritt + 1
Call Send("Type A", Winsock1, List1, True)
ElseIf schritt = 6 Then
Call Send("RETR index.php", Winsock1, List1, True)
schritt = schritt + 1
End If
</pre>
wobei die funktion send wie folgt definiert ist:
<pre>
Private Sub Send(ByVal text As String, ByVal sockel As Winsock, Optional list As ListBox, Optional show As Boolean)
On Error Resume Next
If show = True Then
list.AddItem (text)
Else
list.AddItem ("*******")
End If
sockel.SendData (text + Chr(13) + Chr(10))
End Sub
</pre>
Danke schon mal für jede Hilfe
daniel heinrich
ich habe mit Winsock.ocx eine Verbindung zu einem FTP-server aufgebaut(Port 21)
Dann kann ich auch Raw befehle schicken.
Mein Problem ist, ich kann zwar den befehl zum download einer datei schicken
<bre>RETR index.php</pre>
, worauf auch folgende Meldung erscheint:
<pre>150 Data connection created for /www/index.php retrieving</pre>.
das problem ist, ich weiss nicht wie ich darauf reagieren soll, weil mein winsock-element so tut als ob keine daten ankommen.
bitte sagt mir, wie ich winsock dazu bringen soll, den "Downstream" zu akzeptieren.
Der Quellcode bis zum download sieht folgendermaßen aus:
<pre>
If schritt = 1 Then
Call Send("USER testuser", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 2 Then
Call Send("PASS test", Winsock1, List1, False)
schritt = schritt + 1
ElseIf schritt = 3 Then
Call Send("PASV", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 4 Then
Call Send("CWD www", Winsock1, List1, True)
schritt = schritt + 1
ElseIf schritt = 5 Then
schritt = schritt + 1
Call Send("Type A", Winsock1, List1, True)
ElseIf schritt = 6 Then
Call Send("RETR index.php", Winsock1, List1, True)
schritt = schritt + 1
End If
</pre>
wobei die funktion send wie folgt definiert ist:
<pre>
Private Sub Send(ByVal text As String, ByVal sockel As Winsock, Optional list As ListBox, Optional show As Boolean)
On Error Resume Next
If show = True Then
list.AddItem (text)
Else
list.AddItem ("*******")
End If
sockel.SendData (text + Chr(13) + Chr(10))
End Sub
</pre>
Danke schon mal für jede Hilfe
daniel heinrich