Baixar a cotação do dólar direto na base

Firebird

25/04/2005

Galera estou qrendo facilitar a vida de meus usuarios q utilizam internet e precisam lançar a cotação do dolar no sistema!


Tipo:
as 4:10 de cada dia ele acessa alguma Xml de algum site e me grava no sistema, será q alguém tem isso, ou poderia de dizer como capturar essa cotação de algum site q forneça!

Grato me ajurá muito


Marcos Fernando

Marcos Fernando

Curtidas 0

Respostas

Gameiro

Gameiro

25/04/2005

Peguei esse exemplo na clube delphi 60


coloque um label um button e um idHTTP,

no onclick do button :


procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
  s:= idhttp1.Get(´http://br.invertia.com´);
  label1.Caption:=copy(s,pos(´Compra´,s)+115,7);

end;






espero ter ajudado


GOSTEI 0
Marcos Fernando

Marcos Fernando

25/04/2005

Brigadão deu certo mesmo!

Valeu,

ah tem como pegar as 4 casas depois da , ?

de novo grato...


GOSTEI 0
Gameiro

Gameiro

25/04/2005

eu não sei se dar mas acho que não pois pelo que percebi no site so vem com as duas casas decimais.

talvez se vc achar um site que forneça a cotação nesse formato.



se conseguir eu te aviso.



ate mais


GOSTEI 0
Marcos Fernando

Marcos Fernando

25/04/2005

eu vou pegar as fontes no banco central,

eles passam a cotação com os 4 digitos e todos os tipos de dolar,

Valeu eu peguei bem como fazer essa copia de qualquer hp

Grato mesmo


GOSTEI 0
Gameiro

Gameiro

25/04/2005

como você consegue pegar a informação que quer
de qualquer site?


Como vc descobre onde está a informação correta.


Pq eu nunca mexi com isso.

Se puder me explicar eu agradeço.



até mais


GOSTEI 0
Japa

Japa

25/04/2005

Pessoal qual o link que vc´s estao pegando o preço do dollar??? vc´s poderiam me informar????


GOSTEI 0
Marcos Fernando

Marcos Fernando

25/04/2005

Bom conforme vc me passou a dica: use asism:

copy(s,pos([color=green:f14f6534e6]´Compra´[/color:f14f6534e6],s)+115,7);

pra fazer a procura
ai só pedir pra trazer só as informações q vc quiser;

uso o Site www.cma.com.br

c alguém quiser mando um demo q fiz só me passar um email!

di boa

depois vou fazer um demo mais completo pra pegar todos os tipos de cotação ai, vou ver c mando pro site www.clubedelphi.net

Grato


GOSTEI 0
Christian_adriano

Christian_adriano

25/04/2005

Olá,

Segue a baixo o código pra pegar a cotação do dólar:


procedure getValoresDolar(var CompraPtax, CompraComercial, CompraTurismo, CompraParalelo, VendaPtax, VendaComercial, VendaTurismo, VendaParalelo : String);
var
  aux  : String;
  http : TIdHTTP;   // uses IdHTTP
begin
   try
     http := TIdHTTP.Create(nil);
     Aux  := http.Get(´http://br.invertia.com/mercados/divisas/tiposdolar.aspx´);

     VendaParalelo   := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALPR" class="masb">Dolar Paralelo´, Aux)+166, 5));
     CompraParalelo  := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALPR" class="masb">Dolar Paralelo´, Aux)+121, 5));

     CompraComercial := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALCM" class="masb">Dolar Comercial´, Aux)+131, 5));
     VendaComercial  := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALCM" class="masb">Dolar Comercial´, Aux)+176, 5));

     CompraTurismo   := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALTR" class="masb">Dolar Turismo´, Aux)+120, 5));
     VendaTurismo    := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000REALTR" class="masb">Dolar Turismo´, Aux)+165, 5));

     CompraPtax      := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000DOLPTAX" class="masb">Dolar Ptax´, Aux)+123, 5));
     VendaPtax       := Trim(Copy(Aux, Pos(´<a href="detalle.aspx?idtel=DI000DOLPTAX" class="masb">Dolar Ptax´, Aux)+168, 5));
   finally
     FreeAndNil(http);
   end;
end;



Espero q ajude alguém.

t+

Christian.


GOSTEI 0
POSTAR