Exibir código de uma página carregada no webbrowser

[Sérgio Assunção]

Bom dia amigos... preciso adicionar em um memo o código fonte de uma página carregada pelo webbrowser. Estou executando o seguinte comando:

Memo1.Lines.Add (WebBrowser.OleObject.Document.DocumentElement.InnerHtml)

Mas o código carregado não é completo. Se eu clicar com o botão direito no WB e exibir o código fonte, ele é bem maior e inclusive mostra um script em js que é exatamente o que estou necessitando extrair.

Obrigado.

Sérgio

[marcelo_sp]

gigainfo , ve se isso ajuda ...!!!

Abraço

Marcelo

[Sérgio Assunção]

gigainfo , ve se isso ajuda ...!!!

Abraço

Marcelo

Obrigado Marcelo... dei um "jeitinho" aqui... mas vou analisar o exemplo que você mandou. Valeu mesmo !

Sérgio

[Sérgio Assunção]

gigainfo , ve se isso ajuda ...!!!

Abraço

Marcelo

Show hein Marcelo... sabe me dizer qual parte do código onde é atribuido valores aos edit´s (Edit_Nome, Edit_Endereco...etc)?

Procurei aqui mas não vi nada atribuindo um valor aos edits.

Valeu

Sérgio

[marcelo_sp]

Sergio , nota que no if a propriedade Hint dos Edits é comparada ao nome do campo desejado retornado do objeto Memo_Dados , verifique a propriedade Hint dos Edits e compare , eu na verdade fiz de uma forma diferente aqui nos meus projetos , mas com pouca diferença do código abaixo que é mesmo deste exemplo que te mandei .

procedure TForm_Cliente_Cadastro_Receita_Federal.BitBtn_DadosClick(

Sender: TObject);

Var

i, y : Integer;

begin

Memo_Dados.lines.Text := WebBrowser.OleObject.Document.documentElement.innerText;

For i := 0 To Memo_Dados.lines.Count-1 Do

Begin

For y := 0 To ComponentCount - 1 Do

If Components[y] is TEdit Then

If (Trim((Components[y] as TEdit).Hint)<>'') And ((Components[y] as TEdit).Hint = Trim(Memo_Dados.Lines)) Then

(Components[y] as TEdit).Text := Trim(Memo_Dados.Lines[i+1]);

End;

end;