Re: Winsock mit VB 5.0

TheWikkinger — Fri, 15 Jul 2005 08:54:13 GMT

dann wird das problem wohl in "SetStatus" liegen, der bei einer evt. Initialisierung davor, oder oder oder...

Winsock mit VB 5.0

Moorhuhn — Fri, 15 Jul 2005 07:42:46 GMT

Hallo!

Habe folgendes Problem. Ich versuche einen FTP mittels Winsock zu erzeugen.
Leider erhalten ich im Class-Modul bereits beim Connect einen Timeout.
Der Status des Steuerobjekte ist 7 (state = verbunden). Der Returnwert des Connect-String ist aber nicht belegt

Kann mir jemand weiterhelfen.

Coding nach Variable.connect: (Private WithEvents Variable As MSWinsockLib.Winsock)

Private Function ReplyCode(strRepCode As String, strMess As String) As Boolean
' ********
' Routine wartet auf bestimmten ReplyCode
' ********

    ' warte auf Steuerdaten
    Call SetStatus("warte auf " & strMess)
    While Len(strSteuer) < 3                                              -> Schleife bekommt Timeout
        DoEvents
    Wend

    If Left(strSteuer, 3) = strRepCode Then
        Call SetStatus(strMess & " okay")
        ReplyCode = True
    Else
        Call SetStatus("Fehler " & strMess & ": " & strSteuer)
        ReplyCode = False
    End If

End Function

Danke