Baixar a cota��o do d�lar direto na base

Question

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 sis...

Gameiro · Answer

Peguei esse exemplo na clube delphi 60coloque um label um button e um idHTTP,no onclick do button :[code:1:35afa07b14]procedure TForm1.Button1Click(Sender: TObject);vars:string;begin  s:= idhttp1.Get(�//br.invertia.com�);  label1.Caption:=copy(s,pos(�Compra�,s)+115,7);end;[/code:1:35afa07b14]espero ter ajudado...

Marcos Fernando · Answer

Brigad�o deu certo mesmo!Valeu,ah tem como pegar as 4 casas depois da , ?de novo grato......

Gameiro · Answer

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

Marcos Fernando · Answer

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 hpGrato mesmo...

Gameiro · Answer

como voc� consegue pegar a informa��o que querde 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...

Japa · Answer

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

Marcos Fernando · Answer

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

Christian_adriano · Answer

Ol�,Segue a baixo o c�digo pra pegar a cota��o do d�lar:[code:1:562d5f3e45]procedure getValoresDolar(var CompraPtax, CompraComercial, CompraTurismo, CompraParalelo, VendaPtax, VendaComercial, VendaTurismo, VendaParalelo : String);var aux : String; http : TIdHTTP; // uses IdHTTPbegin try http := TIdHTTP.Create(nil); Aux := http.Get(�//br.invertia.com/mercados/divisas/tiposdolar.aspx�); VendaParalelo := Trim(Copy(Aux, Pos(�Dolar Paralelo�, Aux)+166, 5)); CompraParalelo := Trim(Copy(Aux, Pos(�Dolar Paralelo�, Aux)+121, 5)); CompraComercial := Trim(Copy(Aux, Pos(�Dolar Comercial�, Aux)+131, 5)); VendaComercial := Trim(Copy(Aux, Pos(�Dolar Comercial�, Aux)+176, 5)); CompraTurismo := Trim(Copy(Aux, Pos(�Dolar Turismo�, Aux)+120, 5)); VendaTurismo := Trim(Copy(Aux, Pos(�Dolar Turismo�, Aux)+165, 5)); CompraPtax := Trim(Copy(Aux, Pos(�Dolar Ptax�, Aux)+123, 5)); Venda...

F�rum Baixar a cota��o do d�lar direto na base #50642