mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-22 02:47:19 +00:00
more debug output added (especially when adif download fails)
This commit is contained in:
parent
eb5c237c6a
commit
7ee4eedf04
@ -1,14 +1,14 @@
|
|||||||
object frmeQSLDownload: TfrmeQSLDownload
|
object frmeQSLDownload: TfrmeQSLDownload
|
||||||
Left = 461
|
Left = 461
|
||||||
Height = 609
|
Height = 609
|
||||||
Top = 148
|
Top = 137
|
||||||
Width = 489
|
Width = 489
|
||||||
Caption = 'Download data from eQSL.cc'
|
Caption = 'Download data from eQSL.cc'
|
||||||
ClientHeight = 609
|
ClientHeight = 609
|
||||||
ClientWidth = 489
|
ClientWidth = 489
|
||||||
OnClose = FormClose
|
OnClose = FormClose
|
||||||
OnShow = FormShow
|
OnShow = FormShow
|
||||||
LCLVersion = '0.9.30'
|
LCLVersion = '0.9.30.2'
|
||||||
object GroupBox1: TGroupBox
|
object GroupBox1: TGroupBox
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 431
|
Height = 431
|
||||||
@ -16,12 +16,12 @@ object frmeQSLDownload: TfrmeQSLDownload
|
|||||||
Width = 489
|
Width = 489
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Caption = 'Progress'
|
Caption = 'Progress'
|
||||||
ClientHeight = 412
|
ClientHeight = 414
|
||||||
ClientWidth = 485
|
ClientWidth = 485
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
object mStat: TMemo
|
object mStat: TMemo
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 412
|
Height = 414
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 485
|
Width = 485
|
||||||
Align = alClient
|
Align = alClient
|
||||||
@ -56,20 +56,20 @@ object frmeQSLDownload: TfrmeQSLDownload
|
|||||||
Width = 489
|
Width = 489
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
Caption = ' '
|
Caption = ' '
|
||||||
ClientHeight = 69
|
ClientHeight = 71
|
||||||
ClientWidth = 485
|
ClientWidth = 485
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
object Label3: TLabel
|
object Label3: TLabel
|
||||||
Left = 10
|
Left = 10
|
||||||
Height = 18
|
Height = 16
|
||||||
Top = 12
|
Top = 12
|
||||||
Width = 260
|
Width = 230
|
||||||
Caption = 'Return QSL records received on or after '
|
Caption = 'Return QSL records received on or after '
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object edtDateFrom: TEdit
|
object edtDateFrom: TEdit
|
||||||
Left = 278
|
Left = 278
|
||||||
Height = 27
|
Height = 25
|
||||||
Top = 7
|
Top = 7
|
||||||
Width = 85
|
Width = 85
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -78,7 +78,7 @@ object frmeQSLDownload: TfrmeQSLDownload
|
|||||||
Left = 6
|
Left = 6
|
||||||
Height = 22
|
Height = 22
|
||||||
Top = 39
|
Top = 39
|
||||||
Width = 380
|
Width = 331
|
||||||
Caption = 'Show new comfirmed QSOs after download and import'
|
Caption = 'Show new comfirmed QSOs after download and import'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
|
@ -2,14 +2,14 @@
|
|||||||
|
|
||||||
LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[
|
LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[
|
||||||
'TPF0'#16'TfrmeQSLDownload'#15'frmeQSLDownload'#4'Left'#3#205#1#6'Height'#3'a'
|
'TPF0'#16'TfrmeQSLDownload'#15'frmeQSLDownload'#4'Left'#3#205#1#6'Height'#3'a'
|
||||||
+#2#3'Top'#3#148#0#5'Width'#3#233#1#7'Caption'#6#26'Download data from eQSL.c'
|
+#2#3'Top'#3#137#0#5'Width'#3#233#1#7'Caption'#6#26'Download data from eQSL.c'
|
||||||
+'c'#12'ClientHeight'#3'a'#2#11'ClientWidth'#3#233#1#7'OnClose'#7#9'FormClose'
|
+'c'#12'ClientHeight'#3'a'#2#11'ClientWidth'#3#233#1#7'OnClose'#7#9'FormClose'
|
||||||
+#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0#9'TGroupBox'#9'GroupBo'
|
+#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.30.2'#0#9'TGroupBox'#9'Group'
|
||||||
+'x1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align'#7
|
+'Box1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align'
|
||||||
+#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#156#1#11'ClientWidt'
|
+#7#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#158#1#11'ClientWi'
|
||||||
+'h'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#156#1
|
+'dth'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#158
|
||||||
+#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ssAu'
|
+#1#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ss'
|
||||||
+'toBoth'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3
|
+'AutoBoth'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3
|
||||||
+#128#0#3'Top'#2#0#5'Width'#3#233#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bv'
|
+#128#0#3'Top'#2#0#5'Width'#3#233#1#5'Align'#7#5'alTop'#10'BevelOuter'#7#6'bv'
|
||||||
+'None'#12'ClientHeight'#3#128#0#11'ClientWidth'#3#233#1#8'TabOrder'#2#1#0#7
|
+'None'#12'ClientHeight'#3#128#0#11'ClientWidth'#3#233#1#8'TabOrder'#2#1#0#7
|
||||||
+'TButton'#11'btnDownload'#4'Left'#2'X'#6'Height'#2#25#3'Top'#2'`'#5'Width'#3
|
+'TButton'#11'btnDownload'#4'Left'#2'X'#6'Height'#2#25#3'Top'#2'`'#5'Width'#3
|
||||||
@ -17,12 +17,12 @@ LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[
|
|||||||
+' data from eQSL website'#7'OnClick'#7#16'btnDownloadClick'#8'TabOrder'#2#0#0
|
+' data from eQSL website'#7'OnClick'#7#16'btnDownloadClick'#8'TabOrder'#2#0#0
|
||||||
+#0#9'TGroupBox'#9'GroupBox5'#4'Left'#2#0#6'Height'#2'X'#3'Top'#2#0#5'Width'#3
|
+#0#9'TGroupBox'#9'GroupBox5'#4'Left'#2#0#6'Height'#2'X'#3'Top'#2#0#5'Width'#3
|
||||||
+#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#1' '#12'Cl'
|
+#233#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#1' '#12'Cl'
|
||||||
+'ientHeight'#2'E'#11'ClientWidth'#3#229#1#8'TabOrder'#2#1#0#6'TLabel'#6'Labe'
|
+'ientHeight'#2'G'#11'ClientWidth'#3#229#1#8'TabOrder'#2#1#0#6'TLabel'#6'Labe'
|
||||||
+'l3'#4'Left'#2#10#6'Height'#2#18#3'Top'#2#12#5'Width'#3#4#1#7'Caption'#6'(Re'
|
+'l3'#4'Left'#2#10#6'Height'#2#16#3'Top'#2#12#5'Width'#3#230#0#7'Caption'#6'('
|
||||||
+'turn QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11'e'
|
+'Return QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11
|
||||||
+'dtDateFrom'#4'Left'#3#22#1#6'Height'#2#27#3'Top'#2#7#5'Width'#2'U'#8'TabOrd'
|
+'edtDateFrom'#4'Left'#3#22#1#6'Height'#2#25#3'Top'#2#7#5'Width'#2'U'#8'TabOr'
|
||||||
+'er'#2#0#0#0#9'TCheckBox'#10'chkShowNew'#4'Left'#2#6#6'Height'#2#22#3'Top'#2
|
+'der'#2#0#0#0#9'TCheckBox'#10'chkShowNew'#4'Left'#2#6#6'Height'#2#22#3'Top'#2
|
||||||
+''''#5'Width'#3'|'#1#7'Caption'#6'1Show new comfirmed QSOs after download an'
|
+''''#5'Width'#3'K'#1#7'Caption'#6'1Show new comfirmed QSOs after download an'
|
||||||
+'d import'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#0#6'Height'
|
+'d import'#8'TabOrder'#2#1#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#2#0#6'Height'
|
||||||
+#2'2'#3'Top'#3'/'#2#5'Width'#3#233#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7
|
+#2'2'#3'Top'#3'/'#2#5'Width'#3#233#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7
|
||||||
+#6'bvNone'#12'ClientHeight'#2'2'#11'ClientWidth'#3#233#1#8'TabOrder'#2#2#0#7
|
+#6'bvNone'#12'ClientHeight'#2'2'#11'ClientWidth'#3#233#1#8'TabOrder'#2#2#0#7
|
||||||
|
@ -194,8 +194,11 @@ begin
|
|||||||
http.Sock.LastErrorDesc)
|
http.Sock.LastErrorDesc)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
else
|
else begin
|
||||||
mStat.Lines.Add('eQSL page was probably changed, cannot find the link to ADIF file')
|
mStat.Lines.Add('eQSL page was probably changed, cannot find the link to ADIF file');
|
||||||
|
mStat.Lines.Add('Server returned this:');
|
||||||
|
mStat.Lines.Add(l.Text)
|
||||||
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
else begin
|
else begin
|
||||||
|
Loading…
Reference in New Issue
Block a user