Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Погода

Автор: elestrago 20.1.2008, 12:14

Парни помогите с простенькой програмкой:

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

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

)

ЗАРАНЕЕ всем огромное спасибо smile

Автор: VICTAR 20.1.2008, 12:37

Зайди в раздел "Сети". Поищи по слову "GET"

Автор: elestrago 20.1.2008, 14:06

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

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

Автор: VICTAR 20.1.2008, 14:09

Цитата(elestrago @ 20.1.2008, 14:06

)

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

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

PS Для поиска лучше использовать регулярные выражения.

Автор: elestrago 20.1.2008, 14:24

Цитата

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

еще 1 ньюанс smile

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

Автор: VICTAR 20.1.2008, 14:30

Примеров море и в нете и здесь на форуме.

Цитата(elestrago @ 20.1.2008, 14:24

)

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

Цитата(VICTAR @ 20.1.2008, 14:09

)

PS Для поиска лучше использовать регулярные выражения.

Автор: Lence 21.1.2008, 07:53

если выводить в 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 грузить

Автор: mmvds 21.1.2008, 08:42

Код


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;

Автор: elestrago 22.1.2008, 00:02

Все разобрался огромное всем спасиба за помощь smile

в особенности mmvds, тема закрыта smile