Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

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

revision 1.139.2.1 by h677, Tue Jun 16 14:25:18 2009 UTC revision 1.144 by h677, Sun Feb 27 01:25:25 2011 UTC
# Line 414  type Line 414  type
414                                  //Be2ch                                  //Be2ch
415                  //認証用ユーザID・パスワード                  //認証用ユーザID・パスワード
416                  FBeUserID: String;                  FBeUserID: String;
417                  FBeCode: String;                  FBePassword: String;
418                  FBeAutoLogin: Boolean;                  FBeAutoLogin: Boolean;
419                  FBeLogin: Boolean;                  FBeLogin: Boolean;
420                  //履歴の最大保存件数                  //履歴の最大保存件数
# Line 466  type Line 466  type
466          FRespopupMailTo: Boolean;          FRespopupMailTo: Boolean;
467          //! 誤爆チェック          //! 誤爆チェック
468          FUseGobakuCheck: Boolean;          FUseGobakuCheck: Boolean;
469    
470            //! 冒険の書用Cookie
471            FBoukenCookieList: TStringList;
472    
473                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
474                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
475                  function GetBrowserCoolSet(Index: Integer): TCoolSet;                  function GetBrowserCoolSet(Index: Integer): TCoolSet;
# Line 516  type Line 520  type
520                  procedure WriteNameMailSettingFile;                  procedure WriteNameMailSettingFile;
521                  procedure WriteFolderSettingFile();                  procedure WriteFolderSettingFile();
522                  procedure WriteBoardURLSettingFile;                  procedure WriteBoardURLSettingFile;
523                    procedure WriteBoukenSettingFile;
524                  function GetSoundCount: Integer;                  function GetSoundCount: Integer;
525                  function FindSoundFileName(Name: string): string;                  function FindSoundFileName(Name: string): string;
526    
# Line 543  type Line 548  type
548                  function GetInputAssistFileName : String;                  function GetInputAssistFileName : String;
549          function GetReplaceFileName: String;          function GetReplaceFileName: String;
550          function GetExtprevieFileName: String;          function GetExtprevieFileName: String;
551            function GetBoukenCookie(AHostName: String): String;
552            procedure SetBoukenCookie(ACookieValue, AHostName: String);
553            procedure GetBouken(AHostName: String; var Domain:String; var Cookie:String);
554          {          {
555          \brief  リンク履歴の保持サイズのsetter          \brief  リンク履歴の保持サイズのsetter
556          \param  AVal    設定するサイズ( >0)          \param  AVal    設定するサイズ( >0)
# Line 792  type Line 800  type
800                  property UseUndecided: Boolean read FUseUndecided write FUseUndecided;                  property UseUndecided: Boolean read FUseUndecided write FUseUndecided;
801    
802                  property BeUserID: string read FBeUserID write FBeUserID;                  property BeUserID: string read FBeUserID write FBeUserID;
803                  property BeCode: string read FBeCode write FBeCode;                  property BePassword: string read FBePassword write FBePassword;
804                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;                  property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin;
805                  property BeLogin: Boolean read FBeLogin write FBeLogin;                  property BeLogin: Boolean read FBeLogin write FBeLogin;
806                  property MaxRecordCount : Integer read FMaxRecordCount write FMaxRecordCount;                  property MaxRecordCount : Integer read FMaxRecordCount write FMaxRecordCount;
# Line 837  type Line 845  type
845          property RespopupWait: Integer read FRespopupWait write FRespopupWait;          property RespopupWait: Integer read FRespopupWait write FRespopupWait;
846          property RespopupMailTo: Boolean read FRespopupMailTo write FRespopupMailTo;          property RespopupMailTo: Boolean read FRespopupMailTo write FRespopupMailTo;
847          //! 誤爆チェック          //! 誤爆チェック
848          property UseGobakuCheck: Boolean read FUseGobakuCheck write FUseGobakuCheck;          property UseGobakuCheck: Boolean read FUseGobakuCheck write FUseGobakuCheck;
849            //! 冒険の書
850            property BoukenCookieList: TStringList read FBoukenCookieList write FBoukenCookieList;
851  end;  end;
852    
853    
# Line 996  begin Line 1006  begin
1006          FMailList.Duplicates := dupIgnore;          FMailList.Duplicates := dupIgnore;
1007          FBoardURLs.Duplicates := dupIgnore;          FBoardURLs.Duplicates := dupIgnore;
1008          FSelectTextList.Duplicates := dupIgnore;          FSelectTextList.Duplicates := dupIgnore;
1009        FBoukenCookieList := TStringList.Create;
1010          ReadSettingFile();          ReadSettingFile();
1011          ReadBoardURLsFile();          ReadBoardURLsFile();
1012  end;  end;
# Line 1003  end; Line 1014  end;
1014  //デストラクタ  //デストラクタ
1015  destructor TSetting.Destroy();  destructor TSetting.Destroy();
1016  begin  begin
1017        FBoukenCookieList.Free;
1018          FBoardColumnOrder.Free;          FBoardColumnOrder.Free;
1019          FCategoryColumnOrder.Free;          FCategoryColumnOrder.Free;
1020          FBBSColumnOrder.Free;          FBBSColumnOrder.Free;
# Line 1036  var Line 1048  var
1048          s: string;                                                        s: string;                                              
1049          CoolSet: TCoolSet;          CoolSet: TCoolSet;
1050      msg: String;      msg: String;
1051        hostList: TStringList;
1052  begin  begin
1053          Exists := FileExists(GetFileName);          Exists := FileExists(GetFileName);
1054          ini := TMemIniFile.Create(GetFileName);          ini := TMemIniFile.Create(GetFileName);
# Line 1303  begin Line 1316  begin
1316          //Be2ch          //Be2ch
1317                  //認証用ユーザID・認証コード                  //認証用ユーザID・認証コード
1318                  FBeUserID := ini.ReadString('Be', 'UserID', '');                  FBeUserID := ini.ReadString('Be', 'UserID', '');
1319                  FBeCode := Decrypt(ini.ReadString('Be', 'Code', ''));                  FBePassword := Decrypt(ini.ReadString('Be', 'Password', ''));
1320                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);                  FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False);
1321                  //履歴の最大保存件数                  //履歴の最大保存件数
1322                  FMaxRecordCount := Max(ini.ReadInteger('Recode', 'Max', 100), 1);                  FMaxRecordCount := Max(ini.ReadInteger('Recode', 'Max', 100), 1);
# Line 1340  begin Line 1353  begin
1353          FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);          FCheckDatFile := ini.ReadBool('ThreadList', 'CheckDatFile', True);
1354          FLimitResCountMessage := ini.ReadBool('Thread', 'LimitResCountMessage', True);          FLimitResCountMessage := ini.ReadBool('Thread', 'LimitResCountMessage', True);
1355    
1356            // 冒険の書Cookie読み込み
1357            hostList := TStringList.Create;
1358            ini.ReadSection('Bouken', hostList);
1359            for i := 0 to hostList.Count - 1 do begin
1360                FBoukenCookieList.Add( hostList[i] + '=' +
1361                    ini.ReadString('Bouken', hostList[i], '') );
1362            end;
1363            hostList.Free;
1364    
1365          // ギコナビ更新で利用したインストーラの削除          // ギコナビ更新で利用したインストーラの削除
1366          s := ini.ReadString('Update', 'Remove0', '');          s := ini.ReadString('Update', 'Remove0', '');
# Line 1721  begin Line 1741  begin
1741    
1742                  //認証用ユーザID・パスワード                  //認証用ユーザID・パスワード
1743                  ini.WriteString('Be', 'UserID', FBeUserID);                  ini.WriteString('Be', 'UserID', FBeUserID);
1744                  ini.WriteString('Be', 'Code', Encrypt(FBeCode));                  ini.WriteString('Be', 'Password', Encrypt(FBePassword));
1745                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);                  ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin);
1746    
1747                  //履歴の最大保存件数                  //履歴の最大保存件数
# Line 1741  begin Line 1761  begin
1761          ini.WriteBool('ThreadList', 'CheckDatFile', FCheckDatFile);          ini.WriteBool('ThreadList', 'CheckDatFile', FCheckDatFile);
1762          ini.WriteBool('Thread', 'LimitResCountMessage', FLimitResCountMessage);          ini.WriteBool('Thread', 'LimitResCountMessage', FLimitResCountMessage);
1763    
1764    
1765                    ini.UpdateFile;
1766            finally
1767                    ini.Free;
1768            end;
1769    end;
1770    //設定ファイル保存(冒険の書)
1771    procedure TSetting.WriteBoukenSettingFile;
1772    var
1773            i: Integer;
1774            ini: TMemIniFile;
1775    begin
1776            ini := TMemIniFile.Create(GetFileName());
1777            try
1778                    ini.EraseSection('Bouken');
1779            // 冒険の書Cookie書き込み
1780            for i := 0 to FBoukenCookieList.Count - 1 do begin
1781                ini.WriteString('Bouken', FBoukenCookieList.Names[i], FBoukenCookieList.Values[FBoukenCookieList.Names[i]]);
1782            end;
1783                  ini.UpdateFile;                  ini.UpdateFile;
1784          finally          finally
1785                  ini.Free;                  ini.Free;
# Line 2440  function TSetting.GetCSSFileName: string Line 2479  function TSetting.GetCSSFileName: string
2479  begin  begin
2480      Result := FSkinFiles.FileName;      Result := FSkinFiles.FileName;
2481  end;  end;
2482    function TSetting.GetBoukenCookie(AHostName: String): String;
2483    var
2484        i : Integer;
2485    begin
2486        for i := 0 to FBoukenCookieList.Count - 1 do begin
2487            if ( AnsiPos(FBoukenCookieList.Names[i], AHostName) > 0 ) then begin
2488                Result := FBoukenCookieList.Values[FBoukenCookieList.Names[i]];
2489                Break;
2490            end;
2491        end;
2492    end;
2493    procedure TSetting.SetBoukenCookie(ACookieValue, AHostName: String);
2494    var
2495        i : Integer;
2496    begin
2497        for i := 0 to FBoukenCookieList.Count - 1 do begin
2498            if ( FBoukenCookieList.Names[i] = AHostName ) then begin
2499                FBoukenCookieList[i] := AHostName + '=' + ACookieValue;
2500                Break;
2501            end;
2502        end;
2503        if ( i = FBoukenCookieList.Count ) then begin
2504            FBoukenCookieList.Add(AHostName + '=' + ACookieValue);
2505        end;
2506    end;
2507    procedure TSetting.GetBouken(AHostName: String; var Domain:String; var Cookie:String);
2508    var
2509        i : Integer;
2510    begin
2511        Cookie := '';
2512        for i := 0 to FBoukenCookieList.Count - 1 do begin
2513            if ( AnsiPos(FBoukenCookieList.Names[i], AHostName) > 0 ) then begin
2514                Domain := FBoukenCookieList.Names[i];
2515                Cookie := FBoukenCookieList.Values[FBoukenCookieList.Names[i]];
2516                Break;
2517            end;
2518        end;
2519    end;
2520    
2521  end.  end.
2522    

Legend:
Removed from v.1.139.2.1  
changed lines
  Added in v.1.144

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26