From 9813709508da931f2e0cbd7180c647fc0d9d99f5 Mon Sep 17 00:00:00 2001
From: doom4ster <doom4ster@gmail.com>
Date: 星期六, 18 二月 2017 15:38:26 +0800
Subject: [PATCH] 拿掉授權檢查
---
CB_IMGPSScanImp.pas | 42 ++++++++++++++++++++++++------------------
1 files changed, 24 insertions(+), 18 deletions(-)
diff --git a/CB_IMGPSScanImp.pas b/CB_IMGPSScanImp.pas
index dec6c88..78c425b 100644
--- a/CB_IMGPSScanImp.pas
+++ b/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
--
Gitblit v1.8.0