Пример получения даты и температуры с сайта

Posted by Chas under Пост-обзор

kangreon:

type

  TFormatP = record

    day: string;

    temp: array[0..3] of string;

  end;

procedure TForm1.Button1Click(Sender: TObject);

var

  http: TIdHTTP;

  Page: string;

  k, l, m: Integer;
  day: string;
  pogoda: array of TFormatP;

  ms: TMemoryStream;

  sl: TStringList;

begin

  {

    Загрузка страницы с погодой.

    Использую TMemoryStream для того,

    чтобы кирилица не отображалась

    вопросиками.

  }

  http := TIdHTTP.Create;

  ms := TMemoryStream.Create;

  http.Get('http://www.meteoprog.ua/ru/weather/Yenakievo/',ms);

  ms.Position := 0;

  sl := TStringList.Create;

  sl.LoadFromStream(ms);

  ms.free;

  page := sl.Text;

  sl.Free;
  {

    Выполняется поиск погоды на все доступные дни

  }

  k := 0;

  while PosEx('>!-- begin w.block 1', Page, k) <> 0 do

  begin

    k := PosEx('>!-- begin w.block 1', Page, k);

    k := PosEx('px;">', Page, k) + 5;

    // Копируется день

    day := Copy(Page, k, PosEx('</', Page, k) - k);

    l := Length(pogoda);

    SetLength(pogoda, l + 1);

    pogoda[l].day := day;
    // Копирование температур

    for m := 0 to 3 do

    begin

      k := PosEx('wforecast-cell', Page, k);

      k := PosEx('<', Page, k) + 1;

      pogoda[l].temp[m] := Copy(Page, k, PosEx('&', Page, k) - k);

    end;

  end;
  {

    Вывод результата

  }

  l := Length(pogoda) - 1;

  for k := 0 to l do

  begin

    Memo1.Lines.Add('Погода на '+ UTF8Decode(pogoda[k].day));

    Memo1.Lines.Add(#9'Ночь: '+ pogoda[l].temp[0]);

    Memo1.Lines.Add(#9'Утро: '+ pogoda[l].temp[1]);

    Memo1.Lines.Add(#9'День: '+ pogoda[l].temp[2]);

    Memo1.Lines.Add(#9'Вечер: '+ pogoda[l].temp[3]);

  end;

end;

тема на форуме

Похожие статьи

• Проверка занятости логина на странице с помощью indy
• Соединение двух компьютеров через интернет с помощью сокетов?
• Как нажать на кнопочку с именем submit_way_selection2 на сайте?
• Авторизация на mail.ru с помощью indy
• Как сделать обновление программы с сайта?
• Прием данных/отсылка в поток Indy10
• ProgressBar для скачивания
• Как отправить письмо средствами Delphi?
• Пример программы принимающей сообщения с @mail.ru
• Как на форме отобразить значения ТИЦ сайта?