dao/DelphiScanner/Configuration.pas

unit Configuration;

interface
uses
  IniFiles;

type
  TConfiguration = class
  private
     BaseURL : string;

  public

    Sted : String;

    //Parametere for label print
    LabelType : integer;
    XPosRute : integer;
    YPosRute : integer;
    FontSizeRute : integer;
    FontSizeRuteLille : integer;
    XPosKommentar : integer;
    YPosKommentar : integer;
    FontSizeKommentar : integer;
    XPosBoghandler : integer;
    YPosBoghandler : integer;
    FontSizeBoghandler : integer;
    XPosKoreliste : integer;
    YPosKoreliste : integer;
    FontSizeKoreliste : integer;
    FontSizeKorelisteLille : integer;
    XPosSorteringsfelt1 : integer;
    YPosSorteringsfelt1 : integer;
    FontSizeSorteringsfelt1 : integer;
    XPosSorteringsfelt2 : integer;
    YPosSorteringsfelt2 : integer;
    FontSizeSorteringsfelt2 : integer;
    XPosSmskode : integer;
    YPosSmskode : integer;
    FontSizeSmskode : integer;

     FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
          FarveIndlevering : String;

     TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
          TitelIndlevering : String;


   UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
            UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
            UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;

    URLPrintLabel : String;
    UrlEKLoverforselPakkeshop : String;

    URLUdenforSpecifikation : String;
    UrlEmballageRepareret : String;

    UrlFindPakketype, UrlSendPrograminfo: String;

    AlarmLyd : String;
    ScannetOkLyd : String;
    ScannetOkStorLyd : String;

    ScannetOkTilTjekkodeLyd : String;

    PrinterNavn : String;
    TjekPrinter : String;

    SporgEfterBoghandler : String;

    ScanTjekkode : String;
    ScanTjekkodeAutomatik : string;

    TjekUrls : String;
    TestFunktionen : String;

    LabelStor : integer;


    procedure ReadFromInifile( iniFile: TIniFile);
    function InjectURL(Url : String) : String;

  end;

implementation

uses Utils, SysUtils;


procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
begin


  BaseURL := 'http://omdeling.info/';

  with iniFile do
  begin
    FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
    TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
    FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
    TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
    FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
    TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
    FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
    TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
    FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
    TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');

    FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
    TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');

    FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
    TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');


    SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
    ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
    ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');

    //Scanningtype := ReadString('Settings','Scanningtype','A');  //Scanningstype skal ikke l�ses fra config
    //Pakketype := ReadString('Settings','Pakketype','0');        //Pakketype Skal ikke l�ses fra config

    TestFunktionen := ReadString('Settings','TestFunktion','0');

    AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
    ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
    ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');

    ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');

    PrinterNavn := ReadString('Settings','PrinterNavn','');
    TjekPrinter := ReadString('Settings','TjekPrinter','1');
    TjekUrls := ReadString('Settings','TjekUrls','2');


    LabelType := ReadInteger('Settings','LabelType', 1);

    LabelStor := ReadInteger('Settings','LabelStor', 0);

    if LabelType = 0 then
    begin
       XPosRute := ReadInteger('RuteBred','XPos',1);
       YPosRute := ReadInteger('RuteBred','YPos',1);
       FontSizeRute := ReadInteger('RuteBred','FontSize',72);
       FontSizeRuteLille := ReadInteger('RuteBred','FontSizeLille',20);
       XPosKommentar := ReadInteger('KommentarBred','XPos',1);
       YPosKommentar := ReadInteger('KommentarBred','YPos',250);
       FontSizeKommentar := ReadInteger('KommentarBred','FontSize',16);
       XPosBoghandler := ReadInteger('BoghandlerBred','XPos',1);
       YPosBoghandler := ReadInteger('BoghandlerBred','YPos',400);
       FontSizeBoghandler := ReadInteger('BoghandlerBred','FontSize',16);
       XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
       YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
       FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
       FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
       XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
       YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
       FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
       XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
       YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
       FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
       XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
       YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
       FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
    end
    else
    begin
       XPosRute := ReadInteger('RuteSmal','XPos',1);
       YPosRute := ReadInteger('RuteSmal','YPos',1);
       FontSizeRute := ReadInteger('RuteSmal','FontSize',72);
       FontSizeRuteLille := ReadInteger('RuteSmal','FontSizeLille',20);
       XPosKommentar := ReadInteger('KommentarSmal','XPos',1);
       YPosKommentar := ReadInteger('KommentarSmal','YPos',250);
       FontSizeKommentar := ReadInteger('KommentarSmal','FontSize',16);
       XPosBoghandler := ReadInteger('BoghandlerSmal','XPos',1);
       YPosBoghandler := ReadInteger('BoghandlerSmal','YPos',400);
       FontSizeBoghandler := ReadInteger('BoghandlerSmal','FontSize',16);
       XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
       YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
       FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
       FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
       XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
       YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
       FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
       XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
       YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
       FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
       XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
       YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
       FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
       if LabelType = 2 then // test p� alm. printer kr�ver at XY-positionerne ganges med 3
       begin
          XPosRute := XPosRute * 3;
          YPosRute := YPosRute * 3;
          XPosKommentar := XPosKommentar * 3;
          YPosKommentar := YPosKommentar * 3;
          XPosBoghandler := XPosBoghandler * 3;
          YPosBoghandler := YPosBoghandler * 3;
          XPosKoreliste := XPosKoreliste * 3;
          YPosKoreliste := YPosKoreliste * 3;
          XPosSorteringsfelt1 := XPosSorteringsfelt1 * 3;
          YPosSorteringsfelt1 := YPosSorteringsfelt1 * 3;
          XPosSorteringsfelt2 := XPosSorteringsfelt2 * 3;
          YPosSorteringsfelt2 := YPosSorteringsfelt2 * 3;
          XPosSmskode := XPosSmskode * 3;
          YPosSmskode := YPosSmskode * 3;
       end;
    end;
  end;  //With ... do

    UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s';
    UrlFindPakketype := InjectURL(UrlFindPakketype);

    UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s';
    UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);

    UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s';
    UrlNormal := InjectURL(UrlNormal);

    UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
    UrlReturDAO := InjectURL(UrlReturDAO);

    UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
    UrlReturBoghandler := InjectURL(UrlReturBoghandler);

    UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s';
    UrlBudlevering := InjectURL(UrlBudlevering);

    UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s';
    UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);

    UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s';
    UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);

    UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s';
    UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);

    UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s';
    UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);

    UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s';
    UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);

    UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s';
    UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);

    UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s';
    UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);

    UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s';
    UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);

    UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s';
    UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);

    URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
    URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);

    UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
    UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);

    URLUdenforSpecifikation := BaseURL + '/webservices/pakkeshop/UdenforSpecifikation.php?sted=%s&stregkode=%s';
    URLUdenforSpecifikation := InjectURL(URLUdenforSpecifikation);


    URLPrintLabel := BaseURL + '/WebServices/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
    URLPrintLabel := InjectURL(URLPrintLabel);


    //Finally check for files:
    if not FileExists(AlarmLyd) then
    begin
      AlarmLyd := '';
    end;

    if not FileExists(ScannetOkLyd) then
    begin
      ScannetOkLyd := '';
    end;

    if not FileExists(ScannetOkStorLyd) then
    begin
      ScannetOkStorLyd := '';
    end;


    if not FileExists(ScannetOkTilTjekkodeLyd) then
    begin
      ScannetOkTilTjekkodeLyd := '';
    end;


end;


function TConfiguration.InjectURL(Url : String) : String;
begin

  Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
  Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
  Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());

  Result := Url;
end;

