| 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 |
//履歴の最大保存件数 |
//履歴の最大保存件数 |
| 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; |
| 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 |
|
|
| 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) |
| 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; |
| 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 |
|
|
| 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; |
| 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; |
| 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); |
| 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); |
| 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', ''); |
| 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 |
//履歴の最大保存件数 |
//履歴の最大保存件数 |
| 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; |
| 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 |
|
|