Получение прогноза погоды с gismeteo.

@Александр II · Регистрация: 19.05.2011

Студворк — интернет-сервис помощи студентам

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

КОД:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  xmldom, XMLIntf, msxmldom, XMLDoc, OleServer, UseXML;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 URL, CityID,  str:string;
begin
 Memo1.Clear;
 CreateXML;
 URL:='http://informer.gismeteo.ru/getcode/xml.php?id='+Edit2.Text;
 LoadXML(URL);
 // чтобы сохранить то что загрузилось с сервера
 // saveXML('FindCityXML.txt');
 
 // нашли ИД (идентификационный номер города)
 // в моём примере это RSXX1219
CityID:=GetNodeItemText(['//TOWN index'],'//id');
 if CityID=''
 then
  begin
   Memo1.Lines.Add(Format('Ошибка, город %s не найден в базе сервера',[ Edit2.Text]));
   Exit;
  end;
 // выводим информацию о найденом городе, и где он находится (страна)
 memo1.Lines.Add('Город найден в базе: '+GetNodeText(['// index']));
 memo1.Lines.Add('');
 //=======================================
 //=== второе действие - по ID города вывести инфу о погоде
 //=======================================
 // получаем информацио о погоде (загружаем с сайта)
 // мой пример строки URL: [url]http://informer.gismeteo.ru/getcode/xml.php?id=27612[/url]
 URL:=Format('http:[url]http://informer.gismeteo.ru/getcode/xml.php?id=[/url]',[CityID, Edit1.Text]);
 LoadXML(URL);
 // чтобы сохранить то что загрузилось с сервера
 // SaveXML('WeaterCityXML.txt');
 {<MMWEATHER>
<REPORT type="frc3">
<TOWN index="27612" sname="%CC%EE%F1%EA%E2%E0" latitude="55" longitude="37">
<FORECAST day="16" month="05" year="2011" hour="16" tod="2" predict="0" weekday="2">
<PHENOMENA cloudiness="2" precipitation="10" rpower="0" spower="0"/>
<PRESSURE max="751" min="749"/>
<TEMPERATURE max="18" min="16"/>
<WIND min="2" max="4" direction="3"/>
<RELWET max="66" min="64"/>
<HEAT min="16" max="18"/>
</FORECAST>
<FORECAST day="16" month="05" year="2011" hour="22" tod="3" predict="0" weekday="2">
<PHENOMENA cloudiness="0" precipitation="10" rpower="0" spower="0"/>
<PRESSURE max="750" min="748"/>
<TEMPERATURE max="12" min="10"/>
<WIND min="1" max="3" direction="3"/>
<RELWET max="94" min="92"/>
<HEAT min="10" max="12"/>
</FORECAST>
<FORECAST day="17" month="05" year="2011" hour="04" tod="0" predict="0" weekday="3">
<PHENOMENA cloudiness="0" precipitation="10" rpower="0" spower="0"/>
<PRESSURE max="749" min="747"/>
<TEMPERATURE max="10" min="8"/>
<WIND min="2" max="4" direction="3"/>
<RELWET max="98" min="96"/>
<HEAT min="8" max="10"/>
</FORECAST>
<FORECAST day="17" month="05" year="2011" hour="10" tod="1" predict="0" weekday="3">
<PHENOMENA cloudiness="0" precipitation="10" rpower="0" spower="0"/>
<PRESSURE max="749" min="747"/>
<TEMPERATURE max="17" min="15"/>
<WIND min="3" max="5" direction="4"/>
<RELWET max="75" min="73"/>
<HEAT min="15" max="17"/>
</FORECAST>
</TOWN>
</REPORT>
</MMWEATHER>}
memo1.Lines.Add('Город = '+GetNodeItemText(['//TOWN'],'index'));
 memo1.Lines.Add('Город = '+GetNodeItemText(['//TOWN'],'sname'));
 memo1.Lines.Add('День = '+GetNodeItemText(['//FORECAST'],'day'));
 memo1.Lines.Add('Месяц = '+GetNodeItemText(['//FORECAST'],'month'));
 memo1.Lines.Add('Год = '+GetNodeItemText(['//FORECAST'],'year'));
 memo1.Lines.Add('Часы = '+GetNodeItemText(['//FORECAST'],'hour'));
 
 memo1.Lines.Add('Атмосферное явления = ' + GetNodeText(['//PHENOMENA cloudiness','//precipitation ','//rpower','//spower']));
 memo1.Lines.Add('Атмосферное давление, в мм.рт.ст = '+GetNodeText(['//MMWEATHER','//loc ','//zone']));
 memo1.Lines.Add('');
 
 str:= GetNodeItemTextFromID(['//MMWEATHER','//REPORT','//TOWN'],1,'day');
 memo1.Lines.Add('День - '+str);
 str:= GetNodeItemTextFromID(['//MMWEATHER','//REPORT','//TOWN'],1,'month');
 memo1.Lines.Add('Месяц - '+str);
 
  end;
 