end.
1	torben	2705	unit Configuration;
2
3			interface
4			uses
5			IniFiles;
6
7			type
8			TConfiguration = class
9	torben	3088	private
10			BaseURL : string;
11
12	torben	2705	public
13
14			Sted : String;
15
16			//Parametere for label print
17			LabelType : integer;
18			XPosRute : integer;
19			YPosRute : integer;
20			FontSizeRute : integer;
21			FontSizeRuteLille : integer;
22			XPosKommentar : integer;
23			YPosKommentar : integer;
24			FontSizeKommentar : integer;
25			XPosBoghandler : integer;
26			YPosBoghandler : integer;
27			FontSizeBoghandler : integer;
28			XPosKoreliste : integer;
29			YPosKoreliste : integer;
30			FontSizeKoreliste : integer;
31			FontSizeKorelisteLille : integer;
32			XPosSorteringsfelt1 : integer;
33			YPosSorteringsfelt1 : integer;
34			FontSizeSorteringsfelt1 : integer;
35			XPosSorteringsfelt2 : integer;
36			YPosSorteringsfelt2 : integer;
37			FontSizeSorteringsfelt2 : integer;
38			XPosSmskode : integer;
39			YPosSmskode : integer;
40			FontSizeSmskode : integer;
41
42	torben	3089	FarveNormal, FarveReturDAO, FarveReturBoghandler, FarveBudlevering, FarvePakkeshoplevering, FarveReturPakkeshop,
43			FarveIndlevering : String;
44	torben	3077
45	torben	3089	TitelNormal, TitelReturDAO, TitelReturBoghandler, TitelBudlevering, TitelPakkeshoplevering, TitelReturPakkeshop,
46			TitelIndlevering : String;
47	torben	3087
48	torben	3088
49	torben	3089
50	torben	3087	UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering,
51			UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,
52			UrlIndleveringsPakkeManglendeScanninger,UrlEKLoverforsel, URLOmdirigerTilPakkeshop : String;
53
54	torben	3088	URLPrintLabel : String;
55	torben	3087	UrlEKLoverforselPakkeshop : String;
56
57	torben	3097	URLUdenforSpecifikation : String;
58	torben	3096	UrlEmballageRepareret : String;
59
60	torben	3087	UrlFindPakketype, UrlSendPrograminfo: String;
61
62	torben	3090	AlarmLyd : String;
63			ScannetOkLyd : String;
64			ScannetOkStorLyd : String;
65	torben	3087
66	torben	3090	ScannetOkTilTjekkodeLyd : String;
67	torben	3087
68	torben	3090	PrinterNavn : String;
69			TjekPrinter : String;
70
71			SporgEfterBoghandler : String;
72
73			ScanTjekkode : String;
74			ScanTjekkodeAutomatik : string;
75
76			TjekUrls : String;
77			TestFunktionen : String;
78
79	torben	3091	LabelStor : integer;
80	torben	3090
81
82	torben	3091
83	torben	2705	procedure ReadFromInifile( iniFile: TIniFile);
84	torben	3087	function InjectURL(Url : String) : String;
85	torben	2705
86			end;
87
88			implementation
89
90	torben	3090	uses Utils, SysUtils;
91	torben	2705
92	torben	3087
93	torben	2705	procedure TConfiguration.ReadFromInifile( iniFile: TIniFile);
94			begin
95	torben	3077
96
97	torben	3087	BaseURL := 'http://omdeling.info/';
98
99	torben	2705	with iniFile do
100			begin
101	torben	3089	FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
102			TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
103			FarveReturDAO := ReadString('Settings','FarveReturDAO','A9F5A9');
104			TitelReturDAO := ReadString('Settings','TitelReturDAO','Returforsendelse fra DAO');
105			FarveReturBoghandler := ReadString('Settings','FarveReturBoghandler','F2F5A9');
106			TitelReturBoghandler := ReadString('Settings','TitelReturBoghandler','Returforsendelse fra boghandler');
107			FarveBudlevering := ReadString('Settings','FarveBudlevering','2E9AFE');
108			TitelBudlevering := ReadString('Settings','TitelBudlevering','Modtagelse af DAO DIREKTE pakker');
109			FarvePakkeshoplevering := ReadString('Settings','FarvePakkeshoplevering','99FFFF');
110			TitelPakkeshoplevering := ReadString('Settings','TitelPakkeshoplevering','Modtagelse af DAO PAKKESHOP pakker');
111	torben	2705
112	torben	3089	FarveReturPakkeshop := ReadString('Settings','FarveReturPakkeshop','99FFCC');
113			TitelReturPakkeshop := ReadString('Settings','TitelReturPakkeshop','Returforsendelse fra pakkeshop');
114
115			FarveIndlevering := ReadString('Settings', 'FarveIndlevering', 'E5B2CB');
116			TitelIndlevering := ReadString('Settings', 'TitelIndlevering', 'Indleveringskode');
117
118
119			SporgEfterBoghandler := ReadString('Settings','SporgEfterBoghandler','0');
120			ScanTjekkode := ReadString('Settings','ScanTjekkode','0');
121			ScanTjekkodeAutomatik := ReadString('Settings','ScanTjekkodeAutomatik','1');
122	torben	3090
123			//Scanningtype := ReadString('Settings','Scanningtype','A'); //Scanningstype skal ikke l�ses fra config
124			//Pakketype := ReadString('Settings','Pakketype','0'); //Pakketype Skal ikke l�ses fra config
125
126	torben	3089	TestFunktionen := ReadString('Settings','TestFunktion','0');
127	torben	3090
128	torben	3089	AlarmLyd := ReadString('Settings','AlarmLyd','Sounds\Alarm.wav');
129			ScannetOkLyd := ReadString('Settings','ScannetOkLyd','Sounds\Ok.wav');
130			ScannetOkStorLyd := ReadString('Settings','ScannetOkStorLyd','Sounds\Ok_stor.wav');
131
132			ScannetOkTilTjekkodeLyd := ReadString('Settings','ScannetOkTilTjekkodeLyd','Sounds\Ok_til_tjekkode.wav');
133
134			PrinterNavn := ReadString('Settings','PrinterNavn','');
135			TjekPrinter := ReadString('Settings','TjekPrinter','1');
136			TjekUrls := ReadString('Settings','TjekUrls','2');
137
138
139	torben	3091	LabelType := ReadInteger('Settings','LabelType', 1);
140	torben	2705
141	torben	3091	LabelStor := ReadInteger('Settings','LabelStor', 0);
142
143	torben	2705	if LabelType = 0 then
144			begin
145			XPosRute := ReadInteger('RuteBred','XPos',1);
146			YPosRute := ReadInteger('RuteBred','YPos',1);
147			FontSizeRute := ReadInteger('RuteBred','FontSize',72);
148			FontSizeRuteLille := ReadInteger('RuteBred','FontSizeLille',20);
149			XPosKommentar := ReadInteger('KommentarBred','XPos',1);
150			YPosKommentar := ReadInteger('KommentarBred','YPos',250);
151			FontSizeKommentar := ReadInteger('KommentarBred','FontSize',16);
152			XPosBoghandler := ReadInteger('BoghandlerBred','XPos',1);
153			YPosBoghandler := ReadInteger('BoghandlerBred','YPos',400);
154			FontSizeBoghandler := ReadInteger('BoghandlerBred','FontSize',16);
155			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
156			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
157			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
158			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
159			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
160			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
161			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
162			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
163			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
164			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
165			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
166			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
167			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
168			end
169			else
170			begin
171			XPosRute := ReadInteger('RuteSmal','XPos',1);
172			YPosRute := ReadInteger('RuteSmal','YPos',1);
173			FontSizeRute := ReadInteger('RuteSmal','FontSize',72);
174			FontSizeRuteLille := ReadInteger('RuteSmal','FontSizeLille',20);
175			XPosKommentar := ReadInteger('KommentarSmal','XPos',1);
176			YPosKommentar := ReadInteger('KommentarSmal','YPos',250);
177			FontSizeKommentar := ReadInteger('KommentarSmal','FontSize',16);
178			XPosBoghandler := ReadInteger('BoghandlerSmal','XPos',1);
179			YPosBoghandler := ReadInteger('BoghandlerSmal','YPos',400);
180			FontSizeBoghandler := ReadInteger('BoghandlerSmal','FontSize',16);
181			XPosKoreliste := ReadInteger('KorelisteSmal','XPos',1);
182			YPosKoreliste := ReadInteger('KorelisteSmal','YPos',100);
183			FontSizeKoreliste := ReadInteger('KorelisteSmal','FontSize',72);
184			FontSizeKorelisteLille := ReadInteger('KorelisteSmal','FontSizeLille',20);
185			XPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','XPos',700);
186			YPosSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','YPos',100);
187			FontSizeSorteringsfelt1 := ReadInteger('Sorteringsfelt1Smal','FontSize',16);
188			XPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','XPos',700);
189			YPosSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','YPos',150);
190			FontSizeSorteringsfelt2 := ReadInteger('Sorteringsfelt2Smal','FontSize',16);
191			XPosSmskode := ReadInteger('SmskodeSmal','XPos',1);
192			YPosSmskode := ReadInteger('SmskodeSmal','YPos',300);
193			FontSizeSmskode := ReadInteger('SmskodeSmal','FontSize',32);
194			if LabelType = 2 then // test p� alm. printer kr�ver at XY-positionerne ganges med 3
195			begin
196			XPosRute := XPosRute * 3;
197			YPosRute := YPosRute * 3;
198			XPosKommentar := XPosKommentar * 3;
199			YPosKommentar := YPosKommentar * 3;
200			XPosBoghandler := XPosBoghandler * 3;
201			YPosBoghandler := YPosBoghandler * 3;
202			XPosKoreliste := XPosKoreliste * 3;
203			YPosKoreliste := YPosKoreliste * 3;
204			XPosSorteringsfelt1 := XPosSorteringsfelt1 * 3;
205			YPosSorteringsfelt1 := YPosSorteringsfelt1 * 3;
206			XPosSorteringsfelt2 := XPosSorteringsfelt2 * 3;
207			YPosSorteringsfelt2 := YPosSorteringsfelt2 * 3;
208			XPosSmskode := XPosSmskode * 3;
209			YPosSmskode := YPosSmskode * 3;
210			end;
211			end;
212			end; //With ... do
213
214	torben	3087	UrlFindPakketype := BaseURL + '/webservices/bogpakkekontrol/FindPakketype.php?stregkode=%s';
215			UrlFindPakketype := InjectURL(UrlFindPakketype);
216
217			UrlSendPrograminfo := BaseURL + '/webservices/bogpakkekontrol/SendPrograminfo.php?programnavn=%s&sted=%s&scanningtype=%s&infotype=%s&info=%s';
218			UrlSendPrograminfo := InjectURL(UrlSendPrograminfo);
219
220			UrlNormal := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&tjekkode=%s';
221			UrlNormal := InjectURL(UrlNormal);
222
223			UrlReturDAO := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
224			UrlReturDAO := InjectURL(UrlReturDAO);
225
226			UrlReturBoghandler := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&boghandlernummer=%s&returpakketype=%s&pakkestorrelse=%s';
227			UrlReturBoghandler := InjectURL(UrlReturBoghandler);
228
229			UrlBudlevering := BaseURL + '/webservices/bogpakkekontrol/bogpakkekontrol.php?sted=%s&pakkenummer=%s&leveringstype=%s&pakkestorrelse=%s';
230			UrlBudlevering := InjectURL(UrlBudlevering);
231
232			UrlManglendeScanninger := BaseURL + '/webservices/bogpakkekontrol/bogpakkemanglendescanninger.php?sted=%s&type=%s';
233			UrlManglendeScanninger := InjectURL(UrlManglendeScanninger);
234
235			UrlEKLoverforsel := BaseURL + '/webservices/bogpakkekontrol/bogpakkertilekl.php?sted=%s';
236			UrlEKLoverforsel := InjectURL(UrlEKLoverforsel);
237
238			UrlEKLoverforselPakkeshop := BaseURL + '/webservices/pakkeshop/pakkertilekl.php?sted=%s';
239			UrlEKLoverforselPakkeshop := InjectURL(UrlEKLoverforselPakkeshop);
240
241			UrlPakkeshoplevering := BaseURL + '/webservices/pakkeshop/pakkekontrol.php?sted=%s&stregkode=%s&tjekkode=%s';
242			UrlPakkeshoplevering := InjectURL(UrlPakkeshoplevering);
243
244			UrlReturPakkeshop := BaseURL + '/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s';
245			UrlReturPakkeshop := InjectURL(UrlReturPakkeshop);
246
247			UrlPakkeshopManglendeScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s';
248			UrlPakkeshopManglendeScanninger := InjectURL(UrlPakkeshopManglendeScanninger);
249
250			UrlPakkeshopManglendeReturScanninger := BaseURL + '/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s';
251			UrlPakkeshopManglendeReturScanninger := InjectURL(UrlPakkeshopManglendeReturScanninger);
252
253			UrlIndleveringsPakke := BaseURL + '/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s';
254			UrlIndleveringsPakke := InjectURL(UrlIndleveringsPakke);
255
256			UrlIndleveringsPakkeManglendeScanninger := BaseURL + '/webservices/pakkeshop/IndleveringsPakkeManglendeScanninger.php?sted=%s';
257			UrlIndleveringsPakkeManglendeScanninger := InjectURL(UrlIndleveringsPakkeManglendeScanninger);
258
259			URLOmdirigerTilPakkeshop := BaseURL + '/webservices/pakkeshop/PakkeKontrolOmdirigerTilPakkeshop.php?sted=%s&stregkode=%s';
260			URLOmdirigerTilPakkeshop := InjectURL(URLOmdirigerTilPakkeshop);
261
262	torben	3096	UrlEmballageRepareret := BaseURL + '/webservices/pakkeshop/EmballageRepareret.php?sted=%s&stregkode=%s';
263			UrlEmballageRepareret := InjectURL(UrlEmballageRepareret);
264
265	torben	3097	URLUdenforSpecifikation := BaseURL + '/webservices/pakkeshop/UdenforSpecifikation.php?sted=%s&stregkode=%s';
266			URLUdenforSpecifikation := InjectURL(URLUdenforSpecifikation);
267	torben	3096
268	torben	3097
269			URLPrintLabel := BaseURL + '/WebServices/BogpakkeKontrol/PrintLabel.php?stregkode=%s';
270	torben	3088	URLPrintLabel := InjectURL(URLPrintLabel);
271	torben	3087
272	torben	3088
273	torben	3090
274			//Finally check for files:
275			if not FileExists(AlarmLyd) then
276			begin
277			AlarmLyd := '';
278			end;
279
280			if not FileExists(ScannetOkLyd) then
281			begin
282			ScannetOkLyd := '';
283			end;
284
285			if not FileExists(ScannetOkStorLyd) then
286			begin
287			ScannetOkStorLyd := '';
288			end;
289
290
291			if not FileExists(ScannetOkTilTjekkodeLyd) then
292			begin
293			ScannetOkTilTjekkodeLyd := '';
294			end;
295
296
297
298	torben	2705	end;
299
300	torben	3087
301			function TConfiguration.InjectURL(Url : String) : String;
302			begin
303
304			Url := Url + '&ver=' + TUtils.URLEncode( TUtils.Sto_GetFmtFileVersion(''));
305			Url := Url + '&host=' + TUtils.URLEncode( TUtils.GetComputerNameHelper());
306			Url := Url + '&user=' + TUtils.URLEncode( TUtils.GetCurrentUserName());
307
308			Result := Url;
309			end;
310
311	torben	2705	end.