BelegScanner/scanner.pas

unit scanner;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtDlgs,
  StdCtrls, Unix;

type

  { TScanForm }

  TScanForm = class(TForm)
    DPI: TLabel;
    BaseFolder: TLabel;
    Resolution: TComboBox;
    IHeight: TEdit;
    Pixels: TLabel;
    BaseFolderDialog: TSelectDirectoryDialog;
    Times: TLabel;
    IWidth: TEdit;
    ScnaButton: TButton;
    Product: TComboBox;
    Destination: TComboBox;
    FolderName: TLabel;
    Origin: TComboBox;
    TypeSelector: TComboBox;
    dateButton: TButton;
    DateSelector: TCalendarDialog;
    DateView: TLabel;

    procedure BaseFolderClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ProductChange(Sender: TObject);
    procedure DestinationChange(Sender: TObject);
    procedure dateButtonClick(Sender: TObject);
    procedure OriginChange(Sender: TObject);
    procedure ScnaButtonClick(Sender: TObject);
    procedure TypeSelectorChange(Sender: TObject);
    function ExportConfig(): string;
    function ExportOptions(dropDown: TComboBox): string;
    procedure UpdateTypes();
    procedure UpdateFolder();
    procedure MixLocations(d1: TComboBox; d2: TComboBox);
    procedure ScanImage();
  private
    date: TDateTime;
  public

  end;

var
  ScanForm: TScanForm;

implementation

{$R *.lfm}

{ TScanForm }

procedure TScanForm.ScanImage();
begin
  fpSystem('scanimage -x '+IWidth.Caption+' -y '+IHeight.Caption+' --mode Gray --resolution '+Resolution.Caption+' --format jpeg > /home/srichter/tmp/test.jpg');
end;

procedure TScanForm.MixLocations(d1: TComboBox; d2: TComboBox);
var
  list: TStringList;
begin
  list := TStringList.Create;
  list.Sorted := True;
  d1.Items.Add(d1.Text);
  d2.Items.Add(d2.Text);
  list.Assign(d1.Items);
  list.AddStrings(d2.Items);
  d1.Items.Assign(list);
  d2.Items.Assign(list);
end;

function TScanForm.ExportConfig(): string;
begin
  Result := 'types:' + ExportOptions(TypeSelector) + #13;
  Result := Result + 'items:' + ExportOptions(Product) + #13;
  MixLocations(Origin, Destination);
  Result := Result + 'locations:' + ExportOPtions(Origin) + #13;
end;

function TScanForm.ExportOptions(dropDown: TComboBox): string;
var
  list: TStringList;
begin
  // make sure the current text appears in future lists
  dropDown.Items.Add(dropDown.Text);
  // create a StringList to sort and concatenate
  list := TStringList.Create;
  list.StrictDelimiter := True;
  list.Sorted := True;

  // put all items in the list, will sort and remove duplicates
  list.Assign(dropDown.Items);

  // update dropdown
  dropDown.Items.Assign(list);

  // return json array
  Result := list.DelimitedText
end;

procedure TScanForm.TypeSelectorChange(Sender: TObject);
var
  state: boolean;
begin
  TypeSelector.Tag := 1;
  state := TypeSelector.Text = 'Ticket';
  Origin.Enabled := state;
  Origin.Visible := state;
  Destination.Enabled := state;
  Product.Enabled := not state;
  Product.Visible := not state;
  ScnaButton.Enabled:=true;
  UpdateFolder();
end;

procedure TScanForm.dateButtonClick(Sender: TObject);
begin
  DateSelector.Execute;
  date := DateSelector.Date;
  DateView.Caption := FormatDateTime('YYYY-MM-DD', date);
  UpdateTypes();
  TypeSelector.Enabled := True;
  UpdateFolder();
end;

procedure TScanForm.OriginChange(Sender: TObject);
begin
  Origin.Tag := 1;
  UpdateFolder();
end;

procedure TScanForm.ScnaButtonClick(Sender: TObject);
var
  config: TFileStream;
  filename: string;
  json: string;
begin
  filename := GetEnvironmentVariable('HOME') + '/.config/belegscanner.conf';
  json := ExportConfig();
  try
    config := TFilestream.Create(filename, fmCreate);
    config.Write(json[1], json.Length);
  finally
    config.Free;
  end;
  ScanImage();
end;

procedure TScanForm.DestinationChange(Sender: TObject);
begin
  Destination.Tag := 1;
  UpdateFolder();
end;

procedure TScanForm.ProductChange(Sender: TObject);
begin
  Product.Tag := 1;
  UpdateFolder();
end;

procedure TScanForm.FormCreate(Sender: TObject);
var
  filename: String;
  lines: TStringList;
  line: String;
  index: integer;
begin
  BaseFolder.Caption:=GetEnvironmentVariable('HOME') + '/Documents/Quittungen/';
  filename := GetEnvironmentVariable('HOME') + '/.config/belegscanner.conf';
  lines := TStringList.Create;
  try
    lines.LoadFromFile(filename);
    for index := 0 to lines.Count-1 do
    begin
      line:=lines.Strings[index];
      if line.StartsWith('types:') then
        begin
          line := line.Substring(6);
          TypeSelector.Items.AddStrings(line.Split(','));
        end;
      if line.StartsWith('items:') then
        begin
          line := line.Substring(6);
          Product.Items.AddStrings(line.Split(','));
        end;
      if line.StartsWith('locations:') then
        begin
          line := line.Substring(10);
          Origin.Items.AddStrings(line.Split(','));
          Destination.Items.AddStrings(line.Split(','));
        end;
    end
  finally
  end;
end;

procedure TScanForm.BaseFolderClick(Sender: TObject);
begin
  BaseFolderDialog.FileName:=BaseFolder.Caption;
  BaseFolderDialog.Execute;
  BaseFolder.Caption := BaseFolderDialog.FileName;
end;


procedure TScanForm.UpdateFolder();
var
  tx: string;
begin
  tx := FormatDateTime('YYYY', date) + '/' + FormatDateTime('YYYY-MM-DD', date) + ' - ';
  if (Product.Enabled and (Product.Tag > 0)) then
    tx := tx + Product.Text + ' von ';
  if (TypeSelector.Tag > 0) then
    tx := tx + TypeSelector.Text;
  if (Origin.Enabled and (Origin.Tag > 0)) then
    tx := tx + ': ' + Origin.Text;
  if (Destination.Enabled and (Destination.Tag > 0)) then
    tx := tx + ' - ' + Destination.Text;
  FolderName.Caption := tx;
end;

procedure TScanForm.UpdateTypes();
begin

end;

end.