Interação com o usuário até o Timeout

[Equipe Estali]

Boa noite.

A Unit ACBrDFeSSL tem a procedure TDFeSSL.SetSSLHttpLib(ASSLHttpLib: TSSLHttpLib);

Nela são criados pelo que eu entendo o componente que será responsável pelo transporte dos dados/comunicação.

Eu gostaria que durante a chamada, enquanto aguarda a resposta do servidor, na tela o tempo continue diminuindo do Timeout definido em Segundos.

No entanto setei funções para loopback conforme API Windows no ACBrWinHTTPReqResp.

 

No método function TACBrWinHTTPReqResp.InternalOpenConnection: Boolean;

    WinHttpSetStatusCallback (FpSession, HTTPCallback, WINHTTP_CALLBACK_FLAG_ALL_NOTIFICATIONS, 0);
 

A HTTPCallback é um ponteiro para uma procedure de atualização de tela na Aplicação.

No entanto até a entra no ReceiveResponse, aguardando a resposta do servidor, ele não dispara nenhum evento para atualização, permitindo atualizar o Timeout em tela.

Noo utilizo outra forma de conexão da ACBRDFeSSL.

Existe algum método que já tem implementado essa opção de andamento enquanto aguarda a resposta do servidor ?

Alex

 

 

[Juliomar Marchetti]

Isso acho que já ocorre no onStatus do ACBrCTe
claro que ele não trás informações mas ele dispara o evento