CB_IMGPSScan.cab ver2.0.1.19 匯入影像有條碼就轉正

doom4ster

2017-07-05 b99a22f6e7e27e01a22a4db9107108972d20597b

 CB_IMGPSScanImp.pas

@@ -2593,12 +2593,14 @@
        ShowText :=_Msg('檔案加入中,請稍候('+inttostr(i)+'/'+inttostr(P)+')');
        DataLoading(True,True);
        ISB.LoadFromFile(FName,i);
//ISB.SaveToFile('C:\OCX\aaaaaa'+IntToStr(i)+'.tif');
        DeskewImg(ISB.Graphic);
//ISB.SaveToFile('C:\OCX\bbbbbb'+IntToStr(i)+'.tif');
        if (TreeView1.Selected = NewTreeNode) or (TreeView1.Selected = MyTreeNode1) then
        begin
          SaveFilename := '';
          MpsGetBarcode(ISB.Graphic,MpsBarcodeinf);
          for n := 1 to MpsBarcodeinf.Count-1  do
          for n := 1 to MpsBarcodeinf.Count  do
          begin
            if MpsBarcodeinf.r180[n] <> 0 then  //依條碼角度轉影像
            begin
@@ -2663,6 +2665,17 @@
            SaveFilename:= Add_Zoo(ContextList.Count+1,3)+ext
          Else
            SaveFilename := Add_Zoo(ContextList.Count+1,3)+'_'+SaveFilename+ext;

          for n := 1 to MpsBarcodeinf.Count  do
          begin
            if MpsBarcodeinf.r180[n] <> 0 then  //依條碼角度轉影像
            begin
              Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]);
              MpsGetBarcode(ISB.Graphic,MpsBarcodeinf);
              Break;
            end;
          end;
          //Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]);  //20170705 加入有條碼就轉正
          ISB.SaveToFile(SavePath+SaveFilename);

          SetContextList('A',-1,CaseID,DocDir,SaveFilename);
@@ -2691,6 +2704,17 @@
            SaveFilename := Add_Zoo(ContextList.Count+1,3)+'_'+NowFormCode+ext
          else
            SaveFilename := Add_Zoo(ContextList.Count+1,3)+ext;

          for n := 1 to MpsBarcodeinf.Count  do
          begin
            if MpsBarcodeinf.r180[n] <> 0 then  //依條碼角度轉影像
            begin
              Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]);
              MpsGetBarcode(ISB.Graphic,MpsBarcodeinf);
              Break;
            end;
          end;
          //Rotate(ISB.Graphic,MpsBarcodeinf.r180[n]); //20170705 加入有條碼就轉正
          ISB.SaveToFile(SavePath+SaveFilename);
          ContextList.Add(SaveFilename);
          ContextList.SaveToFile(SavePath+'Context.dat');
@@ -13593,7 +13617,7 @@
      ShowText := CaseID+_Msg('資料上傳中,請稍候');
      DataLoading(True,True);
//ShowMessage('NNNNN');
ShowMessage('退出');DataLoading(False,False);Exit;
//ShowMessage('退出');DataLoading(False,False);Exit;
      If Not TransCaseID(TransPath,CaseID,True) Then  //傳送案件
      begin
        DataLoading(False,False);