PC Toledo

ola pessoal, estou tendo umas dificuldades nos comandos abaixo e nao
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 se essa "keep-alive" é realmente necessario nessa conexoes POST
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 !!!

Conexão persistente
Significa uma conexão persistente, entre o cliente e o servidor. Impedindo que a conexão se quebre de forma intermitente

Abel escreveu:- as vezes o SEND demora demora parece que ate trava a tela do meu sistema

WaitForResponse - Esperar por resposta
100000 = 100 segundos

Trava por 100 segundos?

ola, Josequintas,

eu nao uso porque realmente não sabia o funcionamento, e nem sabia se ela deveria ser antes ou depois do SEND() as vezes o site que pesquiso esta super lento, e nem carrega no navegador de imediato, ai o send() trava minha aplicacao, (ctrl+alt+del)

se eu colocar o wait vai resolver isso ? ele nao deveria ser usado antes do SEND() ? ou tem algum outro comando para informar um timeout ao SEND() ?

colocar o 'keep-alive' tambem vai ajudar a resolver esse problema ?

Obrigado por enquanto,
ABEL

Olá!

Abel escreveu: ou tem algum outro comando para informar um timeout ao SEND() ?

Você postou dúvida sobre isto no tópico Gateway de Pagamentos e foi respondido lá. Aquele tópico tem um exemplo postado pelo Rochinha. Você testou com a correção que propus? Funcionou?

Ola, alxsts,

eu tinha visto esse post, mas deu erro quando implementei no meu sistema,

tem que incluir algum #include ?

no aguardo,
ABEL

Olá!

Só dizer que deu erro não ajuda nada... qual erro? Onde? Poste o código.

Abel escreveu:tem que incluir algum #include ?

Depende... no caso do MSXML2.XMLHTTP não precisa de include mas precisa linkar a lib HbWin. Se usa Harbour, inclua no script de compilação hbwin.hbc. Se estiver compilando sem hbp, use hbmk2 NomeTeuPrg hbwin.hbc

PC Toledo

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse

Desvendando o uso correto waitforresponse