拿掉授權檢查

doom4ster

2017-02-18 9813709508da931f2e0cbd7180c647fc0d9d99f5

拿掉授權檢查

先拿調語言檔

 CB_IMGPSScan.dproj

@@ -68,14 +68,14 @@
            <BuildConfiguration Include="Base">
                <Key>Base</Key>
            </BuildConfiguration>
            <BuildConfiguration Include="Debug">
                <Key>Cfg_2</Key>
                <CfgParent>Base</CfgParent>
            </BuildConfiguration>
            <BuildConfiguration Include="Release">
                <Key>Cfg_1</Key>
                <CfgParent>Base</CfgParent>
            </BuildConfiguration>
            <BuildConfiguration Include="Debug">
                <Key>Cfg_2</Key>
                <CfgParent>Base</CfgParent>
            </BuildConfiguration>
        </ItemGroup>
        <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
        <ProjectExtensions>

 CB_IMGPSScan.identcache

Binary files differ

 CB_IMGPSScan.ocx

Binary files differ

 CB_IMGPSScan.res

Binary files differ

 CB_IMGPSScanImp.dcu

Binary files differ

 CB_IMGPSScanImp.dfm

@@ -56,7 +56,6 @@
      Width = 42
      Height = 50
      Align = alLeft
      DoubleBuffered = True
      Glyph.Data = {
        360C0000424D360C000000000000360000002800000020000000200000000100
        180000000000000C0000C40E0000C40E00000000000000000000808000808000
@@ -156,7 +155,6 @@
        808000808000808000808000808000808000808000808000908FFF5F60FF8080
        0080800080800080800080800080800080800080800080800080800080800080
        8000808000808000808000808000808000808000808000808000}
      ParentDoubleBuffered = False
      TabOrder = 0
      TabStop = False
      OnClick = TransBtnClick
@@ -272,7 +270,6 @@
        Top = 1
        Width = 41
        Height = 49
        DoubleBuffered = True
        Glyph.Data = {
          360C0000424D360C000000000000360000002800000020000000200000000100
          180000000000000C0000C40E0000C40E00000000000000000000808000808000
@@ -372,7 +369,6 @@
          8080008080008080008080008080008080008080008080008080008080008080
          0080800080800080800080800080800080800080800080800080800080800080
          8000808000808000808000808000808000808000808000808000}
        ParentDoubleBuffered = False
        TabOrder = 2
        TabStop = False
        OnClick = OptionBtnClick
@@ -482,7 +478,6 @@
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        ParentDoubleBuffered = False
        TabOrder = 3
        TabStop = False
        OnClick = SelectScanBtnClick
@@ -492,7 +487,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        Glyph.Data = {
          36080000424D3608000000000000360400002800000020000000200000000100
          08000000000000040000C40E0000C40E00000001000000000000000000000000
@@ -560,7 +554,6 @@
          FFFFFFFFFFFFA449FFFFFFFFFFFFFFFFA400FFFFA44902020202A4F7F7F7F7F7
          F7F7F7F7F7F7A4A4A4A4A4A4A4A4A4A40700F7F7A40202020202020202020202
          0202020202020202020202020202020202020202020202020202}
        ParentDoubleBuffered = False
        TabOrder = 4
        TabStop = False
        OnClick = NextPageBtnClick
@@ -570,7 +563,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        Glyph.Data = {
          36080000424D3608000000000000360400002800000020000000200000000100
          08000000000000040000C40E0000C40E00000001000000000000000000000000
@@ -638,7 +630,6 @@
          FFFFFFFFFFFFA449FFFFFFFFFFFFFFFFA400FFFFA44902020202A4F7F7F7F7F7
          F7F7F7F7F7F7A4A4A4A4A4A4A4A4A4A40700F7F7A40202020202020202020202
          0202020202020202020202020202020202020202020202020202}
        ParentDoubleBuffered = False
        TabOrder = 5
        TabStop = False
        OnClick = PrePageBtnClick
