/[projects]/dao/DelphiScanner/Main.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Main.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2667 by torben, Sun Aug 23 16:17:56 2015 UTC revision 2668 by torben, Tue Aug 25 16:34:41 2015 UTC
# Line 9  uses Line 9  uses
9    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,    Menus, ExtCtrls, ComCtrls, StrUtils, MMSystem, DateUtils,
10    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,    IdExplicitTLSClientServerBase, IdFTP, pngimage, GIFImg, IdException,
11    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,    Winspool, Registry, ShellApi, ClipBrd, Buttons, wininet,
12    UITypes    UITypes,
13      PakkeshopLabels
14    
15    ;    ;
16    
# Line 58  type Line 59  type
59      DownloadButton03: TButton;      DownloadButton03: TButton;
60      Pakkeshoplevering1: TMenuItem;      Pakkeshoplevering1: TMenuItem;
61      PakkeshopText1: TStaticText;      PakkeshopText1: TStaticText;
62      PakkeshopNulstil: TButton;      btnNulstil: TButton;
63      Returpakkerfrapakkeshop1: TMenuItem;      Returpakkerfrapakkeshop1: TMenuItem;
64      Altidprintepakkelabel1: TMenuItem;      Altidprintepakkelabel1: TMenuItem;
65      chkAltidPrintLabel: TCheckBox;      chkAltidPrintLabel: TCheckBox;
# Line 147  type Line 148  type
148    procedure UploadButton01Click(Sender: TObject);    procedure UploadButton01Click(Sender: TObject);
149    procedure DownloadButton03Click(Sender: TObject);    procedure DownloadButton03Click(Sender: TObject);
150    procedure Pakkeshoplevering1Click(Sender: TObject);    procedure Pakkeshoplevering1Click(Sender: TObject);
151    procedure PakkeshopNulstilClick(Sender: TObject);    procedure btnNulstilClick(Sender: TObject);
152    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);    procedure Returpakkerfrapakkeshop1Click(Sender: TObject);
153    procedure InitNatxpresslevering();    procedure InitNatxpresslevering();
154    procedure InitReturFraDao();    procedure InitReturFraDao();
# Line 162  type Line 163  type
163    procedure EKLoverforselClick(Sender: TObject);    procedure EKLoverforselClick(Sender: TObject);
164    procedure Uploadlogfil1Click(Sender: TObject);    procedure Uploadlogfil1Click(Sender: TObject);
165    procedure Manual1Click(Sender: TObject);    procedure Manual1Click(Sender: TObject);
   procedure CheckPrintQue(tjektype : string);  
166    procedure Timer1Timer(Sender: TObject);    procedure Timer1Timer(Sender: TObject);
167    procedure Scanogstjekkoden1Click(Sender: TObject);    procedure Scanogstjekkoden1Click(Sender: TObject);
168    procedure chkScanTjekkodeClick(Sender: TObject);    procedure chkScanTjekkodeClick(Sender: TObject);
# Line 182  type Line 182  type
182    procedure SletLogfiler(Path: string; FileList: TStrings);    procedure SletLogfiler(Path: string; FileList: TStrings);
183    procedure Manualgenerel1Click(Sender: TObject);    procedure Manualgenerel1Click(Sender: TObject);
184    procedure TjekkerUrls();    procedure TjekkerUrls();
185  // 20150310: start  
186    procedure RoundCornerOf(Control: TWinControl);    procedure RoundCornerOf(Control: TWinControl);
187      procedure menuIndleveringClick(Sender: TObject);    procedure menuIndleveringClick(Sender: TObject);
188    
189      procedure PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
190      procedure CheckPrintQue(tjektype : string);
191    
 // 20150310: slut  
