Merhaba Arkadaşlar.
Yeni bir projeye başladım ve bu projede kullanıcının kayıt yaptığı esnada O anki döviz kur fiyatını bilmesi gerekiyor. Kullanıcı her kayıt yaptığı zaman internetten veya başka bir kaynaktan bu bilgiyi alması yerine formun bir köşesinde döviz kurunun lmasını istiyorum. Forumda aradım ama kur ile ilgili bilgi bulamadım Eğer varsa da şimdiden özür diliyorum. Yardımcı olursanız çok sevinirim. Hayırlı Günler...
Proje çalıştığı esnada İnternetten Döviz Kurunu çekmek?
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Sanirim forumda bahsi gecmisti ama gercekten forumda arama yapildiginda alakasiz bi cok konu da geliyor bu nedenle ilgili konulari bulmak zor olabiliyor bazen. onceki bi zamandan forumdan gordugum doviz kurlari kodlari su sekilde.
Formda 1 adet IdHTTP1 ( indy client icerisinde bulabilirsin.)
1 adet memo
1 adet buton
ve 4 adet edit var
buton
Formda 1 adet IdHTTP1 ( indy client icerisinde bulabilirsin.)
1 adet memo
1 adet buton
ve 4 adet edit var
buton
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
z,s,alis,satis,aranan:string;
yer,i:Integer;
begin
Memo1.Clear;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
s:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
z:=IDHttp1.Get('http://www.tcmb.gov.tr/kurlar/today.html');
aranan:='1 ABD DOLARI';
for i:=1 to 2 do
begin
yer:=pos(aranan,s);
yer:=pos(aranan,z);
if yer=0 then
begin
ShowMessage('Kur bilgisi yok');
exit;
end
else
begin
yer:=yer+length(aranan);
s:=copy(s,yer,length(s)-yer);
z:=copy(z,yer,length(s)-yer);
s:=trim(s);
z:=trim(z);
alis:=copy(s,1,9);
satis:=copy(z,14,9);
Memo1.Lines.Add(aranan +' Alış = ' + alis);
Memo1.Lines.Add(aranan +' Satış = ' + satis);
aranan:='1 EURO';
Edit1.Text:=copy(Memo1.Lines.Text,23,8);
Edit2.Text:=copy(Memo1.Lines.Text,55,8);
Edit3.Text:=copy(Memo1.Lines.Text,82,8);
Edit4.Text:=copy(Memo1.Lines.Text,108,8);
end;
end;
end;
TODAY.HTML ile çok doğru bir yere gitmezsiniz. örneğin ben webmaster ım canım sıkıldı 1 abd doları yazmadım abd doları yazdım sadece. senin kod burada çakar. o bakımdan bu parse işelminde kod topal ördek gibi her an sakata gidebilir.erdoganturkmen yazdı:Hocam çok teşekkür ederim. Gerçekten çok işime yaradı
önerim. today.html yerine today.xml dosyasını part etmen.
-
- Kıdemli Üye
- Mesajlar: 1223
- Kayıt: 26 Nis 2005 04:08
Aynı düzenlemenin xml için yapılmayacağı konusunda garanti mi var?ikut yazdı: TODAY.HTML ile çok doğru bir yere gitmezsiniz. örneğin ben webmaster ım canım sıkıldı 1 abd doları yazmadım abd doları yazdım sadece. senin kod burada çakar. o bakımdan bu parse işelminde kod topal ördek gibi her an sakata gidebilir.
önerim. today.html yerine today.xml dosyasını part etmen.