Address in use, Winsock

[Lknt]

Hello I am using Winsock control, but when I try to connect VB 6 says error: "Address in use". If I close my server app and try to run my program it doesn't give this error. Here is my simple code so far:

Private Sub Form_Load()
ws.Close
ws.LocalPort = 1007
ws.Connect "192.168.1.11"
End Sub

I left all winsock control properties to default in designer

Please Help Me!
Thank you in advance.

[agent_007]

try this

Private Sub Form_Load()
ws.Close
ws.Connect "192.168.1.11",1007
End Sub

[Lknt]

Okay right now it seems to be working, thank you.

[Lknt]

Right now it doesn't say address in use, but when I try to send a specific text, it says "Wrong protocol or connection state for the requested transaction ot request."
Here is the code:

Private Sub Form_Load()
Me.Icon = LoadResPicture(ReadINI("MainWindow", "Icon", "UI.ptf", "MAIN"), vbResIcon)
ws.Close
ws.Connect "192.168.1.11", 1007
ws.SendData ReadINI("INISection", "FirstErrNotify", "comunication.ptf", "[ERRREP]!")

When I substitute the ReadINI function, with a static text like this

ws.SendData "Test"

it works fine. I can't understand it!

Please help me!

[akhileshbc]

Try reading the data (using readini) to a string variable, and then use that variable to send data.... (I am not sure about this, just a thought)...

eg:

Private Sub Form_Load()
Me.Icon = LoadResPicture(ReadINI("MainWindow", "Icon", "UI.ptf", "MAIN"), vbResIcon)
ws.Close
ws.Connect "192.168.1.11", 1007
dim strTemp as string
strTemp=ReadINI("INISection", "FirstErrNotify", "comunication.ptf", "[ERRREP]!")
ws.SendData strTemp

[Lknt]

I tried that already

[Pino]

Whats in the variable? Have you stepped through?

[Lknt]

For the time being the ReadINI function returns this "Program Error!". If you want here is the code in ReadINI

Public Function ReadINI(riSection As String, riKey As String, riFile As String, riDefault As String) As String
    Dim sRiBuffer As String
    Dim sRiValue As String
    Dim sRiLong As String
    Dim INIFile As String
    INIFile = App.Path & "\" & riFile
    If Dir(INIFile) <> "" Then
        sRiBuffer = String(255, vbNull)
        sRiLong = GetPrivateProfileString(riSection, riKey, Chr(1), sRiBuffer, 255, INIFile)
        If Left$(sRiBuffer, 1) <> Chr(1) Then
            sRiValue = Left$(sRiBuffer, sRiLong)
            If sRiValue <> "" Then
                ReadINI = sRiValue
            Else
                ReadINI = riDefault
            End If
        Else
            ReadINI = riDefault
        End If
    Else
        ReadINI = riDefault
    End If
End Function

But I actually found that on the Internet.
I guess that's what you meant by variable, pino?

[Pino]

Have you tried removing the explination mark - Might be a problem with that character. I cant see why but give it a try.

If you say that ws.SendData "Test" - Works then you have a problem with you INI function you need to make sure that the value returned from this function is correct - Step through the program using break points.

[Lknt]

Actually I tried out also something else

ws.SendData InputBox("", "", ReadINI("INISection", "FirstErrNotify", "ui.ptf", "[ERRREP]!"))

in this code I show an input box and set the text from ReadINI as default, when I run the program and click OK on the input box it works.