v11.0.0

tools/logfile-tool/uMain.dfm

@@ -0,0 +1,111 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Gasmeter Log-Downloader'
+  ClientHeight = 521
+  ClientWidth = 513
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lblImpressum: TLabel
+    Left = 376
+    Top = 468
+    Width = 68
+    Height = 13
+    Caption = 'reserve, 2022'
+  end
+  object lbledtURL: TLabeledEdit
+    Left = 28
+    Top = 36
+    Width = 273
+    Height = 21
+    EditLabel.Width = 146
+    EditLabel.Height = 13
+    EditLabel.Caption = 'URL to Logfile-Path on Device:'
+    TabOrder = 0
+    Text = 'http://192.168.10.65/fileserver/log/message/'
+  end
+  object btnDownloadLogfiles: TButton
+    Left = 28
+    Top = 174
+    Width = 273
+    Height = 25
+    Caption = 'Download Logfiles and generate CSV'
+    TabOrder = 1
+    OnClick = btnDownloadLogfilesClick
+  end
+  object lbledtMaxLogfilesOnServer: TLabeledEdit
+    Left = 323
+    Top = 36
+    Width = 121
+    Height = 21
+    EditLabel.Width = 173
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Download logfiles from past # days:'
+    TabOrder = 2
+    Text = '30'
+  end
+  object lbledtTargetDirectory: TLabeledEdit
+    Left = 28
+    Top = 84
+    Width = 273
+    Height = 21
+    EditLabel.Width = 103
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Download Logfiles to:'
+    TabOrder = 3
+    Text = 'C:\Temp\Gas\'
+  end
+  object lbledtCsvFile: TLabeledEdit
+    Left = 28
+    Top = 131
+    Width = 273
+    Height = 21
+    EditLabel.Width = 80
+    EditLabel.Height = 13
+    EditLabel.Caption = 'Output CSV-File:'
+    TabOrder = 4
+    Text = 'C:\Temp\Gas\Values.csv'
+  end
+  object redtLog: TRichEdit
+    Left = 28
+    Top = 220
+    Width = 273
+    Height = 277
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    Lines.Strings = (
+      'redtLog')
+    ParentFont = False
+    TabOrder = 5
+    Zoom = 100
+  end
+  object idhtp1: TIdHTTP
+    AllowCookies = True
+    ProxyParams.BasicAuthentication = False
+    ProxyParams.ProxyPort = 0
+    Request.ContentLength = -1
+    Request.ContentRangeEnd = -1
+    Request.ContentRangeStart = -1
+    Request.ContentRangeInstanceLength = -1
+    Request.Accept = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
+    Request.BasicAuthentication = False
+    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
+    Request.Ranges.Units = 'bytes'
+    Request.Ranges = <>
+    HTTPOptions = [hoForceEncodeParams]
+    Left = 572
+    Top = 464
+  end
+end