consegui encontrar algumas respostas.
se puderem me ajudar , agradeco desde ja
Código: Selecionar todos
Try
oServer:=CreateObject("MSXML2.XMLHTTP") // oOle:=CreateObject("MSXML2.ServerXMLHTTP.6.0")
Catch
oServer:=CreateObject("Microsoft.XMLHTTP")
End
//
oServer:Open( 'POST', rA_HTTP , .f. )
oServer:SetRequestHeader( "Connection", "keep-alive" ) // NAO UTILIZO ESSA LINHA PQ NAO SEI SUA FUNÇAO
try
oServer:Send()
oServer:WaitForResponse( 100000 ) // NAO UTILIZO PQ TAMBEM NAO SEI COMO FUNCIONA
catch
alert('consulta fora do ar')
end
Gostaria de saber sobre o WaitforResponse, esse parametro é milesegundos ? tem lugar que dizem que é para usar antes
do SEND() outros post dizem para colar depois... ai fiquei sem entender como usar, e qual a finalidade.
os problemas que to tendo é:
- as vezes parece que o SEND é tao rapido que ele da erro e cai na mensagem "consulta fora do ar"
- as vezes o SEND demora demora parece que ate trava a tela do meu sistema (harbour 3.2 modo console), e isso
acontece quando a pagina que estou consultando esta com lentidao para abrir no navegador.
precisa configurar um timeout, mas nao sei qual a melhor forma de fazer nesses casos.
desde ja agradeço as orientacoes,
Obrigado !!!