192    
193    private    private
194      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder      SpecialVersionSted, SpecialVersionScanningtype: String;    // Bruges når programmet skal bruges udenfor DAO scanningssteder
# Line 195  type Line 196  type
196      SkrivLog : String;      SkrivLog : String;
197      Sted : String;      Sted : String;
198      StedNavn : String;      StedNavn : String;
199      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlEKLoverforsel : String;      Url, UrlNormal, UrlReturDAO, UrlReturBoghandler, UrlBudlevering, UrlManglendeScanninger, UrlPakkeshoplevering, UrlReturPakkeshop, UrlPakkeshopManglendeScanninger, UrlPakkeshopManglendeReturScanninger,UrlIndleveringsPakke,UrlEKLoverforsel : String;
200  // 29150330: start  // 29150330: start
201      UrlEKLoverforselPakkeshop : String;      UrlEKLoverforselPakkeshop : String;
202  // 20150330: slut  // 20150330: slut
# Line 250  type Line 251  type
251      BoghandlerStregkode, BoghandlerTjekkode : String;      BoghandlerStregkode, BoghandlerTjekkode : String;
252      TjekUrls : String;      TjekUrls : String;
253    
254        PakkeshopLabel: TPakkeshopLabel;
255    
256            function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }            function CheckSumModulo10(const data:string):string;          { used for EAN 8/13 }
257    
258      procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');      procedure PrintLabel(RuteNummer, Kommentar, BoghandlerNavn, Koreliste, SmsKode, DBKbane, Leveringssted : String; var PrintNyLabel : Boolean; BoghandlerNummer : String = '');
# Line 548  begin Line 551  begin
551    PrinterstatusStaticText1.Caption := '';    PrinterstatusStaticText1.Caption := '';
552    PrinterstatusStaticText1.Color := MainForm.Color;    PrinterstatusStaticText1.Color := MainForm.Color;
553    
554    PakkeshopNulstil.BringToFront;    btnNulstil.BringToFront;
555    
556    RoundCornerOf(PanelManglendePakker1);    RoundCornerOf(PanelManglendePakker1);
557    RoundCornerOf(PanelManglendePakker2);    RoundCornerOf(PanelManglendePakker2);
# Line 590  begin Line 593  begin
593      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');      UrlReturPakkeshop := ReadString('Settings','UrlReturPakkeshop','http://omdeling.info/webservices/pakkeshop/returpakkekontrol.php?sted=%s&stregkode=%s');
594      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');      UrlPakkeshopManglendeScanninger := ReadString('Settings','UrlPakkeshopManglendeScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendescanninger.php?sted=%s');
595      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');      UrlPakkeshopManglendeReturScanninger := ReadString('Settings','UrlPakkeshopManglendeReturScanninger','http://omdeling.info/webservices/pakkeshop/pakkemanglendereturscanninger.php?sted=%s');
596    
597        UrlIndleveringsPakke := ReadString('Settings','UrlIndleveringsPakke','http://omdeling.info/webservices/pakkeshop/PakkekontrolIndleveringskode.php?sted=%s&pakkekode=%s');
598    
599    
600      LabelType := ReadInteger('Settings','LabelType',1);      LabelType := ReadInteger('Settings','LabelType',1);
601      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');      FarveNormal := ReadString('Settings','FarveNormal','D8D8D8');
602      TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');      TitelNormal := ReadString('Settings','TitelNormal','Modtagelse af DAO NAT X-PRESS pakker');
# Line 836  begin Line 843  begin
843        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
844        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
845        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
846          PanelValg7.Enabled := false;
847          PanelValg7.Font.Color := clInactiveCaption;
848    
849       // her skal vi også disable de menupunkter DBK ikke kan bruge       // her skal vi også disable de menupunkter DBK ikke kan bruge
850        ReturpakkerfraDAO1.Enabled := false;        ReturpakkerfraDAO1.Enabled := false;
851        Returpakkerfraboghandler1.Enabled := false;        Returpakkerfraboghandler1.Enabled := false;
# Line 872  begin Line 882  begin
882        PanelValg5.Font.Color := clInactiveCaption;        PanelValg5.Font.Color := clInactiveCaption;
883        PanelValg6.Enabled := false;        PanelValg6.Enabled := false;
884        PanelValg6.Font.Color := clInactiveCaption;        PanelValg6.Font.Color := clInactiveCaption;
885          PanelValg7.Enabled := false;
886          PanelValg7.Font.Color := clInactiveCaption;
887       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge       // her skal vi også disable de menupunkter Bladhusene (01, 02, 03 og 04) ikke kan bruge
888    
889        Automatiskvalg1.Enabled := false;        Automatiskvalg1.Enabled := false;
# Line 967  begin Line 979  begin
979             RutenummerST.Caption := '';             RutenummerST.Caption := '';
980             BoghandlerNavnST.Caption := 'Fejl i urls';             BoghandlerNavnST.Caption := 'Fejl i urls';
981             KommentarST.Caption := 'Se log vinduet';             KommentarST.Caption := 'Se log vinduet';
982             PakkeshopNulstil.Visible := true;             btnNulstil.Visible := true;
983             exit;             exit;
984          end;          end;
985      end      end
# Line 1216  begin Line 1228  begin
1228    
1229      if StregKode = 'Nulstil' then      if StregKode = 'Nulstil' then
1230      begin      begin
1231         PakkeshopNulstil.Click();         btnNulstil.Click();
1232         exit;         exit;
1233      end;      end;
1234    
1235      if PakkeshopNulstil.Visible then      if btnNulstil.Visible then
1236      begin      begin
1237        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );        VisAlarmSkaerm( 'HUSK at klikke Nulstil før ny scanning...' );
1238    
# Line 1545  begin Line 1557  begin
1557             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1558             BoghandlerTjekkode := '';             BoghandlerTjekkode := '';
1559             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1560             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1561             Stregkode := '';             Stregkode := '';
1562             InitScreen();             InitScreen();
1563        end        end
# Line 1557  begin Line 1569  begin
1569             BoghandlerStregkode := Stregkode;             BoghandlerStregkode := Stregkode;
1570             BoghandlerTjekkode := '-1';             BoghandlerTjekkode := '-1';
1571             PakkeshopText1.Caption := 'Stregkode';             PakkeshopText1.Caption := 'Stregkode';
1572             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1573             Stregkode := '';             Stregkode := '';
1574             InitScreen();             InitScreen();
1575        end        end
# Line 1591  begin Line 1603  begin
1603                MainForm.Color := HexToTColor(FarvePakkeshoplevering);                MainForm.Color := HexToTColor(FarvePakkeshoplevering);
1604             if (Pakkernormal1.Checked) then             if (Pakkernormal1.Checked) then
1605                MainForm.Color := HexToTColor(FarveNormal);                MainForm.Color := HexToTColor(FarveNormal);
1606             PakkeshopNulstil.Visible := false;             btnNulstil.Visible := false;
1607           end           end
1608          else          else
1609           begin           begin
# Line 1644  begin Line 1656  begin
1656              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then              if (pakkeErScannet > 0) or (pakkeForkertSted > 0) or (tjekkodemangler > 0) then
1657              begin              begin
1658                PlaySound(PWideChar(AlarmLyd));                PlaySound(PWideChar(AlarmLyd));
1659                PakkeshopNulstil.Visible := true;                btnNulstil.Visible := true;
1660                MainForm.Color := clRed;                MainForm.Color := clRed;
1661              end;              end;
1662           end;           end;
# Line 1659  begin Line 1671  begin
1671              begin              begin
1672                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1673              end;              end;
1674              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1675            end            end
1676            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then            else if (Returpakkerfradao1.Checked or Returpakkerfraboghandler1.Checked) then
1677            begin            begin
# Line 1672  begin Line 1684  begin
1684              begin              begin
1685                PlaySound(PWideChar(ScannetOkLyd));                PlaySound(PWideChar(ScannetOkLyd));
1686              end;              end;
1687              PakkeshopNulstil.Visible := false;              btnNulstil.Visible := false;
1688            end            end
1689            else if Copy(Kommentar,1,8) = 'OPRETTET' then            else if Copy(Kommentar,1,8) = 'OPRETTET' then
1690            begin            begin
# Line 1685  begin Line 1697  begin
1697            begin            begin
1698              VisAlarmSkaerm('');              VisAlarmSkaerm('');
1699            end;            end;
1700           if not PakkeshopNulstil.Visible then           if not btnNulstil.Visible then
1701            begin            begin
1702    
1703              If (Budlevering1.Checked) then              If (Budlevering1.Checked) then
# Line 2065  begin Line 2077  begin
2077    begin    begin
2078      pakkestorrelse := 'Lille';      pakkestorrelse := 'Lille';
2079    end;    end;
2080    
2081    
2082    if Pakkernormal1.Checked then    if Pakkernormal1.Checked then
2083    begin    begin
2084       if (BoghandlerTjekkode = '') then       if (BoghandlerTjekkode = '') then
# Line 2093  begin Line 2107  begin
2107    begin    begin
2108       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);       URLStr := Format(UrlReturPakkeshop,[Sted, PakkeNr]);
2109    end    end
2110      else if menuIndlevering.Checked then
2111      begin
2112        URLStr := Format(UrlIndleveringsPakke,[Sted, PakkeNr]);
2113      end
2114    else    else
2115    begin    begin
2116      exit;      exit;
# Line 2139  begin Line 2157  begin
2157          begin          begin
2158            PrintNyLabel := True;            PrintNyLabel := True;
2159          end;          end;
 // 20150310: start  
