Компонент на основе TPanel для отображения погоды из интернета...

[xzDelphi]

Господа! если у кого-то есть нечто подобное, прошу, выложите или дайте сЦылку...Даже не обязательно TPanel и погода, хотя бы просто как создать компонент, который берет инфу из нета и отображает ее...жду и надеюсь)
PS:нужен именно новый компонент, а не те, что имеются в делфи и именно с исходником...

[_SERGEYX_]

Лови исходник получения погоды с сайта h..p://xoap.weather.com.
На его основе можешь сделать компонент сам.

uses UseXML;

var // глобальные переменные
  URL,CityID,str:string;
  aDayCount: Integer = 5;//количество дней
  aCity: string[25] = 'Moskow';// город

{... и код кнопки}
procedure TForm1.Button1Click(Sender: TObject);
var
 i,y: integer;
begin
 Memo1.Clear;
 CreateXML;
 URL:='http://xoap.weather.com/search/search?where='+aCity;
 LoadXML(URL);
 CityID:=GetNodeItemText(['//search','//loc'],'id');
 if CityID=''
 then
  begin
   Memo1.Lines.Add(Format('Ошибка, город %s не найден в базе сервера',[aCity]));
   Exit;
  end;
 memo1.Lines.Add('Город найден в базе: '+GetNodeText(['//search','//loc']));
 memo1.Lines.Add('');
URL:=Format('http://xoap.weather.com/weather/local/%s?cc=*&dayf=%s&prod=xoap&link=xoap&par=%s&key=%s&unit=%s',[CityID{Ed1.Text},aDayCount,'1006341644','0647abc97052c741','m']);
 LoadXML(URL);

 memo1.Lines.Add('Город = ' +GetNodeText(['//weather','//loc ','//dnam']));
 memo1.Lines.Add('Восход = ' + GetNodeText(['//weather','//loc ','//sunr']));
 memo1.Lines.Add('Заход  = ' + GetNodeText(['//weather','//loc ','//suns']));
 memo1.Lines.Add('Часовой пояс = '+GetNodeText(['//weather','//loc ','//zone']));
 memo1.Lines.Add('');

 memo1.Lines.Add('Локальное время = ' + GetNodeText(['//weather','//cc','//lsup']));
 memo1.Lines.Add('Температура С = ' + GetNodeText(['//weather','//cc','//tmp']));
 memo1.Lines.Add('Погода = ' + GetNodeTextFromID(['//weather','//cc'],4));
 memo1.Lines.Add('Давление рт. ст. = '+ GetNodeText(['//weather','//cc','//bar','//r']));
 memo1.Lines.Add('Давление = '+ GetNodeText(['//weather','//cc','//bar','//d']));
 memo1.Lines.Add('Ветер м/c = '+ GetNodeText(['//weather','//cc','//wind','//s']));
 memo1.Lines.Add('Направление = '+GetNodeTextFromID(['//weather','//cc','//wind'],3));
 memo1.Lines.Add('Видимость км.  = ' + GetNodeText(['//weather','//cc','//vis']));
 memo1.Lines.Add('Луна = '+ GetNodeTextFromID(['//weather','//moon'],1));
 memo1.Lines.Add('');

 memo1.Lines.Add('Погода на ближайшие дни:');
 for i:=1 to GetNodesCountByName(['//weather','//dayf'],'day') do
  begin
   str:= GetNodeItemTextFromID(['//weather','//dayf'],i,'t');
   str:= str+', '+GetNodeItemTextFromID(['//weather','//dayf'],i,'dt');
   memo1.Lines.Add('День - '+str);

   str:=GetNodeTextByNameFromID(['//weather','//dayf'],'hi',i);
   memo1.Lines.Add('Макс. температура: '+str);

   str:=GetNodeTextByNameFromID(['//weather','//dayf'],'low',i);
   memo1.Lines.Add('Мин. температура: '+str);

   str:=GetNodeTextByNameFromID(['//weather','//dayf'],'sunr',i);
   memo1.Lines.Add('Восход: '+str);

   str:=GetNodeTextByNameFromID(['//weather','//dayf'],'suns',i);
   memo1.Lines.Add('Заход: '+str);
 end;
end;

[xzDelphi]

Большое спасибо!=)

[Alar]

UseXML.dcu где можно скачать?

[Квэнди]

хм... а чем не устраивают стандартные методы работы с XML , реализованные в Delphi ?

[_Dmitry]

Похоже, что приведенный код отсюда
http://winconsul.kladovka.net.ru/index.php?pid=6

[)Игнат(]

"Я изменил бы этот мир, но Господь не дает исходников"
Мы с другом на эту тему как-то помечтали...

[Alar]

Квэнди, я хотел откомилировать и передать парню, которому нужна была программа. не получилось.