[RusSTEEL]

Исходник для трасляции погоды но он почему то не робит
http://informer.gismeteo.ru/rss/34743.xml - ссылка откуда брать НО ВОТ не показывает ничего

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 S: TStringList;
 P,I: integer;
 USD,EUR,AFS,pM,pP: string;
begin
 HTTP:=TIdHTTP.Create(nil);
 HTTP.HandleRedirects:=True;
 HTTP.ProtocolVersion:=pv1_0;
 HTTP.ProtocolVersion:=pv1_0;
 //
 S:=TStringList.Create;
 S.Text:=HTTP.Get('http://informer.gismeteo.ru/rss/34743.xml');
 // Ïîãîäà
 P:=S.IndexOf('#---- Погода----');
 //
 if not (P=-1)
 then
  begin
   for i:=0 to 5 do
    begin
     inc(P);
     if Pos('Температура' ,S.Strings[p])>0
     then pM:=S.Strings[p];
     if Pos('температура',S.Strings[p])>0
     then pP:=S.Strings[p];
    end;

  end;
 HTTP.Free;
 Delete(pM,1,pos('/',pM));
 Delete(pM,1,pos(',',pM));
 Delete(pM,pos(',',pM),20);
 Delete(pP,1,pos('/',pP));
 Delete(pP,1,pos(',',pP));
 Delete(pP,pos(',',pP),20);
 Edit1.text:=Pm;

 end;

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

[Assistant]

видимо не работает, потому что XML файл в юникоде, после получения файла, преобразуйте его в нормальный формат.

[NumLock]

рекомендовал бы брать данные с xml информера http://informer.gismeteo.ru/xml/22546_1.xml и для разбора использовать msxml.IXMLDOMDocument

[Assistant]

ага, я на PHP писал скрипт, который по крону присылает СМС с погодой, и брал именно этот XML

[foka2002]

Вот тут выберите.
http://pogoda.yandex.ru/informer/tips/
Ставится без проблем.

[RazzSpace]

Сообщение от foka2002

Вот тут выберите.
http://pogoda.yandex.ru/informer/tips/
Ставится без проблем.

Поставил себе на сайт , на мой взгляд даже лучше чем gismeteo

[NumLock]

есть модуль InformerGismeteo:

Код:

unit Unit1;

interface

uses
  InformerGismeteo,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  FInformerGismeteo: TInformerGismeteo;
  i: Integer;
begin
  FInformerGismeteo:=TInformerGismeteo.Create;
  FInformerGismeteo.URL:='http://informer.gismeteo.ru/xml/22546_1.xml';
  try
    if FInformerGismeteo.Refresh then
    begin
      Memo1.Lines.Add('Погода в '+URLDecode(FInformerGismeteo.Forecasts.TownName));
      Memo1.Lines.Add('');
      for i:=0 to FInformerGismeteo.Forecasts.Count-1 do
      begin
        Memo1.Lines.Add('Прогноз на '+FInformerGismeteo.Forecasts[i].GetDate+'. '+FInformerGismeteo.Forecasts[i].GetWeekday+'. '+FInformerGismeteo.Forecasts[i].GetTod+'. '+FInformerGismeteo.Forecasts[i].GetTime+' ч.');
        Memo1.Lines.Add('Температура '+FInformerGismeteo.Forecasts[i].GetTemperature+' C');
        Memo1.Lines.Add('Давление '+FInformerGismeteo.Forecasts[i].GetPressure+' мм рт.ст.');
        Memo1.Lines.Add('Ветер '+FInformerGismeteo.Forecasts[i].GetWindDirection+' м/с');
        Memo1.Lines.Add(FInformerGismeteo.Forecasts[i].GetCloudiness+'. '+FInformerGismeteo.Forecasts[i].GetPrecipitation+'.');
        Memo1.Lines.Add('');
      end;
    end;
  finally
    FInformerGismeteo.Free;
  end;
end;

end.