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

View File

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

View File

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