Winsock again

[aalopes]

Im trying to make a COM object to "talk" to a server.
I invoke the ConnectToWERS() method and my winsock connects fine with State = 7 but it doesnt return me any data. Gives
BytesReceived = 0
neither can I trap the DataArrival event to see what happened.

If I try the same thing in a form-based .exe using winsock control, it works fine and gives data back.

Am I missing anything ? Or is it got anything to do with statelessness of the Object method calls. Statelessness Im trying to avoid by storing the data received back in the object feature sDataBack.

Pls help.

Allen.


Option Explicit

'Private objWERSSocket As New MSWinsockLib.Winsock
Private WithEvents objWERSSocket As MSWinsockLib.Winsock

Public sDump As String
Private sDataBack As String


Public Function ConnectToWERS() As Boolean
Dim sRequestHeader As String
Dim sRequestURL As String
Dim sURL As String
Dim blnRetValue As Boolean


objWERSSocket.Protocol = sckTCPProtocol
objWERSSocket.RemoteHost = "sdowning"
objWERSSocket.RemotePort = 80

Call objWERSSocket.Connect

While objWERSSocket.State <> 7
MsgBox "Before " & objWERSSocket.State
DoEvents
Wend

MsgBox "After " & objWERSSocket.State

sRequestHeader = "GET /livelink/livelink.exe?func=Personal.Tasks HTTP/1.0" & Chr(10)
sRequestHeader = sRequestHeader & "Content-type: application/x-www-form-urlencoded" & Chr(10)
sRequestHeader = sRequestHeader & "Content-length: " & Len(sRequestURL) & Chr(10) & Chr(10)
sURL = sRequestHeader

MsgBox sURL
Call objWERSSocket.SendData(sURL)

End Function

Private Sub Class_Terminate()
MsgBox objWERSSocket.BytesReceived
Set objWERSSocket = Nothing
End Sub

Private Sub objWERSSocket_DataArrival(ByVal bytesTotal As Long)

Call objWERSSocket.GetData(sDataBack, vbString)

'sDump = sDump & sDataBack
End Sub

Private Sub Class_Initialize()
Set objWERSSocket = New MSWinsockLib.Winsock
End Sub