StephanRichter
/
BelegScanner
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

working on scanning

main
Stephan Richter 6 years ago
parent
b407b7b0ec
commit
246f0cb02c
3 changed files with 154 additions and 51 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 74
      Belegscanner.lps
  2. 101
      scanner.lfm
  3. 30
      scanner.pas

74
Belegscanner.lps
Unescape View File

@ -3,7 +3,7 @@
<ProjectSession> <ProjectSession>
<Version Value="10"/> <Version Value="10"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="5"> <Units Count="6">
<Unit0> <Unit0>
<Filename Value="Belegscanner.lpr"/> <Filename Value="Belegscanner.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -17,8 +17,8 @@
<ComponentName Value="ScanForm"/> <ComponentName Value="ScanForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="136"/> <TopLine Value="54"/>
<CursorPos X="22" Y="183"/> <CursorPos X="159" Y="97"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -46,127 +46,135 @@
<CursorPos X="14" Y="437"/> <CursorPos X="14" Y="437"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5>
<Filename Value="/usr/share/fpcsrc/3.0.4/packages/fcl-process/src/process.pp"/>
<EditorIndex Value="1"/>
<TopLine Value="99"/>
<CursorPos X="14" Y="131"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit5>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="55" Column="16"/> <Caret Line="172" Column="11" TopLine="71"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="51" Column="38" TopLine="2"/> <Caret Line="173" Column="45" TopLine="120"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="56" Column="19" TopLine="25"/> <Caret Line="179" TopLine="139"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="51" Column="54"/> <Caret Line="175" TopLine="138"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="117" Column="77" TopLine="112"/> <Caret Line="154" Column="5" TopLine="138"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="141" Column="148" TopLine="114"/> <Caret Line="30" Column="73"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="13" Column="140"/> <Caret Line="140" Column="144" TopLine="137"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Column="13"/> <Caret Line="132" Column="3" TopLine="126"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="19" Column="53" TopLine="38"/> <Caret Line="107" Column="27" TopLine="96"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="165" Column="35" TopLine="120"/> <Caret Line="141" Column="32" TopLine="118"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="145" Column="74" TopLine="128"/> <Caret Line="142" Column="32" TopLine="119"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="71" Column="52" TopLine="31"/> <Caret Line="143" Column="32" TopLine="120"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="161" Column="117" TopLine="127"/> <Caret Line="144" Column="32" TopLine="121"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="151" Column="70" TopLine="118"/> <Caret Line="145" Column="32" TopLine="122"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="34" Column="160" TopLine="26"/> <Caret Line="146" Column="32" TopLine="123"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="100" Column="100" TopLine="76"/> <Caret Line="147" Column="32" TopLine="124"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="163" Column="12" TopLine="126"/> <Caret Line="18" Column="12"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="158" Column="14" TopLine="126"/> <Caret Line="36" Column="61"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="164" Column="3" TopLine="125"/> <Caret Line="171" Column="79" TopLine="156"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="158" Column="13" TopLine="125"/> <Caret Line="202" Column="3" TopLine="162"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="166" Column="5" TopLine="125"/> <Caret Line="124" Column="63" TopLine="108"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="164" Column="38" TopLine="130"/> <Caret Line="196" Column="89" TopLine="164"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="166" Column="46" TopLine="130"/> <Caret Line="67" Column="27" TopLine="31"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="171" TopLine="130"/> <Caret Line="69" Column="34" TopLine="34"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="172" Column="11" TopLine="71"/> <Caret Line="74" Column="17" TopLine="36"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="173" Column="45" TopLine="120"/> <Caret Line="79" Column="66" TopLine="36"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="179" TopLine="139"/> <Caret Line="74" Column="28" TopLine="41"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="175" TopLine="138"/> <Caret Line="97" Column="69" TopLine="59"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="154" Column="5" TopLine="138"/> <Caret Line="74" Column="77" TopLine="65"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="scanner.pas"/> <Filename Value="scanner.pas"/>
<Caret Line="30" Column="73"/> <Caret Line="9" Column="17"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>

