Скачать: CL | DM;

Курс доллара?   Найти похожие ветки 

← →
SKing ©   (2002-12-09 08:04) [0]

Мастера может кто делал: как считать курс доллара из инета, что бы дальше смог записать его в свою БД?

---

← →
Reindeer Moss Eater   (2002-12-09 11:06) [1]

Например отсюда это можно сделать
http://www.cbr.ru/currency_base/D_print.asp

---

← →
SKing ©   (2002-12-09 11:49) [2]

Спасибо.
А, как можно считать курс на текущую дату?

---

← →
Reindeer Moss Eater   (2002-12-09 12:14) [3]

const URL = " http://www.cbr.ru/currency_base/D_print.asp?date_req=09/12/2002"
var ContentStr:string;
ContentStr:=idHttp1.Get(URL);

---

← →
SKing ©   (2002-12-09 14:00) [4]

Ни когда не работал из Делфи с инетом.
Подскажи пожалуйста как можно обработать полученную строку,
на обычный текст мало похоже...

---

← →
Reindeer Moss Eater   (2002-12-09 14:27) [5]

С инетом работать и не надо. Надо работать со строкой.
Функции могут быть например такие:
Pos(), Copy(), Delete()

---

← →
Ghost. ©   (2002-12-09 14:30) [6]

Это с интернетом ни как не связано..строка она строка и есть

---

← →
SKing ©   (2002-12-09 14:46) [7]

Да, это-то понятно, но слишком много символов
типа:"<td align="right">16,6510</td>
</tr>
<tr bgcolor="#ffffff">
<td align="right" >208</td>
<td align="left" > DKK</td>
<td align="right" >10</td>"
не пойму где начало и конец, короче откуда резать значение курса?

---

← →
Ghost. ©   (2002-12-09 14:52) [8]

IE:=CreateOleObject("InternetExplorer.Application");
IE.Navigate("about:blank", V, V, V, V);
IE.Visible := false;
while IE.Busy do Application.ProcessMessages;
Doc:=IE.Document;
Bod:=Doc.Body;
Bod.InnerHTML:=s;
s:=Bod.InnerText;

---

← →
Reindeer Moss Eater   (2002-12-09 14:57) [9]

>SKing
Страница же на русском языке.
Если все же совсем трудно читать на нем, то зайди в кладовку.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c