[delphi-br] Webbrowser - Documento completo

Mon, 16 Feb 2009 16:22:55 -0800 

Olá amigos,

 

Meu problema é tratar documentos carregado no Webbrowser. Meu programa faz o
seguinte:

 

Num twebbrowser chamo o seguinte link:

 

procedure TfrmFilha.FormShow(Sender: TObject);

var

     Link:          string;

begin

     Link := 'http://celepar7.pr.gov.br/mtm/servicos/cons_multa.asp';

     Web.Navigate(Link);

end;

 

Aí, uso o evento WebDocumentComplete para preencher o formulário quando o
webbrowser carregar a página.

 

procedure TfrmFilha.WebDocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

var

     document: IHTMLDocument2;

     theForm: IHTMLFormElement;

     index: integer;

begin

     document := Web.Document as IHTMLDocument2;

     theForm := GetFormByNumber(document,0);

     SetFieldValue(theForm,'renavam','768861314');

     theForm.submit;

 

 

O problema é que tenho que usar o WebDocumentComplete para tratar o
resultado e não consigo descobrir quando o Webbrowser  leu o primeiro e o
segundo documento HTML.

Ou sejam, carrego 2 html no webbrowser e tenho que executar código
diferentes pra cada um.

 

Pensei no método Webbrowser.LacationName e Webbrowser.LocationUrl mas ambos
retornam o mesmo valor e não servem para identificar.

 

Alguém tem uma solução pra esse problema?

 

Grato,

 

Reinaldo

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a