Como extrair informação de um site pelo delphi
11/02/2010
0
André Panzetti
Posts
11/02/2010
Wilson Oliveira
Vamos criar um function e chamar no evento onclick do button coloque o seguinte código:
procedure TForm2.Button1Click(Sender: TObject);
begin
label1.Caption := cotacaodolar;
end;
function tform2.cotacaodolar ():string;
var
posicao : integer;
retorno : tstringlist;
const
identificador : string = 'Dólar comercial <span class="compl">(em R$)</span></a></th><td>';
pagina : string = 'http://economia.uol.com.br/cotacoes/cambio/dolar-comercial-estados-unidos-principal.jhtm';
begin
try
retorno := TStringList.Create;
retorno.Text := IdHTTP1.Get(pagina);
posicao := Pos(identificador,retorno.Text);
result := ' Dolar Comercial - Compra R$ ';
result := result + Copy(retorno.Text,posicao + length(identificador),6);
FreeAndNil(retorno);
except
FreeAndNil(retorno);
result := 'Verifique sua conexão com a internet';
end;
end;
Veja que o código é muito precário, leva em consideração apenas 1 digito e 4 casas decimais, mas a ideia é essa, se precisar de mais alguma coisa é só dizer.
abcs
Wilson
11/02/2010
Thiago Santana
11/02/2010
Wilson Oliveira
abcs
13/06/2011
Leandro Santos
Eu utilizo idhttp com o post só que ele não faz pesquisa ele me retorna sempre a pagina inicial da pesquisa e não a pagina de retorno.
Alguem sabe como resolvo isso?
25/06/2011
Anderson Nunes
05/05/2013
José
Clique aqui para fazer login e interagir na Comunidade :)