@@ -648,8 +639,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 6
        TabStop = False
        OnClick = FC6Click
@@ -659,8 +648,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 7
        TabStop = False
        OnClick = FC5Click
@@ -670,8 +657,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 8
        TabStop = False
        OnClick = FC4Click
@@ -681,8 +666,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 9
        TabStop = False
        OnClick = FC3Click
@@ -692,8 +675,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 10
        TabStop = False
        OnClick = FC2Click
@@ -703,8 +684,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 11
        TabStop = False
        OnClick = FC1Click
@@ -714,8 +693,6 @@
        Top = 1
        Width = 42
        Height = 49
        DoubleBuffered = True
        ParentDoubleBuffered = False
        TabOrder = 12
        TabStop = False
        OnClick = FC0Click
@@ -749,7 +726,6 @@
        Top = 1
        Width = 42
        Height = 50
        DoubleBuffered = True
        Glyph.Data = {
          360C0000424D360C000000000000360000002800000020000000200000000100
          180000000000000C0000C40E0000C40E00000000000000000000808000808000
@@ -849,7 +825,6 @@
          8080008080008080008080008080008080008080008080008080008080008080
          0080800080800080800080800080800080800080800080800080800080800080
          8000808000808000808000808000808000808000808000808000}
        ParentDoubleBuffered = False
        TabOrder = 0
        TabStop = False
        OnClick = NewScanBtnClick
@@ -859,7 +834,6 @@
        Top = 0
        Width = 42
        Height = 50
        DoubleBuffered = True
        Glyph.Data = {
          360C0000424D360C000000000000360000002800000020000000200000000100
          180000000000000C000000000000000000000000000000000000808000808000
@@ -959,7 +933,6 @@
          8080008080008080008080008080008080008080008080008080008080008080
          0080800080800080800080800080800080800080800080800080800080800080
          8000808000808000808000808000808000808000808000808000}
        ParentDoubleBuffered = False
        TabOrder = 1
        TabStop = False
        Visible = False
@@ -1122,7 +1095,6 @@
            Top = 9
            Width = 27
            Height = 28
            DoubleBuffered = True
            Glyph.Data = {
              06020000424D0602000000000000760000002800000028000000140000000100
              0400000000009001000000000000000000001000000000000000000000000000
@@ -1142,7 +1114,6 @@
              333333333EEEE333333333333333333333333333333333333333333333333333
              33333333333333333333}
            NumGlyphs = 2
            ParentDoubleBuffered = False
            TabOrder = 3
            TabStop = False
            Visible = False
@@ -1153,7 +1124,6 @@
            Top = 9
            Width = 27
            Height = 28
            DoubleBuffered = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
@@ -1168,7 +1138,6 @@
              555577F7F7F7F7F75F5550707070700B055557F7F7F7F7757FF5507070707050
              9055575757575757775505050505055505557575757575557555}
            NumGlyphs = 2
            ParentDoubleBuffered = False
            TabOrder = 4
            TabStop = False
            Visible = False
@@ -1179,7 +1148,6 @@
            Top = 19
            Width = 51
            Height = 25
            DoubleBuffered = True
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              0400000000008000000000000000000000001000000000000000000000000000
@@ -1189,7 +1157,6 @@
              00080F888700078000880F8800FFF00008880F807FFFF07088880F70E000F080
              78880F0EFEFEF08808880F0F0000F0880888000EFEFFF0880888887000000080
              7888888008888870888888880088800888888888870007888888}
            ParentDoubleBuffered = False
            TabOrder = 5
            TabStop = False
            Visible = False
@@ -1254,7 +1221,6 @@
            Top = 5
            Width = 75
            Height = 25
            DoubleBuffered = True
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000120B0000120B00001000000000000000000000000000
@@ -1269,7 +1235,6 @@
              FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
              3333333773FFFF77333333333FBFBF3333333333377777333333}
            NumGlyphs = 2
            ParentDoubleBuffered = False
            TabOrder = 0
            TabStop = False
            Visible = False