end.

Комментарий модератора

Сообщение изменено модератором.
Для кода программ есть специальные теги в редакторе сообщений.

@anonimus · 19.05.2011, 15:05

для работы с xml можешь использовать TXMLDocument

@Александр II · 19.05.2011, 15:09 **[ТС]**

Понимаете в чём суть, программа как бы начинает думать! а потом выскакивает ошибка! Это программа построенна по прототипу другой программы! Но ошибку понять я не могу!

@anonimus · 19.05.2011, 15:24

Сообщение от Александр II

Но ошибку понять я не могу

для этого есть отладчик

@Александр II · 19.05.2011, 15:28 **[ТС]**

Позвольте что бы вы меня поняли, покажу ошибку! ---------------------------
Project1
---------------------------
Access violation at address 0045FB23 in module 'Project1.exe'. Read of address 00000000.
---------------------------
ОК

@i8085 · 19.05.2011, 15:35

Сообщение от Александр II

что не в порядке с моим кодом ... программа как бы начинает думать! а потом выскакивает ошибка!

Только вот происходит это явно не в том коде, который вы привели.
Смотрите, что происходит в LoadXML(URL);.

@Александр II · 19.05.2011, 15:43 **[ТС]**

Там сразу открывается модуль Use XML позвольте тоже выложу!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
unit UseXML;
 
interface
 
uses
  comobj;
 
var
  XML: Variant;  //главный объект XML: загружает/сохраняет XML и т.п.
 
function CreateXML:boolean;
procedure LoadXML(XML_:string);//XML_ - строка_XML или имя_файла или URL
procedure SaveXML(FileName:string);
function GetNodeText(Path:array of string):string;
function GetNodeItemText(Path:array of string;Item:string):string;
function GetNodeItemTextFromID(Path:array of string;ID:integer;Item:string):string;
function GetNodeItemTextByNameFromID(Path:array of string;NodeName:string;ID:integer;Item:string):string;
function GetNodesCount(Path:array of string):integer;//кол-во всех элементов у последнего "нода" в Path
function GetNodesCountByName(Path:array of string;NodeName:string):integer;//кол-во элементов с именем NodeName у последнего "нода" в Path
function GetNodeTextFromID(Path:array of string;ID:integer):string;
function GetNodeTextByNameFromID(Path:array of string;NodeName:string;ID:integer):string;
 
implementation
 
 
function CreateXML:boolean;
begin
XML := CreateOleObject('Microsoft.XMLDOM');
XML.async:=false;//если true то вроде динамически будет подгружать  XML
result:= ({XML<>0}XML.parseError.reason = '');
end;
 
procedure LoadXML(XML_:string);
begin
XML.load(XML_);
end;
 
procedure SaveXML(FileName:string);
begin
XML.save(FileName);
end;
 
function GetNodeText(Path:array of string):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if integer(Node)=0 then exit;
  end;
    try
    result:=Node.Text;
    except
    result:='';
    end;
end;
 
function GetNodeItemText(Path:array of string;Item:string):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.attributes.getNamedItem(Item).text;
    except
    result:='';
    end;
end;
 
function GetNodeItemTextFromID(Path:array of string;ID:integer;Item:string):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.childNodes.item[ID].attributes.getNamedItem(Item).Text;
    except
    result:='';
    end;
end;
 
function GetNodeItemTextByNameFromID(Path:array of string;NodeName:string;ID:integer;Item:string):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.SelectNodes(NodeName).item[ID].attributes.getNamedItem(Item).text;
    except
    result:='';
    end;
end;
 
