I was working http library last mnonth but now Http request not responding anything,see my below code and advise
Sub CmdASP_Click
Dim request As HttpRequest
URL = "http://202.89.74.155:9090/myweb/sql0.asp"
request.InitializeGet(URL)
request.Timeout = 10000 'set timeout to 10 seconds
If HttpClient1.Execute(request, 300) = False Then Msgbox("error","err")
End Sub
Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Msgbox(Response,"")
Msgbox(Response.GetString("UTF8"),"String")
End Sub
Sub HttpClient1_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
ProgressDialogHide
msg = "Error connecting to server."
If reason <> Null Then msg = msg & CRLF & Reason
Msgbox(msg, "Error")
End Sub
Sub CmdASP_Click
Dim request As HttpRequest
URL = "http://202.89.74.155:9090/myweb/sql0.asp"
request.InitializeGet(URL)
request.Timeout = 10000 'set timeout to 10 seconds
If HttpClient1.Execute(request, 300) = False Then Msgbox("error","err")
End Sub
Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Msgbox(Response,"")
Msgbox(Response.GetString("UTF8"),"String")
End Sub
Sub HttpClient1_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
ProgressDialogHide
msg = "Error connecting to server."
If reason <> Null Then msg = msg & CRLF & Reason
Msgbox(msg, "Error")
End Sub
