more debug output added (especially when adif download fails)

This commit is contained in:
Petr Hlozek 2014-01-03 19:13:53 +01:00
parent eb5c237c6a
commit 7ee4eedf04
3 changed files with 27 additions and 24 deletions

View File

@ -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

View File

@ -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

View File

@ -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