101
scanner.lfm
Unescape View File

@ -1,11 +1,11 @@
object ScanForm: TScanForm object ScanForm: TScanForm
Left = 2207 Left = 1901
Height = 95 Height = 180
Top = 221 Top = 631
Width = 664 Width = 663
Caption = 'Belegscanner' Caption = 'Belegscanner'
ClientHeight = 95 ClientHeight = 180
ClientWidth = 664 ClientWidth = 663
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.8.2.0' LCLVersion = '1.8.2.0'
object DateView: TLabel object DateView: TLabel
@ -31,7 +31,7 @@ object ScanForm: TScanForm
object TypeSelector: TComboBox object TypeSelector: TComboBox
Left = 8 Left = 8
Height = 29 Height = 29
Top = 32 Top = 40
Width = 216 Width = 216
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
@ -42,7 +42,7 @@ object ScanForm: TScanForm
object Origin: TComboBox object Origin: TComboBox
Left = 232 Left = 232
Height = 29 Height = 29
Top = 32 Top = 40
Width = 184 Width = 184
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
@ -53,7 +53,7 @@ object ScanForm: TScanForm
object Destination: TComboBox object Destination: TComboBox
Left = 424 Left = 424
Height = 29 Height = 29
Top = 32 Top = 40
Width = 196 Width = 196
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
@ -64,7 +64,7 @@ object ScanForm: TScanForm
object FolderName: TLabel object FolderName: TLabel
Left = 8 Left = 8
Height = 19 Height = 19
Top = 64 Top = 96
Width = 103 Width = 103
Caption = 'Ordnername' Caption = 'Ordnername'
Font.Height = -16 Font.Height = -16
@ -75,7 +75,7 @@ object ScanForm: TScanForm
object Product: TComboBox object Product: TComboBox
Left = 232 Left = 232
Height = 29 Height = 29
Top = 32 Top = 40
Width = 184 Width = 184
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
@ -85,19 +85,90 @@ object ScanForm: TScanForm
Visible = False Visible = False
end end
object ScnaButton: TButton object ScnaButton: TButton
Left = 320 Left = 545
Height = 25 Height = 25
Top = 8 Top = 72
Width = 75 Width = 75
Caption = 'scannen!' Caption = 'scannen!'
Enabled = False
OnClick = ScnaButtonClick OnClick = ScnaButtonClick
TabOrder = 5 TabOrder = 5
end end
object IWidth: TEdit
Left = 320
Height = 27
Top = 8
Width = 80
Alignment = taRightJustify
TabOrder = 6
Text = '209'
end
object Times: TLabel
Left = 402
Height = 17
Top = 13
Width = 6
Caption = 'x'
ParentColor = False
end
object IHeight: TEdit
Left = 416
Height = 27
Top = 8
Width = 80
TabOrder = 7
Text = '297'
end
object Pixels: TLabel
Left = 500
Height = 17
Top = 13
Width = 27
Caption = 'px @'
ParentColor = False
end
object Resolution: TComboBox
Left = 536
Height = 29
Top = 8
Width = 68
ItemHeight = 0
Items.Strings = (
'150'
'300'
)
TabOrder = 8
Text = '150'
end
object DPI: TLabel
Left = 608
Height = 17
Top = 13
Width = 17
Caption = 'dpi'
ParentColor = False
end
object BaseFolder: TLabel
Left = 8
Height = 19
Top = 76
Width = 88
Caption = 'BaseFolder'
Font.Height = -16
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
OnClick = BaseFolderClick
end
object DateSelector: TCalendarDialog object DateSelector: TCalendarDialog
Date = 43775 Date = 43775
OKCaption = '&Ok' OKCaption = '&Ok'
CancelCaption = 'Abbrechen' CancelCaption = 'Abbrechen'
left = 472 left = 352
top = 8 top = 72
end
object BaseFolderDialog: TSelectDirectoryDialog
left = 251
top = 85
end end
end end

