![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Курс доллара? [D6, WinXP]
SKing © (2002-12-09 08:04:00)Мастера может кто делал: как считать курс доллара из инета, что бы дальше смог записать его в свою БД?
Reindeer Moss Eater (2002-12-09 14:57:00) [1]>SKing
Страница же на русском языке.
Если все же совсем трудно читать на нем, то зайди в кладовку.
Ghost. (2002-12-09 14:52:00) [2]
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;
SKing (2002-12-09 14:46:00) [3]Да, это-то понятно, но слишком много символов
типа:"<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:30:00) [4]Это с интернетом ни как не связано..строка она строка и есть
Reindeer Moss Eater (2002-12-09 14:27:00) [5]С инетом работать и не надо. Надо работать со строкой.
Функции могут быть например такие:
Pos(), Copy(), Delete()
SKing (2002-12-09 14:00:00) [6]Ни когда не работал из Делфи с инетом.
Подскажи пожалуйста как можно обработать полученную строку,
на обычный текст мало похоже...
Reindeer Moss Eater (2002-12-09 12:14:00) [7]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 11:49:00) [8]Спасибо.
А, как можно считать курс на текущую дату?
Reindeer Moss Eater (2002-12-09 11:06:00) [9]Например отсюда это можно сделать
http://www.cbr.ru/currency_base/D_print.asp