AlarmeJT Code

{********************************************************************************
***                               AlarmeJT                                    ***
***    AlarmeJT is designed to work with exellent WSJT -X Joe Taylor, K1JT    ***
***    running on JT65A, JT9 and FT8 modes.                                   ***
***    -------------------------------------------------------------------    ***
***    version : 0.8 UDP beta                                                 ***
***    -------------------------------------------------------------------    ***
***    Copyright 2017 Alain Thébault (F5JMH)                                  ***
***                                                                           ***
***    This file is part of AlarmeJT.                                         ***
***                                                                           ***
***    AlarmeJT is free software: you can redistribute it and/or modify       ***
***    it under the terms of the GNU General Public License as published by   ***
***    the Free Software Foundation, either version 2.0 of the License, or    ***
***    any later version.                                                     ***
***                                                                           ***
***    AlarmeJT is distributed in the hope that it will be useful,            ***
***    but WITHOUT ANY WARRANTY; without even the implied warranty of         ***
***    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          ***
***    GNU General Public License for more details.                           ***
***                                                                           ***
***    You should have received a copy of the GNU General Public License      ***
***    along with AlarmeJT.  If not, see <http://www.gnu.org/licenses/>.      ***
***                                                                           ***
***    -------------------------------------------------------------------    ***
********************************************************************************}

unit ucluster;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Grids, ufonction, iniFiles;

type

  { TFCluster }

  TFCluster = class(TForm)
    BTouteBande: TButton;
    B10m: TButton;
    BQuitter: TButton;
    B160m: TButton;
    B80m: TButton;
    B40m: TButton;
    B20m: TButton;
    B30m: TButton;
    B17m: TButton;
    B15m: TButton;
    B12m: TButton;
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    Timer1: TTimer;
    ToggleBox1: TToggleBox;
    procedure B10mClick(Sender: TObject);
    procedure BQuitterClick(Sender: TObject);
    procedure BTouteBandeClick(Sender: TObject);
    procedure B160mClick(Sender: TObject);
    procedure B80mClick(Sender: TObject);
    procedure B40mClick(Sender: TObject);
    procedure B20mClick(Sender: TObject);
    procedure B30mClick(Sender: TObject);
    procedure B17mClick(Sender: TObject);
    procedure B15mClick(Sender: TObject);
    procedure B12mClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToggleBox1Click(Sender: TObject);
  private
    { private declarations }
    procedure WriteCluster(limite, bande:string);
    procedure ReadCluster();
  public
    { public declarations }
  var
       LigneCluster, BandeCluster: string;
  end;

var
  FCluster: TFCluster;
   FConfigLang: TIniFile;
implementation

{$R *.lfm}

{ TFCluster }
procedure TFCluster.WriteCluster(limite, bande:string);
begin
  // Connection au cluster HamQTH - HAMQTH cluster connect
  try
      DownloadHTTP('http://www.hamqth.com/dxc_csv.php?limit='+limite+'&band='+bande+'',ExtractFilePath(Application.ExeName)+HAM_CLUSTER);
  except
       On E : Exception do WriteLn('Message d''erreur = ',E.Message);
  end;
  ReadCluster()
end;

procedure TFCluster.ReadCluster();
var
   F: TStringList;
   i: integer;
begin
     F := TStringList.Create; i:=0;
      try
        F.LoadFromFile(ExtractFilePath(Application.ExeName)+HAM_CLUSTER);
        FCluster.StringGrid1.RowCount := F.Count;
        for i := 0 to F.Count -1 do
          with FCluster.StringGrid1.Rows[i] do
          begin
            Delimiter       := '^';
            StrictDelimiter := TRUE;
            DelimitedText   := F[i];
          end;
      finally
        F.Free;
      end;
end;

procedure TFCluster.FormCreate(Sender: TObject);
begin
  ReadPositionFenetre(self, 'Cluster','AFenCluster');
  LigneCluster:='20';     {.....................................................initialisation nombre de lignes affichées - number of lines in cluster }

  FConfigLang := TIniFile.Create(ExtractFilePath(Application.ExeName)+'lang/'+langue()+'/lang.jmh');
     BQuitter.Caption:=FConfigLang.ReadString('Generale', 'BQuitter', '');
     BTouteBande.Caption:=FConfigLang.ReadString('Cluster', 'BTouteBande', '');
     BTouteBande.Hint:=FConfigLang.ReadString('Cluster', 'BTouteBandeH', '');
     Caption:=FConfigLang.ReadString('Cluster', 'FenCap', '');
  FConfigLang.Free;
end;

procedure TFCluster.Timer1Timer(Sender: TObject);
begin
   WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.ToggleBox1Click(Sender: TObject);
begin
  if ToggleBox1.Checked then begin
    ToggleBox1.Color:=clGreen;
    Timer1.Enabled:=True;
    ToggleBox1.Caption:='On';
  end else begin
    ToggleBox1.Checked:=False;
    ToggleBox1.Color:=clRed;
    Timer1.Enabled:=False;
    ToggleBox1.Caption:='Off';
  end;
end;

procedure TFCluster.BTouteBandeClick(Sender: TObject);
begin
  BandeCluster := '';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B10mClick(Sender: TObject);
begin
  BandeCluster := '10M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.BQuitterClick(Sender: TObject);
begin
  if Timer1.Enabled then Timer1.Enabled:=False;
  FCluster.Close;
end;

procedure TFCluster.B160mClick(Sender: TObject);
begin
   BandeCluster := '160M';
   WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B80mClick(Sender: TObject);
begin
   BandeCluster := '80M';
   WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B40mClick(Sender: TObject);
begin
  BandeCluster := '40M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B20mClick(Sender: TObject);
begin
  BandeCluster := '20M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B30mClick(Sender: TObject);
begin
  BandeCluster := '30M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B17mClick(Sender: TObject);
begin
  BandeCluster := '17M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B15mClick(Sender: TObject);
begin
  BandeCluster := '15M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.B12mClick(Sender: TObject);
begin
  BandeCluster := '12M';
  WriteCluster(LigneCluster,BandeCluster);
end;

procedure TFCluster.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  WritePositionFenetre(Self, 'Cluster','AFenCluster');
  FCluster:=nil;
  FCluster.Free;
end;

end.