FiveTech Software tech support forums

My program freezes when I execute TIPClientHTTP() function.

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

What could It be?

This sample doesn't freeze here:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

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

    ? oInternet

    RETURN NIL

EMG

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

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

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

Enrico Maria Giordano wrote: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.

sistemasit wrote:

Enrico Maria Giordano wrote: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

yes

my TIP.LIB is may,28-2015

sistemasit wrote:my TIP.LIB is may,28-2015

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

EMG

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

sistemasit wrote: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/windows/xhb10205_bcc730.zip

and got a new tip.lib.

EMG

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