Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Погода, Получить инфу с сайта 
V
    Опции темы
elestrago
  Дата 20.1.2008, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3
Парни помогите с простенькой програмкой:

Хочу написать програмку которая сможет получать данные из какого нибуть сайта о погоде в моем городе!

можете кинуть пару примерчиков или исходников чтоб я смог разобратся !? ну лучше всего пример с коментариями smile)  smile 

ЗАРАНЕЕ всем огромное спасибо smile
--------------------
PM MAIL ICQ   Вверх
VICTAR
Дата 20.1.2008, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Зайди в раздел "Сети". Поищи по слову "GET"
PM MAIL   Вверх
elestrago
Дата 20.1.2008, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3
по слову гет ни чего не нашел, но у меня уже есть успехи:

в общем я получил данные с урла http://weather.mail.ru/?days=3&city=2550 занес их в мемо1 теперь как мне выудить из этой кучи текста ту инфу которая мне нужна а имено "Температура сейчас:  -10"


--------------------
PM MAIL ICQ   Вверх
VICTAR
Дата 20.1.2008, 14:09 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Цитата(elestrago @  20.1.2008,  14:06 Найти цитируемый пост)
по слову гет ни чего не нашел, но у меня уже есть успехи:

странно ты как-то искал....
Найти нужный текст функцией Pos. Скопировать Copy. 

PS Для поиска лучше использовать регулярные выражения.
PM MAIL   Вверх
elestrago
Дата 20.1.2008, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3
 
Цитата
Найти нужный текст функцией Pos. Скопировать Copy.


 smile 

еще 1 ньюанс smile ведь число 10 динамическое и тогда мне нада зделати что типа этого "Температура сейчас:  +3 впереди стоящих бита" smile 

Это сообщение отредактировал(а) elestrago - 20.1.2008, 14:27
--------------------
PM MAIL ICQ   Вверх
VICTAR
Дата 20.1.2008, 14:30 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Примеров море и в нете и здесь на форуме.

Цитата(elestrago @  20.1.2008,  14:24 Найти цитируемый пост)
еще 1 ньюанс smile ведь число 10 динамическое и тогда мне нада зделати что типа этого "Температура сейчас:  +3 впереди стоящих бита"

Цитата(VICTAR @  20.1.2008,  14:09 Найти цитируемый пост)
PS Для поиска лучше использовать регулярные выражения. 
PM MAIL   Вверх
Lence
Дата 21.1.2008, 07:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: нет
Всего: 3
если выводить в Label, то тебе надо парсить страницу и выдерать нужные данные
Код

var
  FHttp : TIdHttp;
  FHtml : String;
begin
  FHttp := TIdHTTP.Create(nil);

...

  FHtml := FidHttp.Get('http://weather.mail.ru/?days=3&city=2550');
....


получаешь страницу в FHtml и парсишь ее.

еще вариант - бросить на форму WebBrowser. И грузить туда страницу. 
Можно еще установить TShockwaveFlash, из ActiveX и сделать так
Код

  flash: TShockwaveFlash 
  ...
  flash.Stop;
  flash.Movie:=('http://img.gismeteo.ru/flash/City100.swf?city=27612');
  flash.Play;



или в WebBrowser грузить
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
mmvds
Дата 21.1.2008, 08:42 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6
Код

procedure TForm1.Button1Click(Sender: TObject);
var
s,search:string;
begin
s:=Memo1.Text;
search:='Температура сейчас:';
Edit1.Text:=copy(s,pos(search,s)+length(search),5);
end;
PM MAIL ICQ   Вверх
elestrago
Дата 22.1.2008, 00:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3
Все разобрался огромное всем спасиба за помощь smile в особенности mmvds, тема закрыта smile
--------------------
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.