function GetNodesCount(Path:array of string):integer;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.childNodes.length;
    except
    result:=0;
    end;
end;
 
function GetNodesCountByName(Path:array of string;NodeName:string):integer;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.SelectNodes(NodeName).length;
    except
    result:=0;
    end;
end;
 
function GetNodeTextFromID(Path:array of string;ID:integer):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.childNodes.item[ID].Text;
    except
    result:='';
    end;
end;
 
 
function GetNodeTextByNameFromID(Path:array of string;NodeName:string;ID:integer):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    node:=Node.childNodes.item[ID];
 
    try
    result:=Node.SelectSingleNode(NodeName).text;
    //result:=Node.SelectNodes(NodeName).item[ID].text;
    except
    result:='';
    end;
end;
 
end.

Добавлено через 4 минуты
И выделяет строчку!
Node:=Node.SelectSingleNode(Path[i]);

Комментарий модератора

Сообщение изменено модератором.
Для кода программ есть специальные теги в редакторе сообщений.

@i8085 · 19.05.2011, 15:43

Александр II, в отладчике смотрели? Виснет на этой процедуре?

Delphi
1
2
3
4
procedure LoadXML(XML_:string);
 begin
 XML.load(XML_);
 end;

@Александр II · 19.05.2011, 15:46 **[ТС]**

Извините я повторюсь я новичок! Отладчик для меня мало даёт! Но строчку выделяет он ту которую отправил!

Добавлено через 1 минуту
Эта функция ненравиться если я правильно понимаю!

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function GetNodeItemText(Path:array of string;Item:string):string;
var
  Node: variant;
  i:integer;
begin
  Node:=XML.documentElement;
  for i:=0 to High(Path) do begin
    Node:=Node.SelectSingleNode(Path[i]);
    //if Node=0 then exit;
  end;
    try
    result:=Node.attributes.getNamedItem(Item).text;
    except
    result:='';
    end;
end;

@i8085 · 19.05.2011, 15:50

Александр II, смотрите функцию

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function GetNodesCount(Path:array of string):integer;
 var
 Node: variant;
 i:integer;
 begin
 Node:=XML.documentElement;
 for i:=0 to High(Path) do begin
 Node:=Node.SelectSingleNode(Path[i]);
 //if Node=0 then exit;
 end;
 try
 result:=Node.childNodes.length;
 except
 result:=0;
 end;
 end;

Поставьте в начале точку останова и пройдите по шагам, просматривая значения переменных.
Потом посмотрите

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function GetNodeItemText(Path:array of string;Item:string):string;
 var
 Node: variant;
 i:integer;
 begin
 Node:=XML.documentElement;
 for i:=0 to High(Path) do begin
 Node:=Node.SelectSingleNode(Path[i]);
 //if Node=0 then exit;
 end;
 try
 result:=Node.attributes.getNamedItem(Item).text;
 except
 result:='';
 end;
 end;

Сравните, чем отличается поведение.

@Александр II · 19.05.2011, 15:54 **[ТС]**

Ничем тоже самое!

Добавлено через 28 секунд
Node:=Node.SelectSingleNode(Path[i]); выделяет

@i8085 · 19.05.2011, 21:37

Александр II, что такое "выделяет"?

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@anonimus 2184 / 1255 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	19.05.2011, 15:05
	для работы с xml можешь использовать TXMLDocument 0

@Александр II 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 7
	19.05.2011, 15:09 [ТС]
	Понимаете в чём суть, программа как бы начинает думать! а потом выскакивает ошибка! Это программа построенна по прототипу другой программы! Но ошибку понять я не могу! 0

@Александр II 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 7
	19.05.2011, 15:28 [ТС]
	Позвольте что бы вы меня поняли, покажу ошибку! --------------------------- Project1 --------------------------- Access violation at address 0045FB23 in module 'Project1.exe'. Read of address 00000000. --------------------------- ОК 0

@Александр II 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 7
	19.05.2011, 15:54 [ТС]
	Ничем тоже самое! Добавлено через 28 секунд Node:=Node.SelectSingleNode(Path[i]); выделяет 0

@i8085 4031 / 2643 / 582 Регистрация: 11.09.2009 Сообщений: 9,438
	19.05.2011, 21:37
	Александр II, что такое "выделяет"? 0