Ola Galera,estou montando um codigo para pegar o valor digitado em um campo chamado usuario de qualquer site,porem eu já consegui fazer quase todo codigo,
mas não estou conseguindo fazer um parametro ou seila para fazer uma ação no IE.
veja o codigo abaixo:
Procedure TForm1.extrairvalor;
var
doc: IHTMLDocument2;
elementos : IHTMLElementCollection;
elemento : IHTMLElement;
agita : string;
IE: hwnd;
begin
elementos:=doc.all;
ie := findwindow ('IEFrame',nil);
elemento:=elementos.item('usuario',0) as IHTMLElement;
AgIta:=elemento.getAttribute('value',0);
memo1.Text := IE(agita);
end;
E COLOKE A USES 'MSHTML'
na hora de compilar da erro nessa linha aki " memo1.Text := IE(agita); "
IE é a variavel do findwindow la,axo que to fazendo algo errado nessa linha
Pergunta
Rafazuhdo
Ola Galera,estou montando um codigo para pegar o valor digitado em um campo chamado usuario de qualquer site,porem eu já consegui fazer quase todo codigo,
mas não estou conseguindo fazer um parametro ou seila para fazer uma ação no IE.
veja o codigo abaixo:
E COLOKE A USES 'MSHTML'
na hora de compilar da erro nessa linha aki " memo1.Text := IE(agita); "
IE é a variavel do findwindow la,axo que to fazendo algo errado nessa linha
Link para o comentário
Compartilhar em outros sites
13 respostass a esta questão
Posts Recomendados