HB TIPClientHTTP() Freezes

[sistemasit]

My program freezes when I execute TIPClientHTTP() function.

oInternet:= TIPClientHTTP():New("http://www.google.com", .f.)

What could It be?

[Enrico Maria Giordano]

This sample doesn't freeze here:

Code: Select all

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oInternet:= TIPClientHTTP():New("http://www.google.com", .f.)

    ? oInternet

    RETURN NIL

EMG

[Rick Lipkin]

sistemasit

When you go to Google.com .. your browser tries to resolve Google as a secure connection https://www.google.com/ ... Depending on your default browser .. using http://www.google.com may not resolve the secure connection ?

Rick Lipkin

[sistemasit]

I already tried others URLs, happens the same. It freezes

[Enrico Maria Giordano]

Have you tried my sample as is? Does it freeze? If yes, you have a problem in your xHarbour installation or in your http connection (a firewall?).

EMG

[sistemasit]

Have you tried my sample as is? Does it freeze? If yes, you have a problem in your xHarbour installation or in your http connection (a firewall?).

EMG

I did Enrico. I tried your sample. I also downloaded the latest version of xHarbour.

[Enrico Maria Giordano]

Have you tried my sample as is? Does it freeze? If yes, you have a problem in your xHarbour installation or in your http connection (a firewall?).

EMG

I did Enrico. I tried your sample. I also downloaded the latest version of xHarbour.

Does my sample freeze or not for you?

EMG

[sistemasit]

yes

[sistemasit]

my TIP.LIB is may,28-2015

[Enrico Maria Giordano]

my TIP.LIB is may,28-2015

It's very old. Mine is sep,2-2017.

EMG

[sistemasit]

I am downloading from xHarbour.org, and I get this lib from '2015. Is there any other link?

[Enrico Maria Giordano]

I am downloading from xHarbour.org, and I get this lib from '2015. Is there any other link?

Which package do you have downloaded? I just tried to download this:

http://www.xharbour.org/files/download/ ... bcc730.zip

and got a new tip.lib.

EMG

[ronaldo]

Tive problemas tambem, então troquei por este:

CursorWait()
cURL := "http://bazevani.com.br/asp/pesquisa.asp?tipo=L&serie=" + _Serie

oHttp := CreateObject("Microsoft.XMLHTTP")
oHttp:Open("GET",cURL,.F.)
lNetError:=.f.
TRY
oHttp:Send()
CATCH oError
lNetError := .T.
END TRY
cHtml := ""
if !lNetError

cHtml := oHttp:ResponseBody
Else
Msgstop("Erro")
endif