30
scanner.pas
Unescape View File

@ -6,13 +6,21 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtDlgs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtDlgs,
StdCtrls; StdCtrls, Unix;
type type
{ TScanForm } { TScanForm }
TScanForm = class(TForm) TScanForm = class(TForm)
DPI: TLabel;
BaseFolder: TLabel;
Resolution: TComboBox;
IHeight: TEdit;
Pixels: TLabel;
BaseFolderDialog: TSelectDirectoryDialog;
Times: TLabel;
IWidth: TEdit;
ScnaButton: TButton; ScnaButton: TButton;
Product: TComboBox; Product: TComboBox;
Destination: TComboBox; Destination: TComboBox;
@ -23,6 +31,7 @@ type
DateSelector: TCalendarDialog; DateSelector: TCalendarDialog;
DateView: TLabel; DateView: TLabel;
procedure BaseFolderClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ProductChange(Sender: TObject); procedure ProductChange(Sender: TObject);
procedure DestinationChange(Sender: TObject); procedure DestinationChange(Sender: TObject);
@ -35,6 +44,7 @@ type
procedure UpdateTypes(); procedure UpdateTypes();
procedure UpdateFolder(); procedure UpdateFolder();
procedure MixLocations(d1: TComboBox; d2: TComboBox); procedure MixLocations(d1: TComboBox; d2: TComboBox);
procedure ScanImage();
private private
date: TDateTime; date: TDateTime;
public public
@ -50,6 +60,11 @@ implementation
{ TScanForm } { 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); procedure TScanForm.MixLocations(d1: TComboBox; d2: TComboBox);
var var
list: TStringList; list: TStringList;
@ -104,6 +119,7 @@ begin
Destination.Enabled := state; Destination.Enabled := state;
Product.Enabled := not state; Product.Enabled := not state;
Product.Visible := not state; Product.Visible := not state;
ScnaButton.Enabled:=true;
UpdateFolder(); UpdateFolder();
end; end;
@ -137,7 +153,7 @@ begin
finally finally
config.Free; config.Free;
end; end;
ScanImage();
end; end;
procedure TScanForm.DestinationChange(Sender: TObject); procedure TScanForm.DestinationChange(Sender: TObject);
@ -159,6 +175,7 @@ var
line: String; line: String;
index: integer; index: integer;
begin begin
BaseFolder.Caption:=GetEnvironmentVariable('HOME') + '/Documents/Quittungen/';
filename := GetEnvironmentVariable('HOME') + '/.config/belegscanner.conf'; filename := GetEnvironmentVariable('HOME') + '/.config/belegscanner.conf';
lines := TStringList.Create; lines := TStringList.Create;
try try
@ -187,12 +204,19 @@ begin
end; end;
end; end;
procedure TScanForm.BaseFolderClick(Sender: TObject);
begin
BaseFolderDialog.FileName:=BaseFolder.Caption;
BaseFolderDialog.Execute;
BaseFolder.Caption := BaseFolderDialog.FileName;
end;
procedure TScanForm.UpdateFolder(); procedure TScanForm.UpdateFolder();
var var
tx: string; tx: string;
begin begin
tx := FormatDateTime('YYYY-MM-DD', date) + ' - '; tx := FormatDateTime('YYYY', date) + '/' + FormatDateTime('YYYY-MM-DD', date) + ' - ';
if (Product.Enabled and (Product.Tag > 0)) then if (Product.Enabled and (Product.Tag > 0)) then
tx := tx + Product.Text + ' von '; tx := tx + Product.Text + ' von ';
if (TypeSelector.Tag > 0) then if (TypeSelector.Tag > 0) then

Write Preview
Loading…
Cancel
Save