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
|
||||
Left = 461
|
||||
Height = 609
|
||||
Top = 148
|
||||
Top = 137
|
||||
Width = 489
|
||||
Caption = 'Download data from eQSL.cc'
|
||||
ClientHeight = 609
|
||||
ClientWidth = 489
|
||||
OnClose = FormClose
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.30'
|
||||
LCLVersion = '0.9.30.2'
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 0
|
||||
Height = 431
|
||||
@ -16,12 +16,12 @@ object frmeQSLDownload: TfrmeQSLDownload
|
||||
Width = 489
|
||||
Align = alClient
|
||||
Caption = 'Progress'
|
||||
ClientHeight = 412
|
||||
ClientHeight = 414
|
||||
ClientWidth = 485
|
||||
TabOrder = 0
|
||||
object mStat: TMemo
|
||||
Left = 0
|
||||
Height = 412
|
||||
Height = 414
|
||||
Top = 0
|
||||
Width = 485
|
||||
Align = alClient
|
||||
@ -56,20 +56,20 @@ object frmeQSLDownload: TfrmeQSLDownload
|
||||
Width = 489
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = ' '
|
||||
ClientHeight = 69
|
||||
ClientHeight = 71
|
||||
ClientWidth = 485
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
Left = 10
|
||||
Height = 18
|
||||
Height = 16
|
||||
Top = 12
|
||||
Width = 260
|
||||
Width = 230
|
||||
Caption = 'Return QSL records received on or after '
|
||||
ParentColor = False
|
||||
end
|
||||
object edtDateFrom: TEdit
|
||||
Left = 278
|
||||
Height = 27
|
||||
Height = 25
|
||||
Top = 7
|
||||
Width = 85
|
||||
TabOrder = 0
|
||||
@ -78,7 +78,7 @@ object frmeQSLDownload: TfrmeQSLDownload
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 39
|
||||
Width = 380
|
||||
Width = 331
|
||||
Caption = 'Show new comfirmed QSOs after download and import'
|
||||
TabOrder = 1
|
||||
end
|
||||
|
@ -2,14 +2,14 @@
|
||||
|
||||
LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[
|
||||
'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'
|
||||
+#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0#9'TGroupBox'#9'GroupBo'
|
||||
+'x1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align'#7
|
||||
+#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#156#1#11'ClientWidt'
|
||||
+'h'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#156#1
|
||||
+#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ssAu'
|
||||
+'toBoth'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3
|
||||
+#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.30.2'#0#9'TGroupBox'#9'Group'
|
||||
+'Box1'#4'Left'#2#0#6'Height'#3#175#1#3'Top'#3#128#0#5'Width'#3#233#1#5'Align'
|
||||
+#7#8'alClient'#7'Caption'#6#8'Progress'#12'ClientHeight'#3#158#1#11'ClientWi'
|
||||
+'dth'#3#229#1#8'TabOrder'#2#0#0#5'TMemo'#5'mStat'#4'Left'#2#0#6'Height'#3#158
|
||||
+#1#3'Top'#2#0#5'Width'#3#229#1#5'Align'#7#8'alClient'#10'ScrollBars'#7#10'ss'
|
||||
+'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'
|
||||
+'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
|
||||
@ -17,12 +17,12 @@ LazarusResources.Add('TfrmeQSLDownload','FORMDATA',[
|
||||
+' 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
|
||||
+#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'
|
||||
+'l3'#4'Left'#2#10#6'Height'#2#18#3'Top'#2#12#5'Width'#3#4#1#7'Caption'#6'(Re'
|
||||
+'turn QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11'e'
|
||||
+'dtDateFrom'#4'Left'#3#22#1#6'Height'#2#27#3'Top'#2#7#5'Width'#2'U'#8'TabOrd'
|
||||
+'er'#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'
|
||||
+'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#16#3'Top'#2#12#5'Width'#3#230#0#7'Caption'#6'('
|
||||
+'Return QSL records received on or after '#11'ParentColor'#8#0#0#5'TEdit'#11
|
||||
+'edtDateFrom'#4'Left'#3#22#1#6'Height'#2#25#3'Top'#2#7#5'Width'#2'U'#8'TabOr'
|
||||
+'der'#2#0#0#0#9'TCheckBox'#10'chkShowNew'#4'Left'#2#6#6'Height'#2#22#3'Top'#2
|
||||
+''''#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'
|
||||
+#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
|
||||
|
@ -194,8 +194,11 @@ begin
|
||||
http.Sock.LastErrorDesc)
|
||||
end
|
||||
end
|
||||
else
|
||||
mStat.Lines.Add('eQSL page was probably changed, cannot find the link to ADIF file')
|
||||
else begin
|
||||
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
|
||||
else begin
|
||||
|
Loading…
Reference in New Issue
Block a user