HTTP-Library on different Port?

Sub Process_Globals
    Dim URL As String
    URL = "http://myadress.dyndns.org/GetAll"
    Dim HttpClient1 As HttpClient
End Sub

Sub Activity_Create(FirstTime As Boolean)
   HttpClient1.Initialize("HttpClient1")
   httpclient1.SetProxy("guttmann.homeip.net",4455,"http")
   getdatafromserver
End Sub

Sub GetDataFromServer
        Dim request As HttpRequest
   request.InitializeGet(URL)
        request.Timeout = 100000 'set timeout to 10 seconds
        If HttpClient1.ExecuteCredentials(request, 1,"user","pass") = False Then Return 
End Sub

Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId As Int)
    result = Response.GetString("UTF8") 'Convert the response to a string
End Sub

Sub HttpClient1_ResponseError (Reason As String, StatusCode As Int, TaskId As Int)
    Log(Reason)
    Log(StatusCode)
    msg = "Error connecting to server."
    If reason <> Null Then msg = msg & CRLF & Reason
    ToastMessageShow (msg, True)
End Sub

Sub Process_Globals
    Dim URL As String
    URL = "http://myadress.dyndns.org:5544/GetAll"
    Dim HttpClient1 As HttpClient
End Sub

Sub Activity_Create(FirstTime As Boolean)
   HttpClient1.Initialize("HttpClient1")
   getdatafromserver
End Sub

If reason <> Null Then msg = msg & CRLF & Reason

If reason <> Null Then msg = msg & CRLF & Reason.GetString("UTF8")

req.SetHeader("User-Agent", "Mozilla/5.0 (Linux; U; Android 2.2.1; en-us; Nexus One Build/FRG83) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1")