Re: Connection failed - WeOnlyDo Discussion board

Re: Connection failed (General questions)

by Deepthi, Friday, July 06, 2007, 11:55 (6350 days ago) @ jefe

well it's one of your samples Simple Get but here is the code:

'Beginnig of the Code:
Private Sub cmdGet_Click()
wodHttp1.Get txtURL.Text
End Sub

Private Sub Form_Load()
Set wodHttp1 = New wodHttpDLXCom
wodHttp1.Timeout = 30

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set wodHttp1 = Nothing
End Sub

Private Sub wodHttp1_Done(ByVal ErrorCode As Long, ByVal ErrorText As String)
If ErrorCode = 0 Then
txtResponse.Text = wodHttp1.Response.Body

Else
txtResponse.Text = ErrorText
End If
End Sub

Private Sub wodHttp1_StateChange(ByVal OldState As wodHttpDLXComLib.HttpStates)

Label4.Caption = wodHttp1.StateString(wodHttp1.State)
End Sub

'End of the Code

Regards


Complete thread: