My program freezes when I execute TIPClientHTTP() function.
oInternet:= TIPClientHTTP():New("http://www.google.com", .f.)
What could It be?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour HB TIPClientHTTP() Freezes
This sample doesn't freeze here:
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oInternet:= TIPClientHTTP():New("http://www.google.com", .f.)
? oInternet
RETURN NILEMG
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