Ver 2,0,1,78

Hong-Dell\Hong

2024-03-14 f577443b19a16ee59a8ac5cc8f4745c09108d3e2

 OldCaseInfo.pas

@@ -6,7 +6,7 @@
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CheckLst, Buttons, ComCtrls,IISUnit,IIS_File2Web,IIS_ImageProcess,
  HTTPApp, SBWinCertStorage, SBX509, SBCustomCertStorage, SBSimpleSSL,
  SBHTTPSClient, EnImgScr,inifiles;
  SBHTTPSClient, EnImgScr,inifiles, SBSocket;

Const
  ISBName = 'PreViewISB';
@@ -15,21 +15,20 @@
  TOldCaseInfoForm = class(TForm)
    Notebook1: TNotebook;
    Panel2: TPanel;
    ListView1: TListView;
    OldCaseLV: TListView;
    Panel1: TPanel;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ImportBt: TBitBtn;
    ExitBt: TBitBtn;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    CaseListGB: TGroupBox;
    CheckListBox1: TCheckListBox;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Splitter1: TSplitter;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    HTTPSClient: TElHTTPSClient;
    LoadBt: TBitBtn;
    OldExitBt: TBitBtn;
    ElMemoryCertStorage: TElMemoryCertStorage;
    ElWinCertStorage: TElWinCertStorage;
    Memo1: TMemo;
