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

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('&gt!-- begin w.block 1', Page, k) <> 0 do

  begin

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

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

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

    day := Copy(Page, k, PosEx('&lt/', 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;

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

Последние записи

made in programmersforum 4

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

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