2160        end;        end;
 // 20150310: slut  
2161       end       end
2162        else if menuIndlevering.Checked then
2163        begin
2164    
2165    
2166    
2167    
2168         Kommentar := XMLDocument1.ChildNodes.FindNode('PakkeKontrol').ChildNodes.FindNode('Stregkodematch').Text;
2169         if (Kommentar = 'Ok') then
2170         begin
2171           PrintNyLabel := True; //Indleveringskode vil ALTID udskrive label
2172           PakkeshopLabel := TPakkeshopLabel.Create( XMLDocument1 ); //Opret struct og parse xml doc
2173    
2174           PrintPakkeshopLabel( PakkeshopLabel );
2175    
2176         end;
2177    
2178    
2179        end
2180      else      else
2181       begin       begin
2182        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;        RuteNummer := XMLDocument1.ChildNodes.FindNode('BogpakkeKontrol').ChildNodes.FindNode('TurId').Text;
# Line 2175  begin Line 2209  begin
2209          PrintNyLabel := True;          PrintNyLabel := True;
2210        end;        end;
2211      end;      end;
2212    
2213    
2214      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then      if (BladhusSted > 00) and (BladhusSted < Length(BladhusStedNavn)) then
2215      begin      begin
2216        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then        if (Leveringssted <> BladhusStedKode[BladhusSted]) and (BladhusStedKode[BladhusSted] <> 'DBK') then
# Line 2334  begin Line 2370  begin
2370    
2371          PlaySound(PWideChar(AlarmLyd));          PlaySound(PWideChar(AlarmLyd));
2372          MainForm.Color := clRed;          MainForm.Color := clRed;
2373          PakkeshopNulstil.Visible := true;          btnNulstil.Visible := true;
2374    
2375       end       end
2376       else       else
# Line 2361  begin Line 2397  begin
2397            begin            begin
2398              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2399              MainForm.Color := clRed;              MainForm.Color := clRed;
2400              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2401            end;            end;
2402    
2403         end;         end;
# Line 2387  begin Line 2423  begin
2423            begin            begin
2424              PlaySound(PWideChar(AlarmLyd));              PlaySound(PWideChar(AlarmLyd));
2425              MainForm.Color := clRed;              MainForm.Color := clRed;
2426              PakkeshopNulstil.Visible := true;              btnNulstil.Visible := true;
2427            end;            end;
2428    
2429         end;         end;
# Line 3073  begin Line 3109  begin
3109    end;    end;
3110  end;  end;
3111    
3112  procedure TMainForm.PakkeshopNulstilClick(Sender: TObject);  procedure TMainForm.btnNulstilClick(Sender: TObject);
3113  begin  begin
3114    PakkeshopStregkode := '';    PakkeshopStregkode := '';
3115    PakkeshopTjekkode := '';    PakkeshopTjekkode := '';
3116    PakkeshopNulstil.Visible := false;    btnNulstil.Visible := false;
3117    PakkeshopText1.Caption := 'Stregkode';    PakkeshopText1.Caption := 'Stregkode';
3118    BoghandlerStregkode := '';    BoghandlerStregkode := '';
3119    BoghandlerTjekkode := '';    BoghandlerTjekkode := '';
# Line 3227  begin Line 3263  begin
3263      // Her kommer en alarm og rød skærm      // Her kommer en alarm og rød skærm
3264      PlaySound(PWideChar(AlarmLyd));      PlaySound(PWideChar(AlarmLyd));
3265      MainForm.Color := clRed;      MainForm.Color := clRed;
3266      PakkeshopNulstil.Visible := true;      btnNulstil.Visible := true;
3267    end    end
3268    else    else
3269    begin    begin
# Line 3507  end; Line 3543  end;
3543  procedure TMainForm.InitNatxpresslevering();  procedure TMainForm.InitNatxpresslevering();
3544  begin  begin
3545        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3546        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3547        Pakkernormal1.Checked := true;        Pakkernormal1.Checked := true;
3548        InitForm(FarveNormal,TitelNormal,UrlNormal);        InitForm(FarveNormal,TitelNormal,UrlNormal);
3549        PanelValg1.Color := clGreen;        PanelValg1.Color := clGreen;
# Line 3540  procedure TMainForm.InitReturFraDao(); Line 3576  procedure TMainForm.InitReturFraDao();
3576  begin  begin
3577        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3578        ReturpakkerfraDAO1.Checked := true;        ReturpakkerfraDAO1.Checked := true;
3579        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3580        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);        InitForm(FarveReturDAO,TitelReturDAO,UrlReturDAO);
3581        PanelValg2.Color := clGreen;        PanelValg2.Color := clGreen;
3582        PanelValg2.Font.Color := clWhite;        PanelValg2.Font.Color := clWhite;
# Line 3567  procedure TMainForm.InitReturFraKunde(); Line 3603  procedure TMainForm.InitReturFraKunde();
3603  begin  begin
3604        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3605        Returpakkerfraboghandler1.Checked := true;        Returpakkerfraboghandler1.Checked := true;
3606        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3607        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);        InitForm(FarveReturBoghandler,TitelReturBoghandler,UrlReturBoghandler);
3608        PanelValg3.Color := clGreen;        PanelValg3.Color := clGreen;
3609        PanelValg3.Font.Color := clWhite;        PanelValg3.Font.Color := clWhite;
# Line 3593  procedure TMainForm.InitDirektelevering( Line 3629  procedure TMainForm.InitDirektelevering(
3629  begin  begin
3630        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3631        Budlevering1.Checked := true;        Budlevering1.Checked := true;
3632        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3633        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);        InitForm(FarveBudlevering,TitelBudlevering,UrlBudlevering);
3634        PanelValg4.Color := clGreen;        PanelValg4.Color := clGreen;
3635        PanelValg4.Font.Color := clWhite;        PanelValg4.Font.Color := clWhite;
# Line 3629  procedure TMainForm.InitPakkeshopleverin Line 3665  procedure TMainForm.InitPakkeshopleverin
3665  begin  begin
3666        AutomatiskTjekkodeStyring1.Enabled := true;        AutomatiskTjekkodeStyring1.Enabled := true;
3667        Pakkeshoplevering1.Checked := true;        Pakkeshoplevering1.Checked := true;
3668        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3669        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);        InitForm(FarvePakkeshoplevering,TitelPakkeshoplevering,UrlPakkeshoplevering);
3670        PanelValg5.Color := clGreen;        PanelValg5.Color := clGreen;
3671        PanelValg5.Font.Color := clWhite;        PanelValg5.Font.Color := clWhite;
# Line 3666  procedure TMainForm.InitReturFraPakkesho Line 3702  procedure TMainForm.InitReturFraPakkesho
3702  begin  begin
3703        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3704        Returpakkerfrapakkeshop1.Checked := true;        Returpakkerfrapakkeshop1.Checked := true;
3705        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3706        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);        InitForm(FarveReturPakkeshop,TitelReturPakkeshop,UrlReturPakkeshop);
3707        PanelValg6.Color := clGreen;        PanelValg6.Color := clGreen;
3708        PanelValg6.Font.Color := clWhite;        PanelValg6.Font.Color := clWhite;
# Line 3709  begin Line 3745  begin
3745        menuIndlevering.Checked := true;        menuIndlevering.Checked := true;
3746        AutomatiskTjekkodeStyring1.Enabled := false;        AutomatiskTjekkodeStyring1.Enabled := false;
3747    
3748        PakkeshopNulstil.Visible := false;        btnNulstil.Visible := false;
3749        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);        InitForm(FarveIndlevering, TitelIndlevering, UrlReturPakkeshop);
3750        PanelValg7.Color := clGreen;        PanelValg7.Color := clGreen;
3751        PanelValg7.Font.Color := clWhite;        PanelValg7.Font.Color := clWhite;
# Line 3997  begin Line 4033  begin
4033           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';           BoghandlerNavnST.Caption := 'Prøv venligst igen om lidt...';
4034         end;         end;
4035         KommentarST.Caption := Kommentar;         KommentarST.Caption := Kommentar;
4036         PakkeshopNulstil.Visible := true;         btnNulstil.Visible := true;
4037      end;      end;
4038    
4039  end;  end;
# Line 4583  begin Line 4619  begin
4619    until S2 = '';    until S2 = '';
4620  end;  end;
4621    
4622    // ToDo: Færdiggør implementationen
4623    procedure TMainForm.PrintPakkeshopLabel( PakkeshopLabel : TPakkeshopLabel);
4624    begin
4625        with Printer do
4626        begin
4627          BeginDoc();
4628          Canvas.Font.Size := FontSizeRuteLille;
4629    
4630          Canvas.Font.Size := FontSizeKorelisteLille;
4631          Canvas.TextOut(XPosKoreliste,YPosKoreliste, PakkeshopLabel.Navn);
4632    
4633    
4634          EndDoc();
4635        end;
4636    
4637    end;
4638    
4639    
4640  procedure TMainForm.IndlesManglendeScanninger();  procedure TMainForm.IndlesManglendeScanninger();
4641  var  var
4642    WebSvar : String;    WebSvar : String;
# Line 5212  begin Line 5266  begin
5266    
5267    RuteNummerST.Caption := '';    RuteNummerST.Caption := '';
5268    BoghandlerNavnST.Caption := '';    BoghandlerNavnST.Caption := '';
5269    PakkeshopNulstil.Visible := true;    btnNulstil.Visible := true;
5270    
5271    if (strMessage <> '') then    if (strMessage <> '') then
5272    begin    begin
# Line 5323  begin Line 5377  begin
5377    AReg.Free;    AReg.Free;
5378  end;  end;
5379    
5380    
5381    function TMainForm.CheckUrl(url:string):boolean;
5382    var
5383      hSession, hfile, hRequest: hInternet;
5384      dwindex,dwcodelen :dword;
5385      dwcode:array[1..20] of char;
5386      res : pchar;
5387    begin
5388      if pos('http://',lowercase(url))=0 then
5389        url := 'http://'+url;
5390      Result := false;
5391      hSession := InternetOpen('InetURL:/1.0',
5392                                INTERNET_OPEN_TYPE_PRECONFIG,
5393                                nil,
5394                                nil,
5395                                0);
5396      if assigned(hsession) then
5397      begin
5398        hfile := InternetOpenUrl(hsession,
5399                                 pchar(url),
5400                                 nil,
5401                                 0,
5402                                 INTERNET_FLAG_RELOAD,
5403                                 0);
5404        dwIndex := 0;
5405        dwCodeLen := 10;
5406        HttpQueryInfo(hfile,
5407                      HTTP_QUERY_STATUS_CODE,
5408                      @dwcode,
5409                      dwcodeLen,
5410                      dwIndex);
5411        res := pchar(@dwcode);
5412        result:= (res ='200') or (res ='302');
5413        if assigned(hfile) then
5414          InternetCloseHandle(hfile);
5415        InternetCloseHandle(hsession);
5416      end;
5417    
5418    end;
5419    
5420    
5421    procedure TMainForm.RoundCornerOf(Control: TWinControl);
5422    var
5423       R: TRect;
5424       Rgn: HRGN;
5425    begin
5426       with Control do
5427       begin
5428         R := ClientRect;
5429    //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;
5430         rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;
5431    //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;
5432         Perform(EM_GETRECT, 0, lParam(@r)) ;
5433         InflateRect(r, - 4, - 4) ;
5434         Perform(EM_SETRECTNP, 0, lParam(@r)) ;
5435         SetWindowRgn(Handle, rgn, True) ;
5436         Invalidate;
5437       end;
5438    end;
5439    
5440  procedure TMainForm.CheckPrintQue(tjektype : string);  procedure TMainForm.CheckPrintQue(tjektype : string);
5441  type  type
5442    TJobs  = array [0..1000] of JOB_INFO_1;    TJobs  = array [0..1000] of JOB_INFO_1;
# Line 5426  begin Line 5540  begin
5540    end;    end;
5541  end;  end;
5542    
 function TMainForm.CheckUrl(url:string):boolean;  
 var  
   hSession, hfile, hRequest: hInternet;  
   dwindex,dwcodelen :dword;  
   dwcode:array[1..20] of char;  
   res : pchar;  
 begin  
   if pos('http://',lowercase(url))=0 then  
     url := 'http://'+url;  
   Result := false;  
   hSession := InternetOpen('InetURL:/1.0',  
                             INTERNET_OPEN_TYPE_PRECONFIG,  
                             nil,  
                             nil,  
                             0);  
   if assigned(hsession) then  
   begin  
     hfile := InternetOpenUrl(hsession,  
                              pchar(url),  
                              nil,  
                              0,  
                              INTERNET_FLAG_RELOAD,  
                              0);  
     dwIndex := 0;  
     dwCodeLen := 10;  
     HttpQueryInfo(hfile,  
                   HTTP_QUERY_STATUS_CODE,  
                   @dwcode,  
                   dwcodeLen,  
                   dwIndex);  
     res := pchar(@dwcode);  
     result:= (res ='200') or (res ='302');  
     if assigned(hfile) then  
       InternetCloseHandle(hfile);  
     InternetCloseHandle(hsession);  
   end;  
   
 end;  
   
 // 20150310: start  
 procedure TMainForm.RoundCornerOf(Control: TWinControl);  
 var  
    R: TRect;  
    Rgn: HRGN;  
 begin  
    with Control do  
    begin  
      R := ClientRect;  
 //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20) ;  
      rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 25, 25) ;  
 //     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 30, 30) ;  
      Perform(EM_GETRECT, 0, lParam(@r)) ;  
      InflateRect(r, - 4, - 4) ;  
      Perform(EM_SETRECTNP, 0, lParam(@r)) ;  
      SetWindowRgn(Handle, rgn, True) ;  
      Invalidate;  
    end;  
 end;  
 // 20150310: slut  
5543    
5544  end.  end.
5545    
Legend:
Removed from v.2667  
changed lines
  Added in v.2668
  ViewVC Help
Powered by ViewVC 1.1.20