hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 10:27:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix for propagation

Browse Source 
When propagation/solar data is defined to show out as text there are sometimes
 situations that no data is shown. On next day problem is away.

 Found out that if downloaded solardata.xml (as solar.xml in cqrlog directory)
 has node(s) without data try loop fails to loadxmlfile because data is
 assigned, but there are no (0) first.child to load.

 Added check that assigned data has also ChildNodes.Count > 0

 Helped to view values today when "fof2" node was empty. So I guess it is ok
 to test also with other nodes loaded.
This commit is contained in:
OH1KH 2021-08-11 21:35:33 +03:00
parent 20c48a93cc
commit 1360cd62b9
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/fPropagation.pas
View File

@ -189,54 +189,54 @@ begin
Child := Doc.DocumentElement.FirstChild;
data := Child.FindNode('updated');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.LastUpdate := String(data.FirstChild.NodeValue);
data := Child.FindNode('solarflux');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.sfi := String(data.FirstChild.NodeValue);
data := Child.FindNode('aindex');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.a := String(data.FirstChild.NodeValue);
data := Child.FindNode('kindex');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.k := String(data.FirstChild.NodeValue);
data := Child.FindNode('sunspots');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.ssn := String(data.FirstChild.NodeValue);
data := Child.FindNode('aurora');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
begin
if Assigned(data.FirstChild) then
frmPropagation.aur := String(data.FirstChild.NodeValue)
end;
data := Child.FindNode('latdegree');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.lat := String(data.FirstChild.NodeValue);
data := Child.FindNode('magneticfield');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.mag := String(data.FirstChild.NodeValue);
data := Child.FindNode('geomagfield');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.geo := String(data.FirstChild.NodeValue);
data := Child.FindNode('signalnoise');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.sigs := String(data.FirstChild.NodeValue);
data := Child.FindNode('fof2');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
frmPropagation.fof2 := String(data.FirstChild.NodeValue);
data := Child.FindNode('calculatedconditions');
if Assigned(data) then
if Assigned(data) and (data.ChildNodes.Count>0) then
begin
for j:=0 to data.ChildNodes.Count-1 do
begin //80-40m daynight poor

2
src/uVersion.pas
View File

@ -10,7 +10,7 @@ const
cRELEAS = 2;
cBUILD = 1;
cBUILD_DATE = '2021-07-12';
cBUILD_DATE = '2021-08-11';
implementation