WebBrowser delphi inserir valor automatico...

Question

Ol� tenho um webbrowser detro de uma aplica��o, e a mesma recebe por parametro o n� de cnpj que sera consultado, por�m n�o consigo fazer com que esse n� entre automaticamente no campo a ser preenchido...

Alisson Santos · Answer

Acho que seria mais facil voc� pegar esse valor que retorna no html e jogar em uma variavel string e depois passar esse valor para o seu campo.
Pois acho que ele n�o est� buscando corretamente os dados que deseja.

Darcio Junior · Answer

Mais como eu faria para pegar o valor do html e joga-lo l�? Pois o meu problema � que ele basicamente n�o est� identificando o campo que estou passando......

Joel Rodrigues · Answer

Cara, eu estava tentando fazer uns testes aqui mas acabei ficando sem tempo. Veja se esse link pode lhe ajudar: //delphi.about.com/od/twebbrowser/a/submit_web_form.htm...

Alisson Santos · Answer

Darcio eu fiz uns testes aqui com o que o joel falou, vai atender voc� tranquilamente.S� modificar o tipo de campo e o retorno que vai ter....

Darcio Junior · Answer

Eu tentei me basear no exemplo passado, por�m la n�o vi uma maneira efetiva de fazer o que quero...
Afinal j� sei o campo a ser preenchido e tudo, por�m tentei executar assim:

web.OleObject.Document.getElementById('theForm').cnpj := '012345678910';

Precisava conseguir executar o Document.getElementById('theForm').cnpj = '012345678910' para que ele simplesmente entrasse com o valor no campo,para o usuario n�o precisar digitar j� que � algo parametrizado, pelo exemplo vi que daria pra identificar os campos mais � algo que fugiria da minha necessidade, pois no site [url]http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp[/url] s� preciso prencher o CNPJ,depois o usuario faz o captha na m�o e segue na pagina...

Joel Rodrigues · Answer

Alisson, os testes que voc� fez foi com o site que o Drcio passou? Se sim, poderia compartilhar?...

Anderson Ramos · Answer

Da uma olhada neste c�digo, funciona muito bem no seu caso...

procedure trataPagina;
Var
Document : IHTMLDocument2;
FormItem: Variant;
Field: Variant;
FieldName: String;
I,J: Integer;
begin
Document := form24.webBrowser1.Document as IHTMLDocument2;

if form24.webbrowser1.OleObject.document.all.tags('FORM').Length = 0 then
Exit;

for I := 0 to form24.webbrowser1.OleObject.document.forms.Length - 1 do
begin
FormItem := form24.webbrowser1.OleObject.document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
try
//Identifica o campo e seu nome no formul�rio
Field := FormItem.Item(j);

FieldName := Field.Name;

if FieldName = 'origem' then //tem que ser o nome do campo que esta dentro do C�digo fonte da pagina.
Field.Value := edit1.text;

except
end;
end;

end;

procedure TForm24.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
tratapagina;

end;

F�rum WebBrowser delphi inserir valor automatico... #423813