@@ -9341,6 +9306,7 @@
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 136
    Top = 249
    object PM101: TMenuItem

 CB_IMGPSScanImp.pas

@@ -3096,6 +3096,7 @@
  begin
    if (FMode = 'NSCAN') then
    begin
//ShowMessage('AAAA');
      PM101.Visible := True;   //§R°£
      PM103.Visible := True;   //±½ºË¾¹¥[¤J¼v¹³
      PM104.Visible := True;   //ÀÉ®×¥[¤J¼v¹³
@@ -3399,6 +3400,8 @@

procedure TCB_IMGPSScanX.StatusBar1DblClick(Sender: TObject);
begin
  Button3.Visible := not Button3.Visible;
  Button4.Visible := not Button4.Visible;
  if (GetKeyState(VK_CONTROL) < 0) Then
  begin
    ExportBt.Visible := not ExportBt.Visible;
@@ -10821,8 +10824,8 @@
Function TCB_IMGPSScanX.DownLanguage:Boolean;  //¤U¸ü¦h°ê»y¨¥ÀÉ
begin
  Result := True;     // http://192.168.0.101:8080/fbnp/servlet/CWC01?act=getservertime

  If not ProcessServlet(HTTPSClient,FURL+'Language.Lng','',FReWrite,Memo1,False) Then
  //dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite.Text,Memo1,False,DownImgStatus)
  If not dnFile(HTTPSClient,FUrl+'Language.Lng','','',LngPath+'Language.Lng',FReWrite,Memo1,False,'') Then
  begin
    HttpErrStr := _Msg('¿ù»~¥N½X:')+inttostr(HttpError.HttpErrorCode)+','+HttpError.HttpReason;
    Result := False;
@@ -12793,26 +12796,29 @@
  Del_Sub_NothingPath(ImagePath);  //²M±¼®×¥ó¥Ø¿ý¬OªÅªº
  ShowText := _Msg('¸ê®Æ¸ü¤J¤¤,½Ðµy­Ô');
  DataLoading(True,True);
  if not CheckAvailable Then   //Àˬd±ÂÅv
  begin
    DataLoading(False,False);
    Panel1.Enabled := False;
    Panel2.Enabled := False;
    Exit;
  end;
ShowMessage('CheckAvailable');

//  if not CheckAvailable Then   //Àˬd±ÂÅv  20170218 »¡¤£¥Î¤F
//  begin
//    DataLoading(False,False);
//    Panel1.Enabled := False;
//    Panel2.Enabled := False;
//    Exit;
//  end;


//ShowMessage('CheckAvailable');
  ShowText := _Msg('¸ê®Æ¸ü¤J¤¤,½Ðµy­Ô');
  DataLoading(True,True);

   ////¤U¸ü»y¨¥ÀÉ/////
  If not DownLanguage Then
  begin
    Showmessage('Language File error!!'+HttpErrStr);
    DataLoading(False,False);
    Exit;
  end;
   ////¤U¸ü»y¨¥ÀÉ/////  20170218 ¥ý®³½Õ¥H«K´ú¸Õ
//  If not DownLanguage Then
//  begin
//    Showmessage('Language File error!!'+HttpErrStr);
//    DataLoading(False,False);
//    Exit;
//  end;

  InitialLanguage(Self);  //¸ü¤J¦h°ê»y¨¥
  //InitialLanguage(Self);  //¸ü¤J¦h°ê»y¨¥
  ////¤U¸ü»y¨¥ÀÉ/////
  if (FMode = 'RSCAN') or (FMode = 'ESCAN') or (FMode = 'FSCAN') then //­«±½¥ó¤Î²§°Ê¥ó­n¥u¯à±½«ü©w½s¸¹ªº¥ó
  begin