@@ -38,10 +37,11 @@
    ISB1: TImageScrollBox;
    ScrollBox1: TScrollBox;
    Edit1: TEdit;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    HTTPSClient: TElHTTPSClient;
    procedure OldExitBtClick(Sender: TObject);
    procedure ImportBtClick(Sender: TObject);
    procedure LoadBtClick(Sender: TObject);
    procedure ExitBtClick(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure HTTPSClientCertificateValidate(Sender: TObject;
      X509Certificate: TElX509Certificate; var Validate: Boolean);
@@ -49,6 +49,8 @@
    procedure CheckListBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure HTTPSClientRedirection(Sender: TObject; const OldURL: string;
      var NewURL: string; var AllowRedirection: Boolean);
  private
    { Private declarations }
    OldCaseID:String;
@@ -176,7 +178,7 @@
  iDocNo,iDocName,iDocDir :String;
  iDocPage : Integer;
begin
  GroupBox1.Caption :=Format('½s¸¹%s¥i¤Þ¥Î¤å¥ó',[UseCaseID]);
  CaseListGB.Caption :=Format(_Msg('½s¸¹%s¥i¤Þ¥Î¤å¥ó'),[UseCaseID]);
  CheckListBox1.Items.Clear;
  DocDirList := TStringlist.Create;
  try
@@ -328,7 +330,7 @@
          ISB.AntiAliased := False;

        ISB.LoadFromFile(ImageSavePath+CaseID+'\'+UseCaseID+'\'+FileList.Strings[i],1);
        DpiResize(ISB.Graphic,36);
        DpiResize(ISB.Graphic,36,False);
      end;
    end;

@@ -399,7 +401,7 @@
          FileList.SaveToFile(iPath+'Context.dat',Tencoding.UTF8);
          DocDirList.Strings[n] := CDocNo;
          DocDirList.SaveToFile(iPath+'DocDir.dat',Tencoding.UTF8);
          FormCode_NameList.Strings[n] := CFormID+'_±ÂÅvÂà±b¬ù©w®Ñ';
          FormCode_NameList.Strings[n] := CFormID+'_'+_Msg('±ÂÅvÂà±b¬ù©w®Ñ');
          FormCode_NameList.SaveToFile(iPath+'FormCode_Name.dat',Tencoding.UTF8);
        end;
      end;
@@ -410,7 +412,7 @@
        //MoveFile(PWideChar(iPath),PWideChar(iiPath));
        DocNoList.Strings[i] := StringReplace(DocNoList.Strings[i],iDocNo,CDocNo,[rfReplaceAll]);
        DocNoList.SaveToFile(ImageSavePath+CaseID+'\'+UseCaseID+'\CaseDocNo.dat',Tencoding.UTF8);
        DocNo_NameList.Strings[i]:= CDocDir+'_±ÂÅvÂà±b¬ù©w®Ñ';
        DocNo_NameList.Strings[i]:= CDocDir+'_'+_Msg('±ÂÅvÂà±b¬ù©w®Ñ');
        DocNo_NameList.SaveToFile(ImageSavePath+CaseID+'\'+UseCaseID+'\DocNo_Name.dat',Tencoding.UTF8);
        //SetRecordEditedDocDir('A',CaseID,CDocNo);
      end;
@@ -711,6 +713,12 @@
  Validate := True;
end;

procedure TOldCaseInfoForm.HTTPSClientRedirection(Sender: TObject;
  const OldURL: string; var NewURL: string; var AllowRedirection: Boolean);
begin
  AllowRedirection := True;
end;

procedure TOldCaseInfoForm.Panel1DblClick(Sender: TObject);
begin
  Memo1.Visible := not Memo1.Visible;
@@ -724,7 +732,7 @@

end;

procedure TOldCaseInfoForm.BitBtn1Click(Sender: TObject);
procedure TOldCaseInfoForm.ImportBtClick(Sender: TObject);
var
  i,v,v1 : Integer;
  DocDir,DocName : String;
@@ -749,35 +757,35 @@
  end;
  if not HaveCase then
  begin
    Showmessage('©|¥¼¿ï¾Ü­n¤Þ¤Jªº¤å¥ó');
    Showmessage(_Msg('©|¥¼¿ï¾Ü­n¤Þ¤Jªº¤å¥ó'));
    Exit;
  end;
  //Showmessage(OldDocDirList.Text);
  ModalResult := MrOk;
end;

procedure TOldCaseInfoForm.BitBtn2Click(Sender: TObject);
procedure TOldCaseInfoForm.ExitBtClick(Sender: TObject);
begin
  Notebook1.ActivePage := 'CaseInfo';
end;

procedure TOldCaseInfoForm.BitBtn3Click(Sender: TObject);
procedure TOldCaseInfoForm.LoadBtClick(Sender: TObject);
var
  i : Integer;
  OldCaseInfoList,Caseinfolist : TStringlist;
  iCaseID,UseBS_No,UseIS_Old : String;
begin
  if ListView1.ItemIndex = -1 then
  if OldCaseLV.ItemIndex = -1 then
  begin
    Showmessage(_msg('©|¥¼¿ï¾Üñ³ø®Ñ½s¸¹'));
    Exit;
  end;
  GroupBox1.Caption :=Format('½s¸¹%s¥i¤Þ¥Î¤å¥ó',[UseCaseID]);
  CaseListGB.Caption :=Format(_Msg('½s¸¹%s¥i¤Þ¥Î¤å¥ó'),[UseCaseID]);
  CheckListBox1.Items.Clear;
  Notebook1.ActivePage := 'View';
  UseCaseID := ListView1.Selected.Caption;
  UseBS_No := ListView1.Selected.SubItems.Strings[1];
  UseIS_Old := UpperCase(ListView1.Selected.SubItems.Strings[2]);
  UseCaseID := OldCaseLV.Selected.Caption;
  UseBS_No := OldCaseLV.Selected.SubItems.Strings[1];
  UseIS_Old := UpperCase(OldCaseLV.Selected.SubItems.Strings[2]);
  OldCaseInfoList := TStringlist.Create;
  Caseinfolist := TStringlist.Create;
  try
@@ -829,7 +837,7 @@

end;

procedure TOldCaseInfoForm.BitBtn4Click(Sender: TObject);
procedure TOldCaseInfoForm.OldExitBtClick(Sender: TObject);
begin
  ModalResult := MrCancel;
end;