GikoSystem.pas

   1 unit GikoSystem;
   2
   3 interface
   4
   5 uses
   6         Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
   7         ComCtrls, {IniFiles,} ShellAPI, ActnList, Math,
   8 {$IF Defined(DELPRO) }
   9         SHDocVw,
  10         MSHTML,
  11 {$ELSE}
  12         SHDocVw_TLB,
  13         MSHTML_TLB,
  14 {$IFEND}
  15         {HttpApp,} URLMon, IdGlobal, IdURI, {Masks,}
  16         Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit,
  17         ExternalBoardManager, ExternalBoardPlugInMain,
  18         GikoBayesian, GikoMessage;
  19
  20 type
  21         TVerResourceKey = (
  22                         vrComments,         //!< \83R\83\81\83\93\83g
  23                         vrCompanyName,      //!< \89ï\8eÐ\96¼
  24                         vrFileDescription,  //!< \90à\96¾
  25                         vrFileVersion,      //!< \83t\83@\83C\83\8b\83o\81[\83W\83\87\83\93
  26                         vrInternalName,     //!< \93à\95\94\96¼
  27                         vrLegalCopyright,   //!< \92\98\8dì\8c
  28                         vrLegalTrademarks,  //!< \8f¤\95W
  29                         vrOriginalFilename, //!< \90³\8e®\83t\83@\83C\83\8b\96¼
  30                         vrPrivateBuild,     //!< \83v\83\89\83C\83x\81[\83g\83r\83\8b\83h\8fî\95ñ
  31                         vrProductName,      //!< \90»\95i\96¼
  32                         vrProductVersion,   //!< \90»\95i\83o\81[\83W\83\87\83\93
  33                         vrSpecialBuild);    //!< \83X\83y\83V\83\83\83\8b\83r\83\8b\83h\8fî\95ñ
  34
  35         //! BBS\83^\83C\83v
  36         TGikoBBSType = (gbt2ch);
  37         //! \83\8d\83O\83^\83C\83v
  38         TGikoLogType = (glt2chNew, glt2chOld);
  39         //! \83\81\83b\83Z\81[\83W\83A\83C\83R\83\93
  40         TGikoMessageIcon = (gmiOK, gmiSAD, gmiNG, gmiWhat, gmiNone);
  41         //! URL\83I\81[\83v\83\93\83u\83\89\83E\83U\83^\83C\83v
  42         TGikoBrowserType = (gbtIE, gbtUserApp, gbtAuto);
  43
  44
  45         TStrTokSeparator = set of Char;
  46         TStrTokRec = record
  47                 Str: string;
  48                 Pos: Integer;
  49         end;
  50
  51         //! \83C\83\93\83f\83b\83N\83X\83t\83@\83C\83\8b\83\8c\83R\81[\83h
  52         TIndexRec = record
  53                 FNo: Integer;
  54                 FFileName: string;
  55                 FTitle: string;
  56                 FCount: Integer;
  57                 FSize: Integer;
  58 //              FRoundNo: Integer;
  59                 FRoundDate: TDateTime;
  60                 FLastModified: TDateTime;
  61                 FKokomade: Integer;
  62                 FNewReceive: Integer;
  63                 FMishiyou: Boolean;     //!< \96¢\8eg\97p
  64                 FUnRead: Boolean;
  65                 FScrollTop: Integer;
  66                 //Index Ver 1.01
  67                 FAllResCount: Integer;
  68                 FNewResCount: Integer;
  69                 FAgeSage: TGikoAgeSage;
  70         end;
  71
  72         //! \83T\83u\83W\83F\83N\83g\83\8c\83R\81[\83h
  73         TSubjectRec = record
  74                 FFileName: string;
  75                 FTitle: string;
  76                 FCount: Integer;
  77         end;
  78
  79         //! \83\8c\83X\83\8c\83R\81[\83h\82Ö\82Ì\83|\83C\83\93\83^
  80         PResRec = ^TResRec;
  81
  82         //! \83\8c\83X\83\8c\83R\81[\83h
  83         TResRec = record
  84                 FTitle: string;
  85                 FMailTo: string;
  86                 FName: string;
  87                 FDateTime: string;
  88                 FBody: string;
  89                 FType: TGikoLogType;
  90         end;
  91
  92         //! URLPath\83\8c\83R\81[\83h
  93         TPathRec = record
  94                 FBBS: string;                           //!< BBSID
  95                 FKey: string;                           //!< ThreadID
  96                 FSt: Int64;                               //!< \8aJ\8en\83\8c\83X\94Ô
  97                 FTo: Int64;                               //!< \8fI\97¹\83\8c\83X\94Ô
  98                 FFirst: Boolean;                //!< >>1\82Ì\95\\8e¦
  99                 FStBegin: Boolean;      //!< 1\81`\95\\8e¦
 100                 FToEnd: Boolean;                //!< \81`\8dÅ\8cã\82Ü\82Å\95\\8e¦
 101                 FDone: Boolean;                 //!< \90¬\8c÷
 102                 FNoParam: Boolean;  //!< \83\8c\83X\94Ô\83p\83\89\83\81\81[\83^\82È\82µ
 103         end;
 104
 105         TGikoSys = class(TObject)
 106         private
 107                 { Private \90é\8c¾ }
 108                 FSetting: TSetting;
 109                 FDolib: TDolib;
 110                 FAWKStr: TAWKStr;
 111                 FResRange : Longint;
 112                 FBayesian       : TGikoBayesian;        //!< \83x\83C\83W\83A\83\93\83t\83B\83\8b\83^
 113                 FVersion : String;                    //!< \83t\83@\83C\83\8b\83o\81[\83W\83\87\83\93
 114                 FGikoMessage: TGikoMessage;
 115         public
 116                 { Public \90é\8c¾ }
 117                 FAbon : TAbon;
 118                 FSelectResFilter : TAbon;
 119                 //FBoardURLList: TStringList;
 120                 constructor Create;
 121
 122                 destructor Destroy; override;
 123                 property ResRange : Longint read FResRange write FResRange;
 124                 //! \83o\81[\83W\83\87\83\93\8fî\95ñ
 125                 property Version : String read FVersion;
 126 //              function MsgBox(Msg: string; Title: string; Flags: Longint): integer; overload;
 127 //              function MsgBox(Handle: THandle; Msg: string; Title: string; Flags: Longint): integer; overload;
 128                 function IsNumeric(s: string): boolean;
 129                 function IsFloat(s: string): boolean;
 130                 function DirectoryExistsEx(const Name: string): Boolean;
 131                 function ForceDirectoriesEx(Dir: string): Boolean;
 132 //              function GetVersion: string;
 133
 134                 function GetBoardFileName: string;
 135                 function GetCustomBoardFileName: string;
 136                 function GetHtmlTempFileName: string;
 137                 function GetAppDir: string;
 138                 function GetTempFolder: string;
 139                 function GetSentFileName: string;
 140                 function GetConfigDir: string;
 141                 function GetSkinDir: string;
 142                 function GetSkinHeaderFileName: string;
 143                 function GetSkinFooterFileName: string;
 144                 function GetSkinResFileName: string;
 145                 function GetSkinNewResFileName: string;
 146                 function GetSkinBookmarkFileName: string;
 147                 function GetSkinNewmarkFileName: string;
 148                 function GetStyleSheetDir: string;
 149                 function GetOutBoxFileName: string;
 150                 function GetUserAgent: string;
 151                                 function GetSambaFileName : string;
 152
 153                 function GetMainKeyFileName : String;
 154                 function GetEditorKeyFileName: String;
 155                 function GetInputAssistFileName: String;
 156                 procedure ReadSubjectFile(Board: TBoard);
 157                 procedure CreateThreadDat(Board: TBoard);
 158                 procedure WriteThreadDat(Board: TBoard);
 159                 function ParseIndexLine(Line: string): TIndexRec;
 160                 procedure GetFileList(Path: string; Mask: string; var List: TStringList; SubDir: Boolean; IsPathAdd: Boolean); overload;
 161                 procedure GetFileList(Path: string; Mask: string; var List: TStringList; IsPathAdd: Boolean); overload;//\83T\83u\83t\83H\83\8b\83_\82Í\8c\9f\8dõ\82µ\82È\82¢
 162                 procedure GetDirectoryList(Path: string; Mask: string; List: TStringList; SubDir: Boolean);
 163
 164                 function DivideSubject(Line: string): TSubjectRec;
 165                 property Setting: TSetting read FSetting write FSetting;
 166                 property Dolib: TDolib read FDolib write FDolib;
 167
 168                 function UrlToID(url: string): string;
 169                 function UrlToServer(url: string): string;
 170
 171                 function StrTokFirst(const s:string; const sep:TStrTokSeparator; var Rec:TStrTokRec):string;
 172                 function StrTokNext(const sep:TStrTokSeparator; var Rec:TStrTokRec): string;
 173
 174                 function GetFileSize(FileName : string) : longint;
 175                 function GetFileLineCount(FileName : string): longint;
 176                 function IntToDateTime(val: Int64): TDateTime;
 177                 function DateTimeToInt(ADate: TDateTime): Int64;
 178
 179                 function ReadThreadFile(FileName: string; Line: Integer): string;
 180
 181                 procedure MenuFont(Font: TFont);
 182
 183                 function RemoveToken(var s:string; const delimiter:string):string;
 184                 function GetTokenIndex(s: string; delimiter: string; index: Integer): string;
 185
 186                 function GetShortName(const LongName: string; ALength: integer): string;
 187                 function BoolToInt(b: Boolean): Integer;
 188                 function IntToBool(i: Integer): Boolean;
 189                 function GzipDecompress(ResStream: TStream; ContentEncoding: string): string;
 190                 procedure LoadKeySetting(ActionList: TActionList; FileName: String);
 191                 procedure SaveKeySetting(ActionList: TActionList; FileName: String);
 192                 procedure CreateProcess(const AppPath: string; const Param: string);
 193                 procedure OpenBrowser(URL: string; BrowserType: TGikoBrowserType);
 194                 function HTMLDecode(const AStr: String): String;
 195                 function GetHRefText(s: string): string;
 196                 function Is2chHost(Host: string): Boolean;
 197                 function Parse2chURL(const url: string; const path: string; const document: string; var BBSID: string; var BBSKey: string): Boolean;
 198                 function Parse2chURL2(URL: string): TPathRec;
 199                 procedure ParseURI(const URL : string; var Protocol, Host, Path, Document, Port, Bookmark: string);
 200                 function GetVersionBuild: Integer;
 201                 function        GetBrowsableThreadURL( inURL : string ) : string;
 202                 function        GetThreadURL2BoardURL( inURL : string ) : string;
 203                 function        Get2chThreadURL2BoardURL( inURL : string ) : string;
 204                 function        Get2chBrowsableThreadURL( inURL : string ) : string;
 205                 function        Get2chBoard2ThreadURL( inBoard : TBoard; inKey : string ) : string;
 206                 procedure ListBoardFile;
 207                 procedure ReadBoardFile( bbs : TBBS );
 208
 209                 function        GetUnknownCategory : TCategory;
 210                 function        GetUnknownBoard( inPlugIn : TBoardPlugIn; inURL : string ) : TBoard;
 211
 212                 procedure GetPopupResNumber(URL : string; var stRes, endRes : Int64);
 213
 214                 //! Samba24\82Ì\83t\83@\83C\83\8b\82ª\91¶\8dÝ\82·\82é\82©\81B\91¶\8dÝ\82µ\82È\82¢\8fê\8d\87\81Adefault\83t\83@\83C\83\8b\82ðrename\82·\82é
 215                 procedure SambaFileExists();
 216
 217                 property Bayesian : TGikoBayesian read FBayesian write FBayesian;
 218                 function GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: boolean):string; overload;
 219                 function GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: boolean):string; overload;
 220                 procedure GetSameIDRes(const AID : string; ThreadItem: TThreadItem;var body: TStringList); overload;
 221                 procedure GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList); overload;
 222                 function GetSameIDResCount(const AID : string; ThreadItem: TThreadItem):Integer; overload;
 223                 function GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer; overload;
 224
 225                 //! \92P\8cê\89ð\90Í
 226                 procedure SpamCountWord( const text : string; wordCount : TWordCount );
 227                 //! \8aw\8fK\83N\83\8a\83A
 228                 procedure SpamForget( wordCount : TWordCount; isSpam : Boolean );
 229                 //! \83X\83p\83\80\8aw\8fK
 230                 procedure SpamLearn( wordCount : TWordCount; isSpam : Boolean );
 231                 //! \83X\83p\83\80\93x\90\94
 232                 function SpamParse( const text : string; wordCount : TWordCount ) : Extended;
 233                 //\88ø\90\94\82ª\81A\93ú\95t\82Å\82à\8e\9e\8d\8f\82Å\82à\82È\82¢\82±\82Æ\82ð\92²\82×\82é
 234                 function NotDateorTimeString(const AStr : string): boolean;
 235
 236                 //! \88ø\90\94\82É\91\97\82ç\82ê\82Ä\82«\82½\93ú\95t/ID\95\94\82ÉBE\82Ì\95¶\8e\9a\97ñ\82ª\82 \82Á\82½\82ç\81A\83v\83\8d\83t\83@\83C\83\8b\82Ö\82Ì\83\8a\83\93\83N\82ð\92Ç\89Á
 237                 function AddBeProfileLink(AID : string; ANum: Integer): string;
 238                 //! \83o\81[\83W\83\87\83\93\8fî\95ñ\82Ì\8eæ\93¾
 239                 function GetVersionInfo(KeyWord: TVerResourceKey): string;
 240                 //! Plugin\82Ì\8fî\95ñ\82Ì\8eæ\93¾
 241                 function GetPluginsInfo(): string;
 242                 //! IE\82Ì\83o\81[\83W\83\87\83\93\8fî\95ñ\82Ì\8eæ\93¾
 243                 function GetIEVersion: string;
 244                 function SetUserOptionalStyle(): string;
 245                 //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\90Ý\92è\82·\82é
 246                 procedure SetGikoMessage;
 247                 //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\8eæ\93¾\82·\82é
 248                 function GetGikoMessage(MesType: TGikoMessageListType): String;
 249         end;
 250
 251 var
 252         GikoSys: TGikoSys;
 253 const
 254         //LENGTH_RESTITLE                       = 40;
 255         ZERO_DATE: Integer      = 25569;
 256         BETA_VERSION_NAME_E = 'beta';
 257         BETA_VERSION_NAME_J = 'ÊÞÀ';
 258         BETA_VERSION                            = 52;
 259         BETA_VERSION_BUILD      = '';                           //!< debug\94Å\82È\82Ç
 260         APP_NAME                                                = 'gikoNavi';
 261         BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
 262
 263
 264 implementation
 265
 266 uses
 267         Giko, RoundData, Favorite, Registry, HTMLCreate, MojuUtils, Sort, YofUtils,
 268         IniFiles;
 269
 270 const
 271         FOLDER_INDEX_VERSION                                    = '1.01';
 272         USER_AGENT                                                                              = 'Monazilla';
 273         DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt';
 274         NGWORDs_DIR_NAME : String               = 'NGwords';
 275
 276         READ_PATH: string =                     '/test/read.cgi/';
 277         OLD_READ_PATH: string =         '/test/read.cgi?';
 278         KAKO_PATH: string =                     '/kako/';
 279
 280         KeyWordStr: array [TVerResourceKey] of String = (
 281                   'Comments',
 282                   'CompanyName',
 283                   'FileDescription',
 284                   'FileVersion',
 285                   'InternalName',
 286                   'LegalCopyright',
 287                   'LegalTrademarks',
 288                   'OriginalFilename',
 289                   'PrivateBuild',
 290                   'ProductName',
 291                   'ProductVersion',
 292                   'SpecialBuild');
 293
 294 // *************************************************************************
 295 //! GikoSys\83R\83\93\83X\83g\83\89\83N\83^
 296 // *************************************************************************
 297 constructor TGikoSys.Create;
 298 begin
 299         FSetting := TSetting.Create;
 300         FDolib := TDolib.Create;
 301         FAWKStr := TAWKStr.Create(nil);
 302         if DirectoryExists(GetConfigDir) = false then begin
 303                 CreateDir(GetConfigDir);
 304         end;
 305         FAbon := TAbon.Create;
 306     FAbon.IgnoreKana := FSetting.IgnoreKana;
 307         FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME);
 308         FAbon.GoHome;
 309         FAbon.ReturnNGwordLineNum := FSetting.ShowNGLinesNum;
 310         FAbon.SetNGResAnchor := FSetting.AddResAnchor;
 311         FAbon.DeleteSyria := FSetting.DeleteSyria;
 312         FAbon.Deleterlo := FSetting.AbonDeleterlo;
 313         FAbon.Replaceul := FSetting.AbonReplaceul;
 314         FAbon.AbonPopupRes := FSetting.PopUpAbon;
 315
 316         FSelectResFilter := TAbon.Create;
 317     FSelectResFilter.IgnoreKana := True;
 318         // \8di\82è\8d\9e\82Þ\82Æ\82«\82Í\8bÉ\97Í\88ê\97\97\82ª\8c©\82ç\82ê\82é\82Ù\82¤\82ª\82¢\82¢\82Ì\82Å\91¼\82Í\8a®\91S\82É\8dí\8f\9c
 319         FSelectResFilter.AbonString := '';
 320     //
 321         ResRange := FSetting.ResRange;
 322         FVersion := Trim(GetVersionInfo(vrFileVersion));
 323         FBayesian := TGikoBayesian.Create;
 324         //FBoardURLList := TStringList.Create;
 325         //\83\81\83b\83Z\81[\83W\82Ì\8dì\90¬
 326         FGikoMessage := TGikoMessage.Create;
 327 end;
 328
 329 // *************************************************************************
 330 //! GikoSys\83f\83X\83g\83\89\83N\83^
 331 // *************************************************************************
 332 destructor TGikoSys.Destroy;
 333 var
 334         i: Integer;
 335         FileList: TStringList;
 336 begin
 337         //\83X\83\8c\83b\83h\83f\81[\83^\83t\83@\83C\83\8b\82ð\8dX\90V
 338 //      FlashExitWrite;
 339
 340 //      FExitWrite.Free;
 341         FBayesian.Free;
 342         FAWKStr.Free;
 343         FSetting.Free;
 344         FDolib.Free;
 345         FAbon.Free;
 346         FSelectResFilter.Free;
 347     FGikoMessage.Free;
 348         //FBoardURLList.Free;
 349         //\83e\83\93\83|\83\89\83\8aHTML\82ð\8dí\8f\9c
 350         FileList := TStringList.Create;
 351         try
 352         FileList.BeginUpdate;
 353                 GetFileList(GetTempFolder, '*.html', FileList, False, True);
 354         FileList.EndUpdate;
 355                 for i := 0 to FileList.Count - 1 do begin
 356                         DeleteFile(FileList[i]);
 357                 end;
 358         finally
 359                 FileList.Free;
 360         end;
 361         inherited;
 362 end;
 363
 364 {!
 365 \brief \95¶\8e\9a\97ñ\90\94\8e\9a\83`\83F\83b\83N
 366 \param s \83`\83F\83b\83N\82·\82é\95¶\8e\9a\97ñ
 367 \return s \82ª\95\84\8d\86\95t\82«\90®\90\94\82Æ\82µ\82Ä\94F\8e¯\89Â\94\\82È\82ç True
 368 \todo MonaUtils.IsNumeric() \82ª\93¯\93\99\82Ì\8b@\94\\82ð\95Û\8e\9d\82µ\82Ä\82¢\82é
 369 }
 370 {$HINTS OFF}
 371 function TGikoSys.IsNumeric(s: string): boolean;
 372 var
 373         e: integer;
 374         v: integer;
 375 begin
 376         Val(s, v, e);
 377         Result := e = 0;
 378 end;
 379 {$HINTS ON}
 380
 381 {!
 382 \brief \95¶\8e\9a\97ñ\95\82\93®\8f¬\90\94\93_\90\94\8e\9a\83`\83F\83b\83N
 383 \param s \83`\83F\83b\83N\82·\82é\95¶\8e\9a\97ñ
 384 \return s \82ª\95\84\8d\86\95t\82«\95\82\93®\8f¬\90\94\82Æ\82µ\82Ä\94F\8e¯\89Â\94\\82È\82ç True
 385 \todo MonaUtils.IsFloat() \82ª\93¯\93\99\82Ì\8b@\94\\82ð\95Û\8e\9d\82µ\82Ä\82¢\82é
 386 }
 387 function TGikoSys.IsFloat(s: string): boolean;
 388 var
 389         v: Extended;
 390 begin
 391         Result := TextToFloat(PChar(s), v, fvExtended);
 392 end;
 393
 394 // *************************************************************************
 395 //! \83{\81[\83h\83t\83@\83C\83\8b\96¼\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
 396 // *************************************************************************
 397 function TGikoSys.GetBoardFileName: string;
 398 begin
 399         Result := Setting.GetBoardFileName;
 400 end;
 401
 402 // *************************************************************************
 403 //! \83{\81[\83h\83t\83@\83C\83\8b\96¼\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
 404 // *************************************************************************
 405 function TGikoSys.GetCustomBoardFileName: string;
 406 begin
 407         Result := Setting.GetCustomBoardFileName;
 408 end;
 409
 410 // *************************************************************************
 411 //! \83e\83\93\83|\83\89\83\8a\83t\83H\83\8b\83_\81[\96¼\8eæ\93¾
 412 // *************************************************************************
 413 function TGikoSys.GetHtmlTempFileName: string;
 414 begin
 415         Result := Setting.GetHtmlTempFileName;
 416 end;
 417
 418
 419 // *************************************************************************
 420 //! \8eÀ\8ds\83t\83@\83C\83\8b\83t\83H\83\8b\83_\8eæ\93¾
 421 // *************************************************************************
 422 function TGikoSys.GetAppDir: string;
 423 begin
 424         Result := Setting.GetAppDir;
 425 end;
 426
 427 // *************************************************************************
 428 //! TempHtml\83t\83@\83C\83\8b\96¼\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
 429 // *************************************************************************
 430 function TGikoSys.GetTempFolder: string;
 431 begin
 432         Result := Setting.GetTempFolder;
 433 end;
 434
 435 // *************************************************************************
 436 //! sent.ini\83t\83@\83C\83\8b\96¼\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
 437 // *************************************************************************)
 438 function TGikoSys.GetSentFileName: string;
 439 begin
 440         Result := Setting.GetSentFileName;
 441 end;
 442
 443 // *************************************************************************
 444 //! outbox.ini\83t\83@\83C\83\8b\96¼\8eæ\93¾\81i\83p\83X\81{\83t\83@\83C\83\8b\96¼\81j
 445 // *************************************************************************
 446 function TGikoSys.GetOutBoxFileName: string;
 447 begin
 448         Result := Setting.GetOutBoxFileName;
 449 end;
 450
 451 // *************************************************************************
 452 //! Config\83t\83H\83\8b\83_\8eæ\93¾
 453 // *************************************************************************
 454 function TGikoSys.GetConfigDir: string;
 455 begin
 456         Result := Setting.GetConfigDir;
 457 end;
 458
 459 //! \83X\83^\83C\83\8b\83V\81[\83g\83t\83H\83\8b\83_
 460 function TGikoSys.GetStyleSheetDir: string;
 461 begin
 462         Result := Setting.GetStyleSheetDir;
 463 end;
 464
 465 //! \83X\83L\83\93\83t\83H\83\8b\83_
 466 function TGikoSys.GetSkinDir: string;
 467 begin
 468         Result := Setting.GetSkinDir;
 469 end;
 470
 471 //! Skin:\83w\83b\83_\82Ì\83t\83@\83C\83\8b\96¼
 472 function TGikoSys.GetSkinHeaderFileName: string;
 473 begin
 474         Result := Setting.GetSkinHeaderFileName;
 475 end;
 476
 477 //! Skin:\83t\83b\83^\82Ì\83t\83@\83C\83\8b\96¼
 478 function TGikoSys.GetSkinFooterFileName: string;
 479 begin
 480         Result := Setting.GetSkinFooterFileName;
 481 end;
 482
 483 //! Skin:\90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
 484 function TGikoSys.GetSkinNewResFileName: string;
 485 begin
 486         Result := Setting.GetSkinNewResFileName;
 487 end;
 488
 489 //! Skin:\94ñ\90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
 490 function TGikoSys.GetSkinResFileName: string;
 491 begin
 492         Result := Setting.GetSkinResFileName;
 493 end;
 494
 495 //! Skin:\82µ\82¨\82è(\82±\82±\82Ü\82Å\93Ç\82ñ\82¾)\82Ì\83t\83@\83C\83\8b\96¼
 496 function TGikoSys.GetSkinBookmarkFileName: string;
 497 begin
 498         Result := Setting.GetSkinBookmarkFileName;
 499 end;
 500
 501 //! Skin:\82µ\82¨\82è(\90V\92\85\83\8c\83X)\82Ì\83t\83@\83C\83\8b\96¼
 502 function TGikoSys.GetSkinNewmarkFileName: string;
 503 begin
 504         Result := Setting.GetSkinNewmarkFileName;
 505 end;
 506
 507 //! UserAgent\8eæ\93¾
 508 function TGikoSys.GetUserAgent: string;
 509 begin
 510         if Dolib.Connected then begin
 511                 Result := Format('%s %s/%s%d/%s', [
 512                                                                 Dolib.UserAgent,
 513                                                                 APP_NAME,
 514                                                                 BETA_VERSION_NAME_E,
 515                                                                 BETA_VERSION,
 516                                                                 Version]);
 517         end else begin
 518                 Result := Format('%s/%s %s/%s%d/%s', [
 519                                                                 USER_AGENT,
 520                                                                 Dolib.Version,
 521                                                                 APP_NAME,
 522                                                                 BETA_VERSION_NAME_E,
 523                                                                 BETA_VERSION,
 524                                                                 Version]);
 525         end;
 526 end;
 527
 528 {!
 529 \brief \8co\89ß\95b\82ð TDateTime \82É\95Ï\8a·
 530 \param val 1970/1/1/ 00:00:00 \82©\82ç\82Ì\8co\89ß\95b
 531 \return val \82ð\8e¦\82· TDateTime
 532 }
 533 function TGikoSys.IntToDateTime(val: Int64): TDateTime;
 534 begin
 535         Result := ZERO_DATE + val / 86400.0;
 536 end;
 537
 538 {!
 539 \brief TDateTime \82ð\8co\89ß\95b\82É\95Ï\8a·
 540 \param ADate \95Ï\8a·\82·\82é\8e\9e\8d\8f
 541 \return 1970/1/1/ 00:00:00 \82©\82ç\82Ì\8co\89ß\95b
 542 }
 543 function TGikoSys.DateTimeToInt(ADate: TDateTime): Int64;
 544 begin
 545         Result := Trunc((ADate - ZERO_DATE) * 86400);
 546 end;
 547
 548
 549 {!
 550 \brief Subject\83t\83@\83C\83\8bRead
 551 \param Board \83X\83\8c\88ê\97\97\82ð\8eæ\93¾\82·\82é\94Â
 552 }
 553 procedure TGikoSys.ReadSubjectFile(Board: TBoard);
 554 var
 555         ThreadItem: TThreadItem;
 556         FileName: string;
 557         FileList: TStringList;
 558         TmpFileList: TStringList;
 559         Index: Integer;
 560         sl: TStringList;
 561         i: Integer;
 562         Rec: TIndexRec;
 563         UnRead: Integer;
 564         ini: TMemIniFile;
 565         ResRec: TResRec;
 566 //      RoundItem: TRoundItem;
 567 //      idx: Integer;
 568         usePlugIn : Boolean;
 569         tmpStr: string;
 570         BoardPath : String;
 571         server : String;
 572         islog : Boolean;
 573         //protocol, host, path, document, port, bookmark        : string;
 574         //is2ch : Boolean;
 575         {*
 576         FavoThreadItem : TFavoriteThreadItem;
 577         Node: TTreeNode;
 578         *}
 579 begin
 580         if Board.IsThreadDatRead then
 581                 Exit;
 582         Board.Clear;
 583         UnRead := 0;
 584         //is2ch := false;
 585         usePlugIn := Board.IsBoardPlugInAvailable;
 586         server :=  UrlToServer( Board.URL );
 587         //is2ch := Is2chHost(server);
 588
 589         FileName := Board.GetFolderIndexFileName;
 590
 591         FileList := TStringList.Create;
 592         FileList.Sorted := True;
 593         FileList.BeginUpdate;
 594         TmpFileList := TStringList.Create;
 595         TmpFileList.Sorted := True;
 596         TmpFileList.BeginUpdate;
 597         //IsLogFile\97pDAT\83t\83@\83C\83\8b\83\8a\83X\83g
 598         GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False);
 599         FileList.EndUpdate;
 600         //\91O\89ñ\88Ù\8fí\8fI\97¹\8e\9e\97pTmp\83t\83@\83C\83\8b\83\8a\83X\83g
 601         GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False);
 602         TmpFileList.EndUpdate;
 603
 604         // \8fd\95¡\82ð\96h\82®
 605         Board.BeginUpdate;
 606         Board.Sorted := True;
 607
 608         sl := TStringList.Create;
 609         try
 610                 if FileExists(FileName) then begin
 611                         sl.LoadFromFile(FileName);
 612
 613                         //\82Q\8ds\96Ú\82©\82ç\81i\82P\8ds\96Ú\82Í\83o\81[\83W\83\87\83\93\81j
 614                         for i := sl.Count - 1 downto 1 do begin
 615                                 Rec := ParseIndexLine(sl[i]);
 616                                 islog := FileList.Find( Rec.FFileName, Index );
 617                                 if usePlugIn then
 618                                         ThreadItem := TThreadItem.Create(
 619                                                         Board.BoardPlugIn,
 620                                                         Board,
 621                                                         Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), Rec.FFileName ) )
 622                                 else begin
 623                                         if Board.is2ch then begin
 624                                                 ThreadItem := TThreadItem.Create(
 625                                                         nil,
 626                                                         Board,
 627                                                         server + 'test/read.cgi/' + Board.BBSID + '/' + ChangeFileExt( Rec.FFileName, '' ) + '/l50',
 628                                                         islog,
 629                                                         Rec.FFileName
 630                                                         );
 631                                         end else begin
 632                                                 ThreadItem := TThreadItem.Create(
 633                                                         nil,
 634                                                         Board,
 635                                                         server + 'test/read.cgi?bbs=' + Board.BBSID + '&key=' + ChangeFileExt( Rec.FFileName, '' ) + '&ls=50',
 636                                                         islog,
 637                                                         Rec.FFileName
 638                                                         );
 639                                         end;
 640                                 end;
 641
 642                                 ThreadItem.BeginUpdate;
 643                                 if islog then
 644                                         FileList.Delete( Index );
 645
 646                                 ThreadItem.No := Rec.FNo;
 647                                 ThreadItem.FileName := Rec.FFileName;
 648                                 ThreadItem.Title := Rec.FTitle;
 649                                 //ThreadItem.ShortTitle := CustomStringReplace(ZenToHan(ThreadItem.Title), ' ', '');
 650                                 ThreadItem.Count := Rec.FCount;
 651                                 ThreadItem.Size := Rec.FSize;
 652 //                      ThreadItem.RoundNo := Rec.FRoundNo;
 653                                 ThreadItem.RoundDate := Rec.FRoundDate;
 654                                 ThreadItem.LastModified := Rec.FLastModified;
 655                                 ThreadItem.Kokomade := Rec.FKokomade;
 656                                 ThreadItem.NewReceive := Rec.FNewReceive;
 657 //                      ThreadItem.Round := Rec.FRound;
 658                                 ThreadItem.UnRead := Rec.FUnRead;
 659                                 ThreadItem.ScrollTop := Rec.FScrollTop;
 660                                 ThreadItem.AllResCount := Rec.FAllResCount;
 661                                 ThreadItem.NewResCount := Rec.FNewResCount;
 662                                 ThreadItem.AgeSage := Rec.FAgeSage;
 663                                 ThreadItem.ParentBoard := Board;
 664                                 {* \82¨\8bC\82É\93ü\82è\91å\97Ê\90¶\90¬\83R\81[\83h *}
 665                                 {*
 666                                 FavoThreadItem := TFavoriteThreadItem.Create( ThreadItem.URL, ThreadItem.Title, ThreadItem );
 667                                 Node := FavoriteDM.TreeView.Items.AddChildObject( FavoriteDM.TreeView.Items.Item[0], ThreadItem.Title, FavoThreadItem);
 668                                 *}
 669
 670                                 {//\8f\84\89ñ\83\8a\83X\83g\82É\91¶\8dÝ\82µ\82½\82ç\8f\84\89ñ\83t\83\89\83O\83Z\83b\83g
 671                                 if ThreadItem.IsLogFile then begin
 672                                         idx := RoundList.Find(ThreadItem);
 673                                         if idx <> -1 then begin
 674                                                 RoundItem := RoundList.Items[idx, grtItem];
 675                                                 ThreadItem.RoundName := RoundItem.RoundName;
 676                                                 ThreadItem.Round := True;
 677                                         end;
 678                                 end;
 679                                 }
 680
 681                                 ThreadItem.EndUpdate;
 682                                 Board.Add(ThreadItem);
 683
 684                                 if (ThreadItem.IsLogFile) and (ThreadItem.UnRead) then
 685                                         Inc(UnRead);
 686                         end;
 687                 end;
 688
 689                 if UnRead <> Board.UnRead then
 690                         Board.UnRead := UnRead;
 691
 692                 Boardpath := ExtractFilePath(Board.GetFolderIndexFileName);
 693                 //\83C\83\93\83f\83b\83N\83X\82É\96³\82©\82Á\82½\83\8d\83O\82ð\92Ç\89Á\81i\95\85\82ê\83C\83\93\83f\83b\83N\83X\91Î\89\9e\81j
 694                 for i := 0 to FileList.Count - 1 do begin
 695                         FileName := Boardpath + FileList[i];
 696
 697                         //ResRec := DivideStrLine(ReadThreadFile(FileName, 1));
 698                         if usePlugIn then begin
 699                                 ThreadItem := TThreadItem.Create(
 700                                         Board.BoardPlugIn,
 701                                         Board,
 702                                         Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) );
 703                                 THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);
 704                         end else begin
 705                                 ThreadItem := TThreadItem.Create(
 706                                         nil,
 707                                         Board,
 708                                         Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) );
 709                                 THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);
 710                         end;
 711
 712                         ThreadItem.BeginUpdate;
 713                         ThreadItem.FileName := FileList[i];
 714                         //ThreadItem.FilePath := FileName;
 715                         ThreadItem.No := Board.Count + 1;
 716                         ThreadItem.Title := ResRec.FTitle;
 717                         ThreadItem.Count := GetFileLineCount(FileName);
 718                         ThreadItem.AllResCount := ThreadItem.Count;
 719                         ThreadItem.NewResCount := ThreadItem.Count;
 720                         ThreadItem.Size := GetFileSize(FileName) - ThreadItem.Count;//1byte\82¸\82ê\82é\82Æ\82«\82ª\82 \82é\82¯\82Ç\82»\82ê\82Í\82 \82«\82ç\82ß\82é
 721                         ThreadItem.RoundDate := ZERO_DATE;
 722                         ThreadItem.LastModified := ZERO_DATE;
 723                         ThreadItem.Kokomade := -1;
 724                         ThreadItem.NewReceive := 0;
 725                         ThreadItem.ParentBoard := Board;
 726                         ThreadItem.IsLogFile := True;
 727                         ThreadItem.Round := False;
 728                         ThreadItem.UnRead := False;
 729                         ThreadItem.ScrollTop := 0;
 730                         ThreadItem.AgeSage := gasNone;
 731                         ThreadItem.EndUpdate;
 732                         Board.Add(ThreadItem);
 733                 end;
 734                 Board.EndUpdate;
 735
 736                 //\91O\89ñ\88Ù\8fí\8fI\97¹\8e\9e\83`\83F\83b\83N
 737                 for i := TmpFileList.Count - 1 downto 0 do begin
 738                 //if TmpFileList.Count <> 0 then begin
 739                         ThreadItem := Board.FindThreadFromFileName(ChangeFileExt(TmpFileList[i], '.dat'));
 740                         if ThreadItem <> nil then begin
 741                         //if TmpFileList.Find(ChangeFileExt(ThreadItem.FileName, '.tmp'), Index) then begin
 742                                 ini := TMemIniFile.Create(Boardpath + TmpFileList[i]);
 743                                 try
 744                                         tmpStr := ini.ReadString('Setting', 'RoundDate', DateTimeToStr(ZERO_DATE));
 745                                         ThreadItem.RoundDate := ConvertDateTimeString(tmpStr);
 746
 747                                         tmpStr := ini.ReadString('Setting', 'LastModified', DateTimeToStr(ZERO_DATE));
 748                                         ThreadItem.LastModified := ConvertDateTimeString(tmpStr);
 749                                         ThreadItem.Count := ini.ReadInteger('Setting', 'Count', 0);
 750                                         ThreadItem.NewReceive := ini.ReadInteger('Setting', 'NewReceive', 0);
 751
 752                                         ThreadItem.Size := ini.ReadInteger('Setting', 'Size', 0);
 753                                         if(ThreadItem.Size = 0) and (FileExists(ThreadItem.GetThreadFileName)) then begin
 754                                                 try
 755                                                         ThreadItem.Size := GetFileSize(ThreadItem.GetThreadFileName) - ThreadItem.Count;
 756                                                 except
 757                                                 end;
 758                                         end;
 759
 760                     //\8f\84\89ñ\82Ì\90Ý\92è\82ÍRoundData\82Ì\95û\82ª\82â\82é\82©\82ç\8f\9f\8eè\82É\90Ý\92è\82µ\82Ä\82Í\83_\83\81\81I\81@by \82à\82¶\82ã
 761                                         //ThreadItem.Round := ini.ReadBool('Setting', 'Round', False);
 762                                         //ThreadItem.RoundName := ini.ReadString('Setting', 'RoundName', ThreadItem.RoundName);
 763                                         ThreadItem.UnRead := False;//ini.ReadBool('Setting', 'UnRead', False);
 764                                         ThreadItem.ScrollTop := ini.ReadInteger('Setting', 'ScrollTop', 0);
 765                                         ThreadItem.AllResCount := ini.ReadInteger('Setting', 'AllResCount', ThreadItem.Count);
 766                                         ThreadItem.NewResCount := ini.ReadInteger('Setting', 'NewResCount', 0);
 767                                         ThreadItem.AgeSage := TGikoAgeSage(ini.ReadInteger('Setting', 'AgeSage', Ord(gasNone)));
 768                                 finally
 769                                         ini.Free;
 770                                 end;
 771                                 DeleteFile(Boardpath + TmpFileList[i]);
 772                         end;
 773                 end;
 774
 775         finally
 776                 sl.Free;
 777                 FileList.Free;
 778                 TmpFileList.Free;
 779                 Board.Sorted := False;
 780         end;
 781         Board.IsThreadDatRead := True;
 782 end;
 783
 784 {!
 785 \brief \83X\83\8c\83b\83h\83C\83\93\83f\83b\83N\83X\83t\83@\83C\83\8b(Folder.idx)\8dì\90¬
 786 \param Board Folder.idx \82ð\8dì\90¬\82·\82é\94Â
 787 }
 788 procedure TGikoSys.CreateThreadDat(Board: TBoard);
 789 var
 790         i: integer;
 791         s: string;
 792         SubjectList: TStringList;
 793         sl: TStringList;
 794         Rec: TSubjectRec;
 795         FileName: string;
 796         cnt: Integer;
 797 begin
 798         if not FileExists(Board.GetSubjectFileName) then Exit;
 799         FileName := Board.GetFolderIndexFileName;
 800
 801         SubjectList := TStringList.Create;
 802         try
 803                 SubjectList.LoadFromFile(Board.GetSubjectFileName);
 804                 sl := TStringList.Create;
 805                 try
 806                         cnt := 1;
 807                         sl.BeginUpdate;
 808                         sl.Add(FOLDER_INDEX_VERSION);
 809                         for i := 0 to SubjectList.Count - 1 do begin
 810                                 Rec := DivideSubject(SubjectList[i]);
 811
 812                                 if (Trim(Rec.FFileName) = '') or (Trim(Rec.FTitle) = '') then
 813                                         Continue;
 814
 815                                 {s := Format('%x', [cnt]) + #1                                  //\94Ô\8d\86
 816                                          + Rec.FFileName + #1                                                           //\83t\83@\83C\83\8b\96¼
 817                                          + Rec.FTitle + #1                                                                      //\83^\83C\83g\83\8b
 818                                          + Format('%x', [Rec.FCount]) + #1      //\83J\83E\83\93\83g
 819                                          + Format('%x', [0]) + #1                                               //size
 820                                          + Format('%x', [0]) + #1                                               //RoundDate
 821                                          + Format('%x', [0]) + #1                                               //LastModified
 822                                          + Format('%x', [0]) + #1                                               //Kokomade
 823                                          + Format('%x', [0]) + #1                                               //NewReceive
 824                                          + '0' + #1                                                                                             //\96¢\8eg\97p
 825                                          + Format('%x', [0]) + #1                                               //UnRead
 826                                          + Format('%x', [0]) + #1                                               //ScrollTop
 827                                          + Format('%x', [Rec.FCount]) + #1      //AllResCount
 828                                          + Format('%x', [0]) + #1                                               //NewResCount
 829                                          + Format('%x', [0]);                                                           //AgeSage
 830                                 }
 831                                 s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 +
 832                                                         '%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
 833                                         [cnt,                   //\94Ô\8d\86
 834                                          Rec.FFileName, //\83t\83@\83C\83\8b\96¼
 835                                          Rec.FTitle,    //\83^\83C\83g\83\8b
 836                                          Rec.FCount,     //\83J\83E\83\93\83g
 837                                          0,             //size
 838                                          0,             //RoundDate
 839                                          0,                             //LastModified
 840                                          0,                             //Kokomade
 841                                          0,                             //NewReceive
 842                                          '0',                   //\96¢\8eg\97p
 843                                          0,                             //UnRead
 844                                          0,                             //ScrollTop
 845                                          Rec.FCount,    //AllResCount
 846                                          0,                             //NewResCount
 847                                          0]             //AgeSage
 848                                         );
 849
 850                                 sl.Add(s);
 851                                 inc(cnt);
 852                         end;
 853                         sl.EndUpdate;
 854                         sl.SaveToFile(FileName);
 855                 finally
 856                         sl.Free;
 857                 end;
 858         finally
 859                 SubjectList.Free;
 860         end;
 861 end;
 862
 863 {!
 864 \brief \83X\83\8c\83b\83h\83C\83\93\83f\83b\83N\83X(Thread.dat)\8f\91\82«\8d\9e\82Ý
 865 \param Thread.dat \82ð\8dì\90¬\82·\82é\94Â
 866 }
 867 procedure TGikoSys.WriteThreadDat(Board: TBoard);
 868 //const
 869 //      Values: array[Boolean] of string = ('0', '1');
 870 var
 871         i: integer;
 872         FileName: string;
 873         sl: TStringList;
 874         s: string;
 875         TmpFileList: TStringList;
 876 begin
 877         if not Board.IsThreadDatRead then
 878                 Exit;
 879         FileName := Board.GetFolderIndexFileName;
 880         ForceDirectoriesEx( ExtractFilePath( FileName ) );
 881
 882         sl := TStringList.Create;
 883         TmpFileList := TStringList.Create;
 884         TmpFileList.Sorted := true;
 885         try
 886         TmpFileList.BeginUpdate;
 887                 GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
 888         TmpFileList.EndUpdate;
 889                 sl.BeginUpdate;
 890                 sl.Add(FOLDER_INDEX_VERSION);
 891
 892                 // \83X\83\8c\94Ô\8d\86\95Û\91¶\82Ì\82½\82ß\83\\81[\83g
 893                 Sort.SortNoFlag := true;
 894                 Sort.SortOrder := true;
 895                 Sort.SortIndex := 0;
 896                 //Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
 897                 Board.CustomSort(ThreadItemSortProc);
 898
 899                 for i := 0 to Board.Count - 1 do begin
 900                         Board.Items[i].No := i + 1;
 901                         s := Format('%x'#1'%s'#1'%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x'#1 +
 902                                                         '%s'#1'%x'#1'%x'#1'%x'#1'%x'#1'%x',
 903                                         [Board.Items[i].No,                     //\94Ô\8d\86
 904                                          Board.Items[i].FileName, //\83t\83@\83C\83\8b\96¼
 905                                          Board.Items[i].Title,    //\83^\83C\83g\83\8b
 906                                          Board.Items[i].Count,     //\83J\83E\83\93\83g
 907                                          Board.Items[i].Size,             //size
 908                                          DateTimeToInt(Board.Items[i].RoundDate),             //RoundDate
 909                                          DateTimeToInt(Board.Items[i].LastModified),                            //LastModified
 910                                          Board.Items[i].Kokomade,                               //Kokomade
 911                                          Board.Items[i].NewReceive,                             //NewReceive
 912                                          '0',                   //\96¢\8eg\97p
 913                                          BoolToInt(Board.Items[i].UnRead),                              //UnRead
 914                                          Board.Items[i].ScrollTop,                              //ScrollTop
 915                                          Board.Items[i].AllResCount,    //AllResCount
 916                                          Board.Items[i].NewResCount,                            //NewResCount
 917                                          Ord(Board.Items[i].AgeSage)]             //AgeSage
 918                                         );
 919
 920                         sl.Add(s);
 921                 end;
 922                 sl.EndUpdate;
 923                 sl.SaveToFile(FileName);
 924
 925                 for i := 0 to TmpFileList.Count - 1 do begin
 926                         DeleteFile(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList[i]);
 927                 end;
 928
 929         finally
 930                 TmpFileList.Free;
 931                 sl.Free;
 932         end;
 933 end;
 934
 935 {!
 936 \brief Folder.idx \82ð 1 \8ds\89ð\8eß
 937 \param Line Folder.idx \82ð\8d\\90¬\82·\82é 1 \8ds
 938 \return \83X\83\8c\83b\83h\8fî\95ñ
 939 }
 940 function TGikoSys.ParseIndexLine(Line: string): TIndexRec;
 941 begin
 942         Result.FNo := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 943         Result.FFileName := RemoveToken(Line, #1);
 944         Result.FTitle := RemoveToken(Line, #1);
 945         Result.FCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 946         Result.FSize := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 947         Result.FRoundDate := IntToDateTime(StrToIntDef('$' + RemoveToken(Line, #1), ZERO_DATE));
 948         Result.FLastModified := IntToDateTime(StrToIntDef('$' + RemoveToken(Line, #1), ZERO_DATE));
 949         Result.FKokomade := StrToIntDef('$' + RemoveToken(Line, #1), -1);
 950         Result.FNewReceive := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 951         RemoveToken(Line, #1);//9: ;    //\96¢\8eg\97p
 952         Result.FUnRead := IntToBool(StrToIntDef('$' + RemoveToken(Line, #1), 0));
 953         Result.FScrollTop := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 954         Result.FAllResCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 955         Result.FNewResCount := StrToIntDef('$' + RemoveToken(Line, #1), 0);
 956         Result.FAgeSage := TGikoAgeSage(StrToIntDef('$' + RemoveToken(Line, #1), 0));
 957
 958 end;
 959
 960 {!
 961 \brief \8ew\92è\83t\83H\83\8b\83_\93à\82Ì\8ew\92è\83t\83@\83C\83\8b\88ê\97\97\82ð\8eæ\93¾\82·\82é
 962 \param Path      \8bN\93_\82Æ\82È\82é\83t\83H\83\8b\83_\83p\83X
 963 \param Mask      \83t\83@\83C\83\8b\96¼\82Ì\83}\83X\83N
 964 \param List      OUT:\8eæ\93¾\82³\82ê\82½\83t\83@\83C\83\8b\96¼\88ê\97\97\82ª\95Ô\82é
 965 \param SubDir    \92\86\82Ì\83t\83H\83\8b\83_\82Ü\82Å\8dÄ\8bA\93I\82É\83\8a\83X\83g\82·\82é\8fê\8d\87\82Í True
 966 \param IsPathAdd \83p\83X\95t\82«\82Å\83\8a\83X\83g\83A\83b\83v\82·\82é\8fê\8d\87\82Í True
 967
 968 Mask \82ð '*.txt' \82Ì\82æ\82¤\82É\8ew\92è\82·\82é\82±\82Æ\82Å\81A
 969 \93Á\92è\82Ì\83t\83@\83C\83\8b\96¼\82â\93Á\92è\82Ì\8ag\92£\8eq\82É\8di\82Á\82½\83\8a\83X\83g\83A\83b\83v\82ª\89Â\94\\82Å\82·\81B
 970
 971 \par \97á:
 972 \code
 973 GetFileList('c:\', '*.txt', list, True, True);
 974 \endcode
 975 }
 976 procedure TGikoSys.GetFileList(Path: string; Mask: string; var List: TStringList; SubDir: Boolean; IsPathAdd: Boolean);
 977 var
 978         rc: Integer;
 979         SearchRec : TSearchRec;
 980         s: string;
 981         maskExt: string;
 982 begin
 983         //maskExt := Copy(Mask, 1, Length(Mask) - 1);
 984                 maskExt := Mask;
 985         Path := IncludeTrailingPathDelimiter(Path);
 986         rc := FindFirst(Path + '*.*', faAnyfile, SearchRec);
 987         try
 988                 while rc = 0 do begin
 989                         if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin
 990                                 s := Path + SearchRec.Name;
 991                                 //if (SearchRec.Attr and faDirectory > 0) then
 992                                 //      s := IncludeTrailingPathDelimiter(s)
 993
 994                                 if (SearchRec.Attr and faDirectory = 0) and (MatchesMask(s, Mask)) then
 995                                                 if IsPathAdd then
 996                                                         List.Add(s)
 997                                                 else
 998                                                         List.Add(SearchRec.Name);
 999                                 if SubDir and (SearchRec.Attr and faDirectory > 0) then
1000                                         GetFileList(s, Mask, List, True, IsPathAdd);
1001                         end;
1002                         rc := FindNext(SearchRec);
1003                 end;
1004         finally
1005                 SysUtils.FindClose(SearchRec);
1006         end;
1007         List.Sort;
1008 end;
1009
1010 {!
1011 \breif \8ew\92è\83t\83H\83\8b\83_\93à\82Ì\8ew\92è\83t\83@\83C\83\8b\88ê\97\97\82ð\8eæ\93¾\82·\82é\81B
1012                          \83T\83u\83t\83H\83\8b\83_\82Í\8c\9f\8dõ\82µ\82È\82¢
1013 \param Path      \8bN\93_\82Æ\82È\82é\83t\83H\83\8b\83_\83p\83X
1014 \param Mask      \83t\83@\83C\83\8b\96¼\82Ì\83}\83X\83N
1015 \param List      OUT:\8eæ\93¾\82³\82ê\82½\83t\83@\83C\83\8b\96¼\88ê\97\97\82ª\95Ô\82é
1016 \param IsPathAdd \83p\83X\95t\82«\82Å\83\8a\83X\83g\83A\83b\83v\82·\82é\8fê\8d\87\82Í True
1017 \note \8dÄ\8bN\8ew\92è\89Â\94\\82È GetFileList() \82ª\82 \82é\82Ì\82Å\82±\82Ì\8aÖ\90\94\82Í\95s\97v?
1018 \par \97á
1019 \code
1020 GetFileList('c:\', '*.txt', list, True);
1021 \endcode
1022 }
1023 procedure TGikoSys.GetFileList(Path: string; Mask: string; var List: TStringList; IsPathAdd: Boolean);
1024 var
1025         rc: Integer;
1026         SearchRec : TSearchRec;
1027         s: string;
1028 begin
1029         Path := IncludeTrailingPathDelimiter(Path);
1030         rc := FindFirst(Path + Mask, faAnyfile, SearchRec);
1031         try
1032                 while rc = 0 do begin
1033                         if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin
1034                                 s := Path + SearchRec.Name;
1035
1036                                 if (SearchRec.Attr and faDirectory = 0) then
1037                                                 if IsPathAdd then
1038                                                         List.Add(s)
1039                                                 else
1040                                                         List.Add(SearchRec.Name);
1041                         end;
1042                         rc := FindNext(SearchRec);
1043                 end;
1044         finally
1045                 SysUtils.FindClose(SearchRec);
1046         end;
1047         List.Sort;
1048 end;
1049
1050 {!
1051 \brief \8ew\92è\83t\83H\83\8b\83_\93à\82Ì\83f\83B\83\8c\83N\83g\83\8a\88ê\97\97\82ð\8eæ\93¾\82·\82é
1052 \param Path      \8bN\93_\82Æ\82È\82é\83t\83H\83\8b\83_\83p\83X
1053 \param Mask      \83t\83H\83\8b\83_\96¼\82Ì\83}\83X\83N
1054 \param List      OUT:\8eæ\93¾\82³\82ê\82½\83t\83H\83\8b\83_\96¼\88ê\97\97\82ª\95Ô\82é
1055 \param SubDir    \92\86\82Ì\83t\83H\83\8b\83_\82Ü\82Å\8dÄ\8bA\93I\82É\83\8a\83X\83g\82·\82é\8fê\8d\87\82Í True
1056
1057 Mask \82ð '*.txt' \82Ì\82æ\82¤\82É\8ew\92è\82·\82é\82±\82Æ\82Å\81A
1058 \93Á\92è\82Ì\83t\83@\83C\83\8b\96¼\82â\93Á\92è\82Ì\8ag\92£\8eq\82É\8di\82Á\82½\83\8a\83X\83g\83A\83b\83v\82ª\89Â\94\\82Å\82·\81B
1059
1060 \par \97á:
1061 \code
1062 GetDirectoryList('c:\', '*.txt', list, True);
1063 \endcode
1064 }
1065 procedure TGikoSys.GetDirectoryList(Path: string; Mask: string; List: TStringList; SubDir: Boolean);
1066 var
1067         rc: Integer;
1068         SearchRec : TSearchRec;
1069         s: string;
1070 begin
1071         Path := IncludeTrailingPathDelimiter(Path);
1072         rc := FindFirst(Path + '*.*', faDirectory, SearchRec);
1073         try
1074                 while rc = 0 do begin
1075                         if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin
1076                                 s := Path + SearchRec.Name;
1077                                 //if (SearchRec.Attr and faDirectory > 0) then
1078                                 //      s := IncludeTrailingPathDelimiter(s)
1079
1080                                 if (SearchRec.Attr and faDirectory > 0) and (MatchesMask(s, Mask)) then
1081                                         List.Add( IncludeTrailingPathDelimiter( s ) );
1082                                 if SubDir and (SearchRec.Attr and faDirectory > 0) then
1083                                         GetDirectoryList(s, Mask, List, True);
1084                         end;
1085                         rc := FindNext(SearchRec);
1086                 end;
1087         finally
1088                 SysUtils.FindClose(SearchRec);
1089         end;
1090 end;
1091
1092
1093 {!
1094 \brief Subject.txt \88ê\8ds\82ð\89ð\8eß
1095 \param Line Subject.txt \82ð\8d\\90¬\82·\82é 1 \8ds
1096 \return     \83X\83\8c\83b\83h\8fî\95ñ
1097 }
1098 function TGikoSys.DivideSubject(Line: string): TSubjectRec;
1099 var
1100         i: integer;
1101         ws: WideString;
1102         Delim: string;
1103         LeftK: string;
1104         RightK: string;
1105 begin
1106         Result.FCount := 0;
1107
1108         if AnsiPos('<>', Line) = 0 then
1109                 Delim := ','
1110         else
1111                 Delim := '<>';
1112         Result.FFileName := RemoveToken(Line, Delim);
1113         Result.FTitle := Trim(RemoveToken(Line, Delim));
1114
1115         ws := Result.FTitle;
1116         if Copy(ws, Length(ws), 1) = ')' then begin
1117                 LeftK := '(';
1118                 RightK := ')';
1119         end else if Copy(ws, Length(ws)-1, 2) = '\81j' then begin
1120                 LeftK := '\81i';
1121                 RightK := '\81j';
1122         end else if Copy(ws, Length(ws), 1) = '>' then begin
1123                 LeftK := '<';
1124                 RightK := '>';
1125         end;
1126         for i := Length(ws) - 1 downto 1 do begin
1127                 if Copy(ws, i, Length(LeftK)) = LeftK then begin
1128                         Result.FTitle := TrimRight(Copy(ws, 1, i - 1));
1129                         ws := Copy(ws, i + Length(LeftK), Length(ws) - i - Length(RightK));
1130                         if IsNumeric(ws) then
1131                                 Result.FCount := StrToInt(ws);
1132                         //Delete(Result.FTitle, i, Length(LeftK) + Length(ws) + Length(RightK));
1133                         break;
1134                 end;
1135         end;
1136 end;
1137
1138 {!
1139 \brief URL\82©\82çBBSID\82ð\8eæ\93¾
1140 \param url BBSID \82ð\8eæ\93¾\82·\82é URL
1141 \return    BBSID
1142 }
1143 function TGikoSys.UrlToID(url: string): string;
1144 var
1145         i: integer;
1146 begin
1147         Result := '';
1148         url := Trim(url);
1149
1150         if url = '' then Exit;
1151         try
1152                 url := Copy(url, 0, Length(url) - 1);
1153                 for i := Length(url) downto 0 do begin
1154                         if url[i] = '/' then begin
1155                                 Result := Copy(url, i + 1, Length(url));
1156                                 Break;
1157                         end;
1158                 end;
1159         except
1160                 Result := '';
1161         end;
1162 end;
1163
1164 {!
1165 \brief URL\82©\82ç\8dÅ\8cã\82Ì\97v\91f\82ð\8dí\8f\9c
1166 \param url \89ð\8eß\82·\82é URL
1167 \return    \90Ø\82è\8eæ\82ç\82ê\82½\8cã\82Ì URL
1168
1169 URL \82©\82ç BBSID\88È\8aO\82Ì\95\94\95ª\82ð\8eæ\93¾\82·\82é\82Ì\82É\8eg\97p\82µ\82Ü\82·\81B
1170 }
1171 function TGikoSys.UrlToServer(url: string): string;
1172 var
1173         i: integer;
1174         wsURL: WideString;
1175 begin
1176         Result := '';
1177         wsURL := url;
1178         wsURL := Trim(wsURL);
1179
1180         if wsURL = '' then exit;
1181
1182         if Copy(wsURL, Length(wsURL), 1) = '/' then
1183                 wsURL := Copy(wsURL, 0, Length(wsURL) - 1);
1184
1185         for i := Length(wsURL) downto 0 do begin
1186                 if wsURL[i] = '/' then begin
1187                         Result := Copy(wsURL, 0, i);
1188                         break;
1189                 end;
1190         end;
1191 end;
1192
1193 {!
1194 \brief \83f\83B\83\8c\83N\83g\83\8a\82ª\91¶\8dÝ\82·\82é\82©\83`\83F\83b\83N
1195 \param Name \91¶\8dÝ\82ð\8am\94F\82·\82é\83t\83H\83\8b\83_\83p\83X
1196 \return     \83t\83H\83\8b\83_\82ª\91¶\8dÝ\82·\82é\82È\82ç True
1197 }
1198 function TGikoSys.DirectoryExistsEx(const Name: string): Boolean;
1199 var
1200         Code: Integer;
1201 begin
1202         Code := GetFileAttributes(PChar(Name));
1203         Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
1204 end;
1205
1206 {!
1207 \brief \83f\83B\83\8c\83N\83g\83\8a\8dì\90¬\81i\95¡\90\94\8aK\91w\91Î\89\9e\81j
1208 \param Dir \8dì\90¬\82·\82é\83p\83X
1209 \return    \8dì\90¬\82É\90¬\8c÷\82µ\82½\8fê\8d\87\82Í True
1210 }
1211 function TGikoSys.ForceDirectoriesEx(Dir: string): Boolean;
1212 begin
1213         Result := True;
1214         if Length(Dir) = 0 then
1215                 raise Exception.Create('\83t\83H\83\8b\83_\82ª\8dì\90¬\8fo\97\88\82Ü\82¹\82ñ');
1216         Dir := ExcludeTrailingPathDelimiter(Dir);
1217         if (Length(Dir) < 3) or DirectoryExistsEx(Dir)
1218                 or (ExtractFilePath(Dir) = Dir) then Exit; // avoid 'xyz:\' problem.
1219         Result := ForceDirectoriesEx(ExtractFilePath(Dir)) and CreateDir(Dir);
1220 end;
1221
1222 {!
1223 \brief \95¶\8e\9a\97ñ\82©\82ç\83g\81[\83N\83\93\82Ì\90Ø\82è\8fo\82µ\81i\8f\89\8aú\8f\88\97\9d\81j
1224                          FDelphi\82©\82ç\82Ì\83p\83N\83\8a
1225 \param s   \8c³\82É\82È\82é\83L\83\83\83\89\83N\83^
1226 \param sep \8bæ\90Ø\82è\82É\82È\82é\95¶\8e\9a\97ñ
1227 \param Rec OUT:\95¶\8e\9a\97ñ\91\96\8d¸\8fî\95ñ\82ª\95Ô\82é
1228 \return    \90Ø\82è\8fo\82µ\82½\83g\81[\83N\83\93
1229 \todo Split, RemoveToken, GetTokenIndex, NthField \8ds\82«
1230 }
1231 function TGikoSys.StrTokFirst(const s:string; const sep: TStrTokSeparator; var Rec: TStrTokRec): string;
1232 begin
1233         Rec.Str := s;
1234         Rec.Pos := 1;
1235         Result := StrTokNext(sep, Rec);
1236 end;
1237
1238 {!
1239 \brief \95¶\8e\9a\97ñ\82©\82ç\83g\81[\83N\83\93\82Ì\90Ø\82è\8fo\82µ
1240                          FDelphi\82©\82ç\82Ì\83p\83N\83\8a
1241 \param sep \8bæ\90Ø\82è\82É\82È\82é\83L\83\83\83\89\83N\83^
1242 \param Rec IN/OUT:StrTokFirst\82Å\8dì\90¬\82³\82ê\82½\95¶\8e\9a\97ñ\91\96\8d¸\8fî\95ñ
1243 \return    \90Ø\82è\8fo\82µ\82½\83g\81[\83N\83\93
1244 \todo Split, RemoveToken, GetTokenIndex, NthField \8ds\82«
1245 }
1246 function TGikoSys.StrTokNext(const sep: TStrTokSeparator; var Rec: TStrTokRec): string;
1247 var
1248         Len, I: Integer;
1249 begin
1250         with Rec do     begin
1251                 Len := Length(Str);
1252                 Result := '';
1253                 if Len >= Pos then begin
1254                         while (Pos <= Len) and (Str[Pos] in sep) do begin
1255                          Inc(Pos);
1256                         end;
1257                         I := Pos;
1258                         while (Pos<= Len) and not (Str[Pos] in sep) do begin
1259                                 if IsDBCSLeadByte(Byte(Str[Pos])) then begin
1260                                         Inc(Pos);
1261                                 end;
1262                                 Inc(Pos);
1263                         end;
1264                         Result := Copy(Str, I, Pos - I);
1265                         while (Pos <= Len) and (Str[Pos] in sep) do begin// \82±\82ê\82Í\82¨\8dD\82Ý
1266                                 Inc(Pos);
1267                         end;
1268                 end;
1269         end;
1270 end;
1271
1272 {!
1273 \brief \83t\83@\83C\83\8b\83T\83C\83Y\8eæ\93¾
1274 \param FileName \83t\83@\83C\83\8b\83T\83C\83Y\82ð\8eæ\93¾\82·\82é\83t\83@\83C\83\8b\83p\83X
1275 \return         \83t\83@\83C\83\8b\83T\83C\83Y(bytes)
1276 }
1277 function TGikoSys.GetFileSize(FileName : string): longint;
1278 var
1279         F : File;
1280 begin
1281         try
1282                 if not FileExists(FileName) then begin
1283                         Result := 0;
1284                         Exit;
1285                 end;
1286                 Assign(F, FileName);
1287                 Reset(F, 1);
1288                 Result := FileSize(F);
1289                 CloseFile(F);
1290         except
1291                 Result := 0;
1292         end;
1293 end;
1294
1295 {!
1296 \brief \83e\83L\83X\83g\83t\83@\83C\83\8b\82Ì\8ds\90\94\82ð\8eæ\93¾
1297 \param FileName \8ds\90\94\82ð\8eæ\93¾\82·\82é\83t\83@\83C\83\8b\83p\83X
1298 \return         \8ds\90\94
1299 \todo \83\81\83\82\83\8a\83}\83b\83v\83h\83t\83@\83C\83\8b\8ds\82«
1300 }
1301 function TGikoSys.GetFileLineCount(FileName : string): longint;
1302 var
1303         sl: TStringList;
1304 begin
1305         sl := TStringList.Create;
1306         try
1307                 try
1308                         sl.LoadFromFile(FileName);
1309                         Result := sl.Count;
1310                 except
1311                         Result := 0;
1312                 end;
1313         finally
1314                 sl.Free;
1315         end;
1316
1317 end;
1318
1319 {!
1320 \brief \83t\83@\83C\83\8b\82©\82ç\8ew\92è\8ds\82ð\8eæ\93¾
1321 \param FileName \83t\83@\83C\83\8b\82Ì\83p\83X
1322 \param Line     \8ew\92è\8ds
1323 \return         \8ew\92è\82³\82ê\82½ 1 \8ds
1324 \todo \83\81\83\82\83\8a\83}\83b\83v\83h\83t\83@\83C\83\8b\8ds\82«
1325 }
1326 function TGikoSys.ReadThreadFile(FileName: string; Line: Integer): string;
1327 var
1328         fileTmp : TStringList;
1329 begin
1330         Result := '';
1331         if FileExists(FileName) then begin
1332                 fileTmp := TStringList.Create;
1333                 try
1334                         try
1335                                 fileTmp.LoadFromFile( FileName );
1336                                 if ( Line       >= 1 ) and ( Line       < fileTmp.Count + 1 ) then begin
1337                                         Result := fileTmp.Strings[ Line-1 ];
1338                                 end;
1339                         except
1340                                 //on EFOpenError do Result := '';
1341                         end;
1342                 finally
1343                         fileTmp.Free;
1344                 end;
1345         end;
1346 end;
1347
1348 {!
1349 \brief \83V\83X\83e\83\80\83\81\83j\83\85\81[\83t\83H\83\93\83g\82Ì\91®\90«\82ð\8eæ\93¾
1350 \param Font OUT:\8eæ\93¾\82µ\82½\83t\83H\83\93\83g\91®\90«\82ª\95Ô\82é
1351 }
1352 procedure TGikoSys.MenuFont(Font: TFont);
1353 var
1354         lf: LOGFONT;
1355         nm: NONCLIENTMETRICS;
1356 begin
1357         nm.cbSize := sizeof(NONCLIENTMETRICS);
1358
1359         SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nm, 0);
1360         lf := nm.lfMenuFont;
1361
1362         Font.Name := lf.lfFaceName;
1363         Font.Height := lf.lfHeight;
1364         Font.Style := [];
1365         if lf.lfWeight >= 700 then
1366                 Font.Style := Font.Style + [fsBold];
1367         if lf.lfItalic = 1 then
1368                 Font.Style := Font.Style + [fsItalic];
1369 end;
1370
1371 {!
1372 \brief \90æ\93ª\82Ì\83g\81[\83N\83\93\82ð\90Ø\82è\8fo\82µ
1373 \param s         IN/OUT:\8c³\82É\82È\82é\95¶\8e\9a\97ñ\81A\90Ø\82è\8fo\82µ\82½\8cã\82Ì\8ec\82è\82Ì\95¶\8e\9a\97ñ
1374 \param delimiter \8bæ\90Ø\82è\82É\82È\82é\95¶\8e\9a\97ñ
1375 \return          \90Ø\82è\8fo\82µ\82½\95¶\8e\9a\97ñ
1376
1377 \82Ç\82±\82©\82Ì\83T\83C\83g\82©\82ç\82Ì\83p\83N\83\8a
1378 }
1379 function TGikoSys.RemoveToken(var s: string;const delimiter: string): string;
1380 var
1381         p: Integer;
1382 begin
1383         p := AnsiPos(delimiter, s);
1384         if p = 0 then
1385                 Result := s
1386         else
1387                 Result := Copy(s, 1, p - 1);
1388         Delete(s, 1, Length(Result) + Length(delimiter));
1389 end;
1390
1391
1392 {!
1393 \brief n \8cÂ\96Ú\82Ì\83g\81[\83N\83\93\82ð\90Ø\82è\8fo\82µ
1394 \param s     \8c³\82É\82È\82é\95¶\8e\9a\97ñ
1395 \param index 0 \82©\82ç\8en\82Ü\82é\83C\83\93\83f\83b\83N\83X(n \8cÂ\96Ú\82Ì n)
1396 \return \90Ø\82è\8fo\82µ\82½\83g\81[\83N\83\93
1397
1398 \82Ç\82±\82©\82Ì\83T\83C\83g\82©\82ç\82Ì\83p\83N\83\8a
1399 }
1400 function TGikoSys.GetTokenIndex(s: string; delimiter: string; index: Integer): string;
1401 var
1402         i: Integer;
1403 begin
1404         Result := '';
1405         for i := 0 to index do
1406                 Result := RemoveToken(s, delimiter);
1407 end;
1408
1409
1410 //\83C\83\93\83f\83b\83N\83X\96¢\8dX\90V\83o\83b\83t\83@\82ð\83t\83\89\83b\83V\83\85\81I
1411 {procedure TGikoSys.FlashExitWrite;
1412 var
1413         i: Integer;
1414 begin
1415         //\83X\83\8c\83b\83h\83f\81[\83^\83t\83@\83C\83\8b\82ð\8dX\90V
1416         for i := 0 to FExitWrite.Count - 1 do
1417                 WriteThreadDat(FExitWrite[i]);
1418         FExitWrite.Clear;
1419 end;}
1420
1421 {!
1422 \brief \83X\83\8c\96¼\82È\82Ç\82ð\92Z\82¢\96¼\91O\82É\95Ï\8a·\82·\82é
1423 \param LongName \8c³\82É\82È\82é\95¶\8e\9a\97ñ
1424 \param ALength  \8eû\82ß\82é\95¶\8e\9a\97ñ\92·(bytes)
1425 \return         \95Ï\8a·\82³\82ê\82½\95¶\8e\9a\97ñ
1426
1427 from HotZonu
1428 }
1429 function TGikoSys.GetShortName(const LongName: string; ALength: integer): string;
1430 const
1431         ERASECHAR : array [1..39] of string =
1432                 ('\81\99','\81\9a','\81¡','\81 ','\81\9f','\81\9e','\81Q','\81\94','\81£','\81¥',
1433                  '\81¢','\81¤','\81\9c','\81\9b','\81\9d','\81y','\81z','\81ô','\81s','\81t',
1434                  '\81g','\81h','\81k','\81l','\81e','\81f','\81\83','\81\84','\81á','\81â',
1435                  '\81o','\81p','\81q','\81r','\81w','\81x','\81¬','\81c', '\81@');
1436 var
1437         Chr : array [0..255]    of      char;
1438         S : string;
1439         i : integer;
1440 begin
1441         s := Trim(LongName);
1442         if (Length(s) <= ALength) then begin
1443                 Result := s;
1444         end else begin
1445                 S := s;
1446                 for i := Low(ERASECHAR) to      High(ERASECHAR) do      begin
1447                         S := CustomStringReplace(S, ERASECHAR[i], '');
1448                 end;
1449                 if (Length(S) <= ALength) then begin
1450                         Result := S;
1451                 end else begin
1452                         Windows.LCMapString(
1453                                         GetUserDefaultLCID(),
1454                                         LCMAP_HALFWIDTH,
1455                                         PChar(S),
1456                                         Length(S) + 1,
1457                                         chr,
1458                                         Sizeof(chr)
1459                                         );
1460                         S := Chr;
1461                         S := Copy(S,1,ALength);
1462                         while true do begin
1463                                 if (ByteType(S, Length(S)) = mbLeadByte ) then begin
1464                                         S := Copy(S, 1, Length(S) - 1);
1465                                 end else begin
1466                                         Break;
1467                                 end;
1468                         end;
1469                         Result := S;
1470                 end;
1471         end;
1472 end;
1473
1474 {!
1475 \brief Boolean \82ð Integer \82É\95Ï\8a·
1476 \return False..0, True..1
1477 }
1478 function TGikoSys.BoolToInt(b: Boolean): Integer;
1479 begin
1480         Result := IfThen(b, 1, 0);
1481 end;
1482
1483 {!
1484 \brief Integer \82ð Boolean \82É\95Ï\8a·
1485 \return 1..True, other..False
1486 \todo 0..False, other..True \82Ì\95û\82ª\82¢\82¢\82Ì\82Å\82Í?
1487                         (\82±\82Ì\8ed\97l\82É\88Ë\91¶\82µ\82Ä\82¢\82é\82©\82à\82µ\82ê\82È\82¢\82Ì\82Å\96¢\8fC\90³)
1488 }
1489 function TGikoSys.IntToBool(i: Integer): Boolean;
1490 begin
1491         Result := i = 1;
1492 end;
1493
1494 {!
1495 \brief gzip\82Å\88³\8fk\82³\82ê\82½\82Ì\82ð\96ß\82·
1496 \param ResStream       \93Ç\82Ý\8d\9e\82Þ\83X\83g\83\8a\81[\83\80
1497 \param ContentEncoding \83G\83\93\83R\81[\83f\83B\83\93\83O
1498 \return                \93W\8aJ\82³\82ê\82½\95¶\8e\9a\97ñ
1499 }
1500 function TGikoSys.GzipDecompress(ResStream: TStream; ContentEncoding: string): string;
1501 const
1502         BUF_SIZE = 4096;
1503 var
1504         GZipStream: TGzipDecompressStream;
1505         TextStream: TStringStream;
1506         buf: array[0..BUF_SIZE - 1] of Byte;
1507         cnt: Integer;
1508         s: string;
1509         i, ln: Integer;
1510 begin
1511         Result := '';
1512         TextStream := TStringStream.Create('');
1513         try
1514 //\83m\81[\83g\83\93\83E\83\93\83`\83E\83B\83\8b\83X2003\91Î\8dô(x-gzip\82Æ\82©\82É\82È\82é\82Ý\82½\82¢)
1515 //              if LowerCase(Trim(ContentEncoding)) = 'gzip' then begin
1516                 if AnsiPos('gzip', LowerCase(Trim(ContentEncoding))) > 0 then begin
1517                         ResStream.Position := 0;
1518                         GZipStream := TGzipDecompressStream.Create(TextStream);
1519                         try
1520                                 repeat
1521                                         FillChar(buf, BUF_SIZE, 0);
1522                                         cnt := ResStream.Read(buf, BUF_SIZE);
1523                                         if cnt > 0 then
1524                                                 GZipStream.Write(buf, BUF_SIZE);
1525                                 until cnt = 0;
1526                         finally
1527                                 GZipStream.Free;
1528                         end;
1529                 end else begin
1530                         ResStream.Position := 0;
1531                         repeat
1532                                 FillChar(buf, BUF_SIZE, 0);
1533                                 cnt := ResStream.Read(buf, BUF_SIZE);
1534                                 if cnt > 0 then
1535                                         TextStream.Write(buf, BUF_SIZE);
1536                         until cnt = 0;
1537                 end;
1538
1539                 //NULL\95¶\8e\9a\82ð"*"\82É\82·\82é
1540                 s := TextStream.DataString;
1541                 i := Length(s);
1542                 ln := i;
1543                 while (i > 0) and (s[i] = #0) do
1544                         Dec(i);
1545                 Delete(s, i + 1, ln - i);
1546
1547                 s := MojuUtils.CustomStringReplace(s, #0, '*');
1548
1549                 Result := s;
1550         finally
1551                 TextStream.Free;
1552         end;
1553 end;
1554
1555 {!
1556 \brief \83A\83N\83V\83\87\83\93\82É\83V\83\87\81[\83g\83J\83b\83g\83L\81[\82ð\90Ý\92è
1557 \param ActionList \90Ý\92è\82·\82é\83A\83N\83V\83\87\83\93\88ê\97\97
1558 \param FileName Ini\83t\83@\83C\83\8b\82Ì\96¼\91O
1559 }
1560 procedure TGikoSys.LoadKeySetting(ActionList: TActionList; FileName: String);
1561 const
1562         STD_SEC = 'KeySetting';
1563 var
1564         i: Integer;
1565         ini: TMemIniFile;
1566         ActionName: string;
1567         ActionKey: Integer;
1568         SecList: TStringList;
1569         Component: TComponent;
1570 begin
1571         if not FileExists(fileName) then
1572                 Exit;
1573         SecList := TStringList.Create;
1574         ini := TMemIniFile.Create(fileName);
1575         try
1576                 ini.ReadSection(STD_SEC, SecList);
1577                 for i := 0 to SecList.Count - 1 do begin
1578                         ActionName := SecList[i];
1579                         ActionKey := ini.ReadInteger(STD_SEC, ActionName, -1);
1580                         if ActionKey <> -1 then begin
1581                                 Component := ActionList.Owner.FindComponent(ActionName);
1582                                 if TObject(Component) is TAction then begin
1583                                         TAction(Component).ShortCut := ActionKey;
1584                                 end;
1585                         end;
1586                 end;
1587         finally
1588                 ini.Free;
1589                 SecList.Free;
1590         end;
1591 end;
1592
1593 {!
1594 \brief \83A\83N\83V\83\87\83\93\82É\90Ý\92è\82³\82ê\82Ä\82¢\82é\83V\83\87\81[\83g\83J\83b\83g\83L\81[\82ð\83t\83@\83C\83\8b\82É\95Û\91¶
1595 \param ActionList \95Û\91¶\82·\82é\83A\83N\83V\83\87\83\93\88ê\97\97
1596 \param FileName Ini\83t\83@\83C\83\8b\96¼
1597
1598 ActionList \82É\90Ý\92è\82³\82ê\82Ä\82¢\82é\83V\83\87\81[\83g\83J\83b\83g\83L\81[\82ð FileName \82É\95Û\91¶\82µ\82Ü\82·\81B
1599 }
1600 procedure TGikoSys.SaveKeySetting(ActionList: TActionList; FileName: String);
1601 const
1602         STD_SEC = 'KeySetting';
1603 var
1604         i: Integer;
1605         ini: TMemIniFile;
1606 begin
1607         ini := TMemIniFile.Create(GetConfigDir + FileName);
1608         try
1609                 for i := 0 to ActionList.ActionCount - 1 do begin
1610                         if ActionList.Actions[i].Tag = -1 then
1611                                 Continue;
1612                         ini.WriteInteger(STD_SEC, ActionList.Actions[i].Name, TAction(ActionList.Actions[i]).ShortCut);
1613                 end;
1614                 ini.UpdateFile;
1615         finally
1616                 ini.Free;
1617         end;
1618 end;
1619
1620
1621 {!
1622 \brief \83v\83\8d\83Z\83X\82Ì\90¶\90¬
1623 \param AppPath \8bN\93®\82·\82é\83v\83\8d\83Z\83X\82Ì\83t\83@\83C\83\8b\83p\83X
1624 \param Param   AppPath \82É\93n\82·\88ø\90\94
1625 }
1626 procedure TGikoSys.CreateProcess(const AppPath: string; const Param: string);
1627 var
1628         PI: TProcessInformation;
1629         SI: TStartupInfo;
1630         Path: string;
1631 begin
1632         Path := '"' + AppPath + '"';
1633         if Param <> '' then
1634                 Path := Path + ' ' + Param;
1635
1636         SI.Cb := SizeOf(Si);
1637         SI.lpReserved   := nil;
1638         SI.lpDesktop     := nil;
1639         SI.lpTitle               := nil;
1640         SI.dwFlags               := 0;
1641         SI.cbReserved2 := 0;
1642         SI.lpReserved2 := nil;
1643         SI.dwysize               := 0;
1644         Windows.CreateProcess(nil,
1645                                                                 PChar(Path),
1646                                                                 nil,
1647                                                                 nil,
1648                                                                 False,
1649                                                                 0,
1650                                                                 nil,
1651                                                                 nil,
1652                                                                 SI,
1653                                                                 PI);
1654 end;
1655
1656 {!
1657 \brief Web \83u\83\89\83E\83U\82ð\8bN\93®
1658 \param URL         Web \83u\83\89\83E\83U\82Å\95\\8e¦\82·\82é URL
1659 \param BrowserType \83u\83\89\83E\83U\82Ì\83^\83C\83v(IE \82©\82Ç\82¤\82©)
1660 }
1661 procedure TGikoSys.OpenBrowser(URL: string; BrowserType: TGikoBrowserType);
1662 begin
1663         case BrowserType of
1664                 gbtIE:
1665                         HlinkNavigateString(nil, PWideChar(WideString(URL)));
1666                 gbtUserApp, gbtAuto:
1667                         if (Setting.URLApp) and (FileExists(Setting.URLAppFile)) then
1668                                 GikoSys.CreateProcess(Setting.URLAppFile, URL)
1669                         else
1670                                 HlinkNavigateString(nil, PWideChar(WideString(URL)));
1671         end;
1672 end;
1673
1674 {!
1675 \brief \95¶\8e\9a\8eÀ\91Ì\8eQ\8fÆ\82ð\83f\83R\81[\83h
1676 \param AStr \83f\83R\81[\83h\82·\82é\95¶\8e\9a\97ñ
1677 \return     \83f\83R\81[\83h\82³\82ê\82½\95¶\8e\9a\97ñ
1678 }
1679 function TGikoSys.HTMLDecode(const AStr: String): String;
1680 var
1681         Sp, Rp, Cp, Tp: PChar;
1682         S: String;
1683         I, Code: Integer;
1684         Num: Boolean;
1685 begin
1686         SetLength(Result, Length(AStr));
1687         Sp := PChar(AStr);
1688         Rp := PChar(Result);
1689         //Cp := Sp;
1690         try
1691                 while Sp^ <> #0 do begin
1692                         case Sp^ of
1693                                 '&': begin
1694                                                          //Cp := Sp;
1695                                                          Inc(Sp);
1696                                                          case Sp^ of
1697                                                                  'a': if AnsiStrPos(Sp, 'amp;') = Sp then
1698                                                                                         begin
1699                                                                                                 Inc(Sp, 3);
1700                                                                                                 Rp^ := '&';
1701                                                                                         end;
1702                                                                  'l',
1703                                                                  'g': if (AnsiStrPos(Sp, 'lt;') = Sp) or (AnsiStrPos(Sp, 'gt;') = Sp) then
1704                                                                                         begin
1705                                                                                                 Cp := Sp;
1706                                                                                                 Inc(Sp, 2);
1707                                                                                                 while (Sp^ <> ';') and (Sp^ <> #0) do
1708                                                                                                         Inc(Sp);
1709                                                                                                 if Cp^ = 'l' then
1710                                                                                                         Rp^ := '<'
1711                                                                                                 else
1712                                                                                                         Rp^ := '>';
1713                                                                                         end;
1714                                                                  'q': if AnsiStrPos(Sp, 'quot;') = Sp then
1715                                                                                         begin
1716                                                                                                 Inc(Sp,4);
1717                                                                                                 Rp^ := '"';
1718                                                                                         end;
1719                                                                  '#': begin
1720                                                                                                 Tp := Sp;
1721                                                                                                 Inc(Tp);
1722                                                                                                 Num := IsNumeric(Copy(Tp, 1, 1));
1723                                                                                                 while (Sp^ <> ';') and (Sp^ <> #0) do begin
1724                                                                                                         if (Num) and (not IsNumeric(Copy(Sp, 1, 1))) then
1725                                                                                                                 Break;
1726                                                                                                         Inc(Sp);
1727                                                                                                 end;
1728                                                                                                 SetString(S, Tp, Sp - Tp);
1729                                                                                                 Val(S, I, Code);
1730                                                                                                 Rp^ := Chr((I));
1731                                                                                         end;
1732                                                          //      else
1733                                                                          //raise EConvertError.CreateFmt(sInvalidHTMLEncodedChar,
1734                                                                                  //[Cp^ + Sp^, Cp - PChar(AStr)])
1735                                                          end;
1736                                          end
1737                         else
1738                                 Rp^ := Sp^;
1739                         end;
1740                         Inc(Rp);
1741                         Inc(Sp);
1742                 end;
1743         except
1744 //              on E:EConvertError do
1745 //                      raise EConvertError.CreateFmt(sInvalidHTMLEncodedChar,
1746 //                              [Cp^ + Sp^, Cp - PChar(AStr)])
1747         end;
1748         SetLength(Result, Rp - PChar(Result));
1749 end;
1750
1751 {!
1752 \brief HTML \82Ì\83A\83\93\83J\81[\83^\83O\82©\82ç URL \82ð\8eæ\93¾
1753 \param s URL \82ð\8eæ\93¾\82·\82é HTML
1754 \return  \8eæ\93¾\82µ\82½ URL
1755 }
1756 function TGikoSys.GetHRefText(s: string): string;
1757 var
1758         Index: Integer;
1759         Index2: Integer;
1760 begin
1761         Result := '';
1762         s := Trim(s);
1763         if s = '' then
1764                 Exit;
1765
1766         Index := AnsiPos('href', LowerCase(s));
1767         if Index = 0 then
1768                 Exit;
1769         s := Trim(Copy(s, Index + 4, Length(s)));
1770         s := Trim(Copy(s, 2, Length(s)));
1771
1772         //\8en\82ß\82Ì\95¶\8e\9a\82ª'"'\82È\82ç\8eæ\82è\8f\9c\82
1773         //if Copy(s, 1, 1) = '"' then begin
1774     if s[1]  = '"' then begin
1775                 s := Trim(Copy(s, 2, Length(s)));
1776         end;
1777
1778         Index := AnsiPos('"', s);
1779         if Index <> 0 then begin
1780                 //'"'\82Ü\82ÅURL\82Æ\82·\82é
1781                 s := Copy(s, 1, Index - 1);
1782         end else begin
1783                 //'"'\82ª\96³\82¯\82ê\82Î\83X\83y\81[\83X\82©">"\82Ì\91\81\82¢\95û\82Ü\82Å\82ðURL\82Æ\82·\82é
1784                 Index := AnsiPos(' ', s);
1785                 Index2 := AnsiPos('>', s);
1786                 if Index = 0 then
1787                         Index := Index2;
1788                 if Index > Index2 then
1789                         Index := Index2;
1790                 if Index <> 0 then
1791                         s := Copy(s, 1, Index - 1)
1792                 else
1793                         //\82±\82ê\88È\8fã\82à\82¤\92m\82ç\82ñ\82Ê
1794                         ;
1795         end;
1796         Result := Trim(s);
1797 end;
1798
1799 {!
1800 \brief \83z\83X\83g\96¼\82ª\82Q\82\83\82\88\82©\82Ç\82¤\82©\83`\83F\83b\83N\82·\82é
1801 \param Host \83`\83F\83b\83N\82·\82é\83z\83X\83g\96¼
1802 \return     2\82¿\82á\82ñ\82Ë\82é\82Ì\83z\83X\83g\96¼\82È\82ç True
1803 }
1804 function TGikoSys.Is2chHost(Host: string): Boolean;
1805 const
1806         HOST_NAME: array[0..1] of string = ('2ch.net', 'bbspink.com');
1807 var
1808         i: Integer;
1809 //      Len: Integer;
1810 begin
1811         Result := False;
1812         if RightStr( Host, 1 ) = '/' then
1813                 Host := Copy( Host, 1, Length( Host ) - 1 );
1814         OutputDebugString(pchar(HOST_NAME[0]));
1815         for i := 0 to Length(HOST_NAME) - 1 do begin
1816 //              Len := Length(HOST_NAME[i]);
1817                 if (AnsiPos(HOST_NAME[i], Host) > 0) and
1818                         (AnsiPos(HOST_NAME[i], Host) = (Length(Host) - Length(HOST_NAME[i]) + 1)) then begin
1819                         Result := True;
1820                         Exit;
1821                 end;
1822         end;
1823 end;
1824
1825 {!
1826 \brief 2\82¿\82á\82ñ\82Ë\82é\8c`\8e®\82Ì URL \82ð\95ª\89ð
1827 \param url      2\82¿\82á\82ñ\82Ë\82é\8c`\8e®\82Ì URL
1828 \param path     test/read.cgi \82È\82Ç\82Ì\92\86\8aÔ\83p\83X(ParseURI \82©\82ç\93¾\82é)
1829 \param document index.html \82È\82Ç\82Ì\83h\83L\83\85\83\81\83\93\83g\96¼(ParseURI \82©\82ç\93¾\82é)
1830 \param BBSID    OUT:BBSID \82ª\95Ô\82é(ex. giko)
1831 \param BBSKey   OUT:\83X\83\8c\83b\83h\83L\81[\82ª\95Ô\82é(ex. 10000000000)
1832 \return 2\82¿\82á\82ñ\82Ë\82é\82Ì URL \82Æ\82µ\82Ä\95ª\89ð\82Å\82«\82½\82È\82ç True
1833 }
1834 function TGikoSys.Parse2chURL(const url: string; const path: string; const document: string; var BBSID: string; var BBSKey: string): Boolean;
1835 var
1836         Index: Integer;
1837         s: string;
1838         SList: TStringList;
1839 begin
1840         BBSID := '';
1841         BBSKey := '';
1842         Result := False;
1843
1844         Index := AnsiPos(READ_PATH, path);
1845         if Index <> 0 then begin
1846                 s := Copy(path, Index + Length(READ_PATH), Length(path));
1847
1848                 if (Length(s) > 0) and (s[1] = '/') then
1849                         Delete(s, 1, 1);
1850                 BBSID := GetTokenIndex(s, '/', 0);
1851                 BBSKey := GetTokenIndex(s, '/', 1);
1852                 if BBSKey = '' then
1853                         BBSKey := Document;
1854                 Result := (BBSID <> '') or (BBSKey <> '');
1855                 Exit;
1856         end;
1857         Index := AnsiPos(KAKO_PATH, path);
1858         if Index <> 0 then begin
1859                 s := Copy(path, 2, Length(path));
1860                 BBSID := GetTokenIndex(s, '/', 0);
1861                 if (BBSID = 'log') and (GetTokenIndex(s, '/', 2) = 'kako') then
1862                         BBSID := GetTokenIndex(s, '/', 1);
1863                 BBSKey := ChangeFileExt(Document, '');
1864                 Result := (BBSID <> '') or (BBSKey <> '');
1865                 Exit;
1866         end;
1867         Index := AnsiPos('read.cgi?', URL);
1868         if Index <> 0 then begin
1869                 SList := TStringList.Create;
1870                 try
1871                         try
1872 //                              s := HTMLDecode(Document);
1873                                 ExtractHTTPFields(['?', '&'], [], PChar(URL), SList, False);
1874                                 BBSID := SList.Values['bbs'];
1875                                 BBSKey := SList.Values['key'];
1876                                 Result := (BBSID <> '') or (BBSKey <> '');
1877                                 Exit;
1878                         except
1879                                 Exit;
1880                         end;
1881                 finally
1882                         SList.Free;
1883                 end;
1884         end;
1885 end;
1886
1887 {!
1888 \brief 2ch \8c`\8e®\82Ì URL \82©\82ç\83\8c\83X\94Ô\82ð\8eæ\93¾
1889 \param URL    2\82¿\82á\82ñ\82Ë\82é\8c`\8e®\82Ì URL
1890 \param stRes  OUT:\8aJ\8en\83\8c\83X\94Ô\82ª\95Ô\82é
1891 \param endRes OUT:\8fI\97¹\83\8c\83X\94Ô\82ª\95Ô\82é
1892
1893 http://2ch.net/\92\86\97ª/32-50 \n
1894 \82Ì\8fê\8d\87 stRef = 32, endRes = 50 \82É\82È\82é
1895 }
1896 procedure TGikoSys.GetPopupResNumber(URL : string; var stRes, endRes : Int64);
1897 var
1898         buf : String;
1899         convBuf : String;
1900         ps : Int64;
1901         pch : PChar;
1902 begin
1903         URL := Trim(LowerCase(URL));
1904         if (AnsiPos('&st=', URL ) <> 0) and ( AnsiPos( '&to=',URL) <> 0 ) then begin
1905                 stRes := 0;
1906                 endRes := 0;
1907                 try
1908                         buf := Copy( URL, AnsiPos('&st=', URL ) + 4, AnsiPos( '&to=',URL) - AnsiPos('&st=', URL ) - 4 );
1909                         if buf <> '' then
1910                                 stRes := StrToInt64( buf );
1911                         if AnsiPos( '&nofirst=',URL) <> 0 then begin
1912                                 buf := Copy( URL, AnsiPos('&to=', URL ) + 4, AnsiPos( '&nofirst=',URL) - AnsiPos('&to=', URL ) - 4);
1913                         end else begin
1914                                 buf := Copy( URL, AnsiPos('&to=', URL ) + 4, Length( URL ) - AnsiPos('&to=', URL ) - 4 + 1 );
1915                                 ps := 0;
1916                                 pch := PChar(buf);
1917                                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
1918                                 buf := Copy( buf, 1, ps );
1919                         end;
1920                         try
1921                                 if buf <> '' then
1922                                         endRes := StrToInt64(buf)
1923                         except
1924                                 endRes := 0;
1925                         end;
1926                 except
1927                         stRes := 0;
1928                 end;
1929                 if (stRes <> 0) and (endRes = 0) then
1930                         endRes := stRes + MAX_POPUP_RES
1931                 else if (stRes = 0) and (endRes <> 0) then begin
1932                         stRes := endRes - MAX_POPUP_RES;
1933                         if stRes < 1 then
1934                                 stRes := 1;
1935                 end;
1936                 GikoSys.GetBrowsableThreadURL( URL );
1937         end else if( AnsiPos('&res=', URL ) <> 0 ) then begin
1938                 endRes := 0;
1939                 buf := Copy( URL, AnsiPos('&res=', URL ) + 5, Length( URL ) - AnsiPos('&res=', URL ) - 5 + 1 );
1940                 ps := 0;
1941                 pch := PChar(buf);
1942                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
1943                 buf := Copy( buf, 1, ps );
1944                 try
1945                         if buf <> '' then
1946                                 stRes := StrToInt(buf)
1947                         else begin
1948                                 stRes := 0;
1949                         end;
1950                 except
1951                         stRes := 0;
1952                 end;
1953         end else if (AnsiPos('&start=', URL ) <> 0) and ( AnsiPos( '&end=',URL) <> 0 ) then begin
1954                 try
1955                         stRes := StrToInt64( Copy( URL, AnsiPos('&start=', URL ) + 7, AnsiPos( '&end=',URL) - AnsiPos('&start=', URL ) - 7 ) );
1956                         if AnsiPos( '&nofirst=',URL) <> 0 then begin
1957                                 buf := Copy( URL, AnsiPos('&end=', URL ) + 5, AnsiPos( '&nofirst=',URL) - AnsiPos('&end=', URL ) - 5);
1958                         end else begin
1959                                 buf := Copy( URL, AnsiPos('&end=', URL ) + 5, Length( URL ) - AnsiPos('&to=', URL ) - 5 + 1 );
1960                                 ps := 0;
1961                                 pch := PChar(buf);
1962                                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
1963                                 buf := Copy( buf, 1, ps );
1964                         end;
1965                         try
1966                                 if buf <> '' then
1967                                         endRes := StrToInt64(buf);
1968                         except
1969                                 endRes := 0;
1970                         end;
1971                 except
1972                         stRes := 0;
1973                 end;
1974         end else if ( AnsiPos('.html',URL) <> Length(URL) -4 ) and ( AnsiPos('.htm',URL) <> Length(URL) -3 ) then begin
1975                 buf := Copy(URL, LastDelimiter('/',URL)+1,Length(URL)-LastDelimiter('/',URL)+1);
1976                 if  Length(buf) > 0 then begin
1977                         if AnsiPos('-', buf) = 1 then begin
1978                                 stRes := 0;
1979                                 Delete(buf,1,1);
1980                                 ps := 0;
1981                                 pch := PChar(buf);
1982                                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
1983                                 try
1984                                         convBuf := Copy( buf, 1, ps );
1985                                         if convBuf <> '' then
1986                                                 endRes := StrToInt64(convBuf)
1987                                         else
1988                                                 endRes := 0;
1989                                 except
1990                                         endRes := 0;
1991                                 end;
1992                                 if endRes <> 0 then begin
1993                                         stRes := endRes - MAX_POPUP_RES;
1994                                         if stRes < 1 then
1995                                                 stRes := 1;
1996                                 end;
1997                         end else begin
1998                                 ps := 0;
1999                                 pch := PChar(buf);
2000                                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
2001                                 try
2002                                         convBuf := Copy( buf, 1, ps );
2003                                         if convBuf <> '' then begin
2004                                                 stRes := StrToInt64(convBuf);
2005                                                 Delete(buf,1,ps+1);
2006                                                 ps := 0;
2007                                                 pch := PChar(buf);
2008                                                 while  ( ps < Length(buf) )and ( pch[ps] >= '0' ) and ( pch[ps] <= '9' ) do Inc(ps);
2009                                                 try
2010                                                         convBuf := Copy( buf, 1, ps );
2011                                                         if convBuf <> '' then
2012                                                                 endRes := StrToInt64(convBuf)
2013                                                         else
2014                                                                 endRes := 0;
2015                                                 except
2016                                                         endRes := 0;
2017                                                 end;
2018                                         end else begin
2019                                                 stRes := 0;
2020                                         end;
2021                                 except
2022                                         stRes := 0;
2023                                         endRes := 0;
2024                                 end;
2025                         end;
2026                 end;
2027         end else begin
2028                 //stRes := 0;
2029                 //endRes := 0;
2030         end;
2031 end;
2032
2033 {!
2034 \brief 2\82¿\82á\82ñ\82Ë\82é\8c`\8e®\82Ì URL \82ð\95ª\89ð
2035 \param URL 2\82¿\82á\82ñ\82Ë\82é\8c`\8e®\82Ì URL
2036 \return    \95ª\89ð\82³\82ê\82½\97v\91f
2037 }
2038 function TGikoSys.Parse2chURL2(URL: string): TPathRec;
2039 var
2040         i: Integer;
2041         s: string;
2042 //      buf : String;
2043 //      convBuf : String;
2044         wk: string;
2045         wkMin: Integer;
2046         wkMax: Integer;
2047         wkInt: Integer;
2048         RStart: Integer;
2049         RLength: Integer;
2050 //      ps : Integer;
2051 //      pch : PChar;
2052         SList: TStringList;
2053 begin
2054         URL := Trim(LowerCase(URL));
2055         Result.FBBS := '';
2056         Result.FKey := '';
2057         Result.FSt := 0;
2058         Result.FTo := 0;
2059         Result.FFirst := False;
2060         Result.FStBegin := False;
2061         Result.FToEnd := False;
2062         Result.FDone := False;
2063         Result.FNoParam := False;
2064
2065         wkMin := 0;
2066         wkMax := 1;
2067         if URL[length(URL)] = '\' then
2068                 URL := URL + 'n';
2069         FAWKStr.RegExp := 'http://.+\.(2ch\.net|bbspink\.com)/';
2070         if FAWKStr.Match(FAWKStr.ProcessEscSeq(URL), RStart, RLength) <> 0 then begin
2071                 s := Copy(URL, RStart + RLength - 1, Length(URL));
2072
2073                 //\95W\8f\80\8f\91\8e®
2074                 //\8dÅ\8cã\82Íl50, 10, 10-20, 10n, 10-20n, -10, 10-, 10n- \82È\82Ç
2075                 //http://xxx.2ch.net/test/read.cgi/bbsid/1000000000/
2076                 FAWKStr.RegExp := '/test/read.cgi/.+/[0-9]+/?.*';
2077                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2078                         s := Copy(s, 15, Length(s));
2079
2080                         SList := TStringList.Create;
2081                         try
2082                                 SList.Clear;
2083                                 FAWKStr.RegExp := '/';
2084                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) >= 3 then begin
2085                                         Result.FBBS := SList[1];
2086                                         Result.FKey := SList[2];
2087                                         if SList.Count >= 4 then
2088                                                 s := SList[3]
2089                                         else begin
2090                                                 s := '';
2091                                                 Result.FNoParam := true;
2092                                         end;
2093                                 end else
2094                                         Exit;
2095
2096                                 SList.Clear;
2097                                 FAWKStr.LineSeparator := mcls_CRLF;
2098                                 FAWKStr.RegExp := '-';
2099                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) = 0 then begin
2100                                         Result.FFirst := True;
2101                                 end else begin
2102                                         FAWKStr.RegExp := 'l[0-9]+';
2103                                         if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2104                                                 Result.FFirst := True;
2105                                         end else begin
2106                                                 for i := 0 to SList.Count - 1 do begin
2107                                                         if Trim(SList[i]) = '' then begin
2108                                                                 if i = 0 then
2109                                                                         Result.FStBegin := True;
2110                                                                 if i = (SList.Count - 1) then
2111                                                                         Result.FToEnd := True;
2112                                                         end else if IsNumeric(SList[i]) then begin
2113                                                                 wkInt := StrToInt(SList[i]);
2114                                                                 wkMax := Max(wkMax, wkInt);
2115                                                                 if wkMin = 0 then
2116                                                                         wkMin := wkInt
2117                                                                 else
2118                                                                         wkMin := Min(wkMin, wkInt);
2119                                                         end else if Trim(SList[i]) = 'n' then begin
2120                                                                 Result.FFirst := True;
2121                                                         end else begin
2122                                                                 FAWKStr.RegExp := '^n[0-9]+$|^[0-9]+n$';
2123                                                                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(SList[i]), RStart, RLength) > 0 then begin
2124                                                                         if Copy(SList[i], 1, 1) = 'n' then
2125                                                                                 wkInt := StrToInt(Copy(SList[i], 2, Length(SList[i])))
2126                                                                         else
2127                                                                                 wkInt := StrToInt(Copy(SList[i], 1, Length(SList[i]) - 1));
2128                                                                         Result.FFirst := True;
2129                                                                         wkMax := Max(wkMax, wkInt);
2130                                                                         if wkMin = 1 then
2131                                                                                 wkMin := wkInt
2132                                                                         else
2133                                                                                 wkMin := Min(wkMin, wkInt);
2134                                                                 end;
2135                                                         end;
2136                                                 end;
2137                                                 if Result.FStBegin and (not Result.FToEnd) then
2138                                                         Result.FSt := wkMin
2139                                                 else if (not Result.FStBegin) and Result.FToEnd then
2140                                                         Result.FTo := wkMax
2141                                                 else if (not Result.FStBegin) and (not Result.FToEnd) then begin
2142                                                         Result.FSt := wkMin;
2143                                                         Result.FTo := wkMax;
2144                                                 end;
2145                                                 //Result.FSt := wkMin;
2146                                                 //Result.FTo := wkMax;
2147                                         end;
2148                                 end;
2149                         finally
2150                                 SList.Free;
2151                         end;
2152                         Result.FDone := True;
2153                         Exit;
2154                 end;
2155
2156                 //\90Vkako\8f\91\8e®
2157                 //http://server.2ch.net/ITA_NAME/kako/1000/10000/1000000000.html
2158                 FAWKStr.RegExp := '/.+/kako/[0-9]+/[0-9]+/[0-9]+\.html';
2159                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2160                         SList := TStringList.Create;
2161                         try
2162                                 SList.Clear;
2163                                 FAWKStr.RegExp := '/';
2164                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) >= 6 then begin
2165                                         Result.FBBS := SList[1];
2166                                         Result.FKey := ChangeFileExt(SList[5], '');
2167                                         Result.FFirst := True;
2168                                 end else
2169                                         Exit;
2170                         finally
2171                                 SList.Free;
2172                         end;
2173                         Result.FDone := True;
2174                         Exit;
2175                 end;
2176
2177                 //\8b\8ckako\8f\91\8e®
2178                 //http://server.2ch.net/ITA_NAME/kako/999/999999999.html
2179                 FAWKStr.RegExp := '/.+/kako/[0-9]+/[0-9]+\.html';
2180                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2181                         SList := TStringList.Create;
2182                         try
2183                                 SList.Clear;
2184                                 FAWKStr.RegExp := '/';
2185                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) >= 5 then begin
2186                                         Result.FBBS := SList[1];
2187                                         Result.FKey := ChangeFileExt(SList[4], '');
2188                                         Result.FFirst := True;
2189                                 end else
2190                                         Exit;
2191                         finally
2192                                 SList.Free;
2193                         end;
2194                         Result.FDone := True;
2195                         Exit;
2196                 end;
2197
2198                 //log\8by\82Ñlog2\8f\91\8e®
2199                 //http://server.2ch.net/log/ITA_NAME/kako/999/999999999.html
2200                 //http://server.2ch.net/log2/ITA_NAME/kako/999/999999999.html
2201                 FAWKStr.RegExp := '/log2?/.+/kako/[0-9]+/[0-9]+\.html';
2202                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2203                         SList := TStringList.Create;
2204                         try
2205                                 SList.Clear;
2206                                 FAWKStr.RegExp := '/';
2207                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) >= 6 then begin
2208                                         Result.FBBS := SList[2];
2209                                         Result.FKey := ChangeFileExt(SList[5], '');
2210                                         Result.FFirst := True;
2211                                 end else
2212                                         Exit;
2213                         finally
2214                                 SList.Free;
2215                         end;
2216                         Result.FDone := True;
2217                         Exit;
2218                 end;
2219
2220
2221                 //\8b\8cURL\8f\91\8e®
2222                 //http://server.2ch.net/test/read.cgi?bbs=ITA_NAME&key=1000000000&st=1&to=5&nofirst=true
2223                 FAWKStr.RegExp := '/test/read\.cgi\?';
2224                 if FAWKStr.Match(FAWKStr.ProcessEscSeq(s), RStart, RLength) > 0 then begin
2225                         s := Copy(s, 16, Length(s));
2226                         SList := TStringList.Create;
2227                         try
2228                                 SList.Clear;
2229                                 FAWKStr.RegExp := '&';
2230                                 if FAWKStr.Split(FAWKStr.ProcessEscSeq(s), SList) >= 2 then begin
2231                                         Result.FFirst := True;
2232                                         for i := 0 to SList.Count - 1 do begin
2233                                                 if Pos('bbs=', SList[i]) = 1 then begin
2234                                                         Result.FBBS := Copy(SList[i], 5, Length(SList[i]));
2235                                                 end else if Pos('key=', SList[i]) = 1 then begin
2236                                                         Result.FKey := Copy(SList[i], 5, Length(SList[i]));
2237                                                 end else if Pos('st=', SList[i]) = 1 then begin
2238                                                         wk := Copy(SList[i], 4, Length(SList[i]));
2239                                                         if IsNumeric(wk) then
2240                                                                 Result.FSt := StrToInt(wk)
2241                                                         else if wk = '' then
2242                                                                 Result.FStBegin := True;
2243                                                 end else if Pos('to=', SList[i]) = 1 then begin
2244                                                         wk := Copy(SList[i], 4, Length(SList[i]));
2245                                                         if IsNumeric(wk) then
2246                                                                 Result.FTo := StrToInt(wk)
2247                                                         else if wk = '' then
2248                                                                 Result.FToEnd := True;
2249                                                 end else if Pos('nofirst=', SList[i]) = 1 then begin
2250                                                         Result.FFirst := False;
2251                                                 end;
2252                                         end;
2253                                 end else
2254                                         Exit;
2255                         finally
2256                                 SList.Free;
2257                         end;
2258
2259                         if (Result.FBBS <> '') and (Result.FKey <> '') then begin
2260                                 Result.FDone := True;
2261                         end;
2262                         Exit;
2263                 end;
2264         end;
2265 end;
2266
2267 {!
2268 \brief URI \82ð\95ª\89ð
2269 \param URL      \95ª\89ð\82·\82é URI
2270 \param Protocol OUT:\83v\83\8d\83g\83R\83\8b\82ª\95Ô\82é(ex. http)
2271 \param Host     OUT:\83z\83X\83g\82ª\95Ô\82é(ex. hoge.com)
2272 \param Path     OUT:\92\86\8aÔ\83p\83X\82ª\95Ô\82é(ex. test/read.cgi)
2273 \param Document OUT:\83h\83L\83\85\83\81\83\93\83g\96¼\82ª\95Ô\82é(ex. index.html)
2274 \param Port     OUT:\83|\81[\83g\82ª\95Ô\82é(ex. 8080)
2275 \param Bookmark OUT:\83u\83b\83N\83}\81[\83N(?)\82ª\95Ô\82é
2276 }
2277 procedure TGikoSys.ParseURI(const URL : string; var Protocol, Host, Path, Document, Port, Bookmark: string);
2278 var
2279         URI: TIdURI;
2280 begin
2281         Protocol := '';
2282         Host := '';
2283         Path := '';
2284         Document := '';
2285         Port := '';
2286         Bookmark := '';
2287         URI := TIdURI.Create(URL);
2288         try
2289                 Protocol := URI.Protocol;
2290                 Host := URI.Host;
2291                 Path := URI.Path;
2292                 Document := URI.Document;
2293                 Port := URI.Port;
2294                 Bookmark := URI.Bookmark;
2295         finally
2296                 URI.Free;
2297         end;
2298 end;
2299
2300 {!
2301 \brief \83M\83R\83i\83r\82Ì\83o\81[\83W\83\87\83\93\82ð\8eæ\93¾
2302 \return \83o\81[\83W\83\87\83\93\82Ì\89º 2 \8c\85(dwFileVersionLS)
2303 }
2304 function TGikoSys.GetVersionBuild: Integer;
2305 var
2306         FixedFileInfo: PVSFixedFileInfo;
2307         VersionHandle, VersionSize: DWORD;
2308         pVersionInfo: Pointer;
2309         ItemLen : UInt;
2310         AppFile: string;
2311 begin
2312         Result := 0;
2313         AppFile := Application.ExeName;
2314         VersionSize := GetFileVersionInfoSize(pChar(AppFile), VersionHandle);
2315         if VersionSize = 0 then
2316                 Exit;
2317         GetMem(pVersionInfo, VersionSize);
2318         try
2319                 if GetFileVersionInfo(PChar(AppFile),VersionHandle,VersionSize, pVersionInfo) then
2320                         if VerQueryValue(pVersionInfo, '\', Pointer(FixedFileInfo), ItemLen) then
2321                                 Result := LOWORD(FixedFileInfo^.dwFileVersionLS);
2322         finally
2323                 FreeMem(pVersionInfo, VersionSize);
2324         end;
2325 end;
2326
2327 {!
2328 \brief \83X\83\8c\83b\83h URL \82Ì\90³\8bK\89»
2329 \param inURL \90³\8bK\89»\82·\82é\83X\83\8c\83b\83h URL
2330 \return      \90³\8bK\89»\82³\82ê\82½\83X\83\8c\83b\83h URL
2331
2332 \83X\83\8c\83b\83h URL \82ð\83M\83R\83i\83r\82Ì\92\86\82Å\88ê\88Ó\82È\82à\82Ì\82É\90³\8bK\89»\82µ\82Ü\82·\81B
2333 \88ê\88Ó\82È URL \82É\82·\82é\8e\96\82Å\81AURL \82©\82ç\83X\83\8c\83b\83h\82ð\93±\82«\8fo\82·\8dì\8bÆ\82ð\8dÅ\93K\89»\82µ\82Ü\82·\81B\n
2334 \90³\8bK\89»\82Ì\95û\90j\82Æ\82µ\82Ä\81A\83T\83C\83g\82ª\90\84\8f§\82·\82é\83f\83t\83H\83\8b\83g\82Ì URL \82É\82È\82é\82æ\82¤\82É\90S\82ª\82¯\82Ü\82·\81B
2335 (1-1000 \82Ì\82æ\82¤\82È\95\89\89×\82ð\82©\82¯\82é\82à\82Ì\82É\82Í\82µ\82È\82¢\82±\82Æ)
2336
2337 \97á(\90³\8bK\89»\91O):\n
2338 http://\92\86\97ª/ \n
2339 http://\92\86\97ª/20-100
2340
2341 (\90³\8bK\89»\8cã):\n
2342 http://\92\86\97ª/l50
2343 }
2344 function        TGikoSys.GetBrowsableThreadURL(
2345         inURL : string
2346 ) : string;
2347 var
2348         threadItem      : TThreadItem;
2349         boardPlugIn     : TBoardPlugIn;
2350     board               : TBoard;
2351         i                                               : Integer;
2352 begin
2353
2354         //===== \83v\83\89\83O\83C\83\93
2355         try
2356                 for i := Length( BoardGroups ) - 1 downto 1 do begin
2357                         if Assigned( Pointer( BoardGroups[i].BoardPlugIn.Module ) ) then begin
2358                                 if BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) = atThread then begin
2359                     board := BBSsFindBoardFromURL( BoardGroups[i].BoardPlugIn.ExtractBoardURL(inURL) );
2360                                         if board <> nil then begin
2361                                                 boardPlugIn := BoardGroups[i].BoardPlugIn;
2362                                                 threadItem      := TThreadItem.Create( boardPlugIn, board, inURL );
2363                                                 Result                  := threadItem.URL;
2364                                                 threadItem.Free;
2365
2366                                         end;
2367                                         Exit;
2368                                 end;
2369                         end;
2370                 end;
2371         except
2372                 // exception \82ª\94\90¶\82µ\82½\8fê\8d\87\82Í\93à\95\94\8f\88\97\9d\82É\94C\82¹\82½\82¢\82Ì\82Å\82±\82±\82Å\82Í\89½\82à\82µ\82È\82¢
2373         end;
2374
2375         if Length( Result ) = 0 then
2376                 Result := GikoSys.Get2chBrowsableThreadURL( inURL );
2377
2378 end;
2379
2380 {!
2381 \brief \83X\83\8c\83b\83h URL \82ð\94Â URL \82É\95Ï\8a·
2382 \param inURL \83X\83\8c\83b\83h URL
2383 \return      \94Â URL
2384 }
2385 function        TGikoSys.GetThreadURL2BoardURL(
2386         inURL : string
2387 ) : string;
2388 var
2389         threadItem      : TThreadItem;
2390         boardPlugIn     : TBoardPlugIn;
2391     board               : TBoard;
2392         i                                               : Integer;
2393 begin
2394
2395         //===== \83v\83\89\83O\83C\83\93
2396         try
2397                 for i := Length( BoardGroups ) - 1 downto 1 do begin
2398                         if Assigned( Pointer( BoardGroups[i].BoardPlugIn.Module ) ) then begin
2399                                 if BoardGroups[i].BoardPlugIn.AcceptURL( inURL ) = atThread then begin
2400                     board               := BBSsFindBoardFromURL(BoardGroups[i].BoardPlugIn.ExtractBoardURL(inURL));
2401                                         boardPlugIn := BoardGroups[i].BoardPlugIn;
2402                                         threadItem      := TThreadItem.Create( boardPlugIn, board, inURL );
2403                                         Result                  := BoardGroups[i].BoardPlugIn.GetBoardURL( Longword( threadItem ) );
2404                                         threadItem.Free;
2405
2406                                         Break;
2407                                 end;
2408                         end;
2409                 end;
2410         except
2411                 // exception \82ª\94\90¶\82µ\82½\8fê\8d\87\82Í\93à\95\94\8f\88\97\9d\82É\94C\82¹\82½\82¢\82Ì\82Å\82±\82±\82Å\82Í\89½\82à\82µ\82È\82¢
2412         end;
2413
2414         if Length( Result ) = 0 then
2415                 Result := GikoSys.Get2chThreadURL2BoardURL( inURL );
2416
2417 end;
2418
2419 {!
2420 \brief 2ch\97p:\83X\83\8c\83b\83h URL \82ð\94Â URL \82É\95Ï\8a·
2421 \param inURL \83X\83\8c\83b\83h URL
2422 \return      \94Â URL
2423 \see TGikoSys.GetThreadURL2BoardURL
2424 }
2425 function        TGikoSys.Get2chThreadURL2BoardURL(
2426         inURL : string
2427 ) : string;
2428 var
2429         Protocol, Host, Path, Document, Port, Bookmark : string;
2430         BBSID, BBSKey : string;
2431         foundPos                        : Integer;
2432 begin
2433
2434         ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );
2435         Parse2chURL( inURL, Path, Document, BBSID, BBSKey );
2436
2437         foundPos := Pos( '/test/read.cgi', inURL );
2438         if {(Is2chHost(Host)) and} (foundPos > 0) then
2439                 Result := Copy( inURL, 1, foundPos ) + BBSID + '/'
2440         else
2441                 Result := Protocol + '://' + Host + '/' + BBSID + '/';
2442
2443 end;
2444
2445 {!
2446 \brief 2ch\97p:\83X\83\8c\83b\83h URL \82Ì\90³\8bK\89»
2447 \param inURL \90³\8bK\89»\82·\82é\83X\83\8c\83b\83h URL
2448 \return      \90³\8bK\89»\82³\82ê\82½\83X\83\8c\83b\83h URL
2449 \see TGikoSys.GetBrowsableThreadURL
2450 }
2451 function        TGikoSys.Get2chBrowsableThreadURL(
2452         inURL                   : string
2453 ) : string;
2454 var
2455         Protocol, Host, Path, Document, Port, Bookmark : string;
2456         BBSID, BBSKey : string;
2457         foundPos        : Integer;
2458 begin
2459
2460 //      if Pos( KAKO_PATH, inURL ) > 0 then begin
2461 //              Result := inURL;
2462 //      end else begin
2463                 ParseURI( inURL, Protocol, Host, Path, Document, Port, Bookmark );
2464                 Parse2chURL( inURL, Path, Document, BBSID, BBSKey );
2465                 foundPos := Pos( '/test/read.cgi', inURL ) - 1;
2466
2467                 if Is2chHost( Host ) then begin
2468                         Result := Protocol + '://' + Host +
2469                                 READ_PATH + BBSID + '/' + BBSKey + '/l50';
2470                 end else begin
2471                         if foundPos > 0 then
2472                                 Result := Copy( inURL, 1, foundPos ) +
2473                                         OLD_READ_PATH + 'bbs=' + BBSID + '&key=' + BBSKey + '&ls=50'
2474                         else
2475                                 Result := Protocol + '://' + Host +
2476                                         OLD_READ_PATH + 'bbs=' + BBSID + '&key=' + BBSKey + '&ls=50';
2477                 end;
2478 //      end;
2479
2480 end;
2481
2482 {!
2483 \brief 2ch\97p:\94Â URL \82©\82ç\83X\83\8c\83b\83h URL \82ð\8dì\90¬
2484 \param inBoard \94Â URL
2485 \param inKey   \83X\83\8c\83b\83h\83L\81[(ex. 1000000000)
2486 \return        \83X\83\8c\83b\83h URL
2487 }
2488 function        TGikoSys.Get2chBoard2ThreadURL(
2489         inBoard : TBoard;
2490         inKey           : string
2491 ) : string;
2492 var
2493         server  : string;
2494 begin
2495
2496         server := UrlToServer( inBoard.URL );
2497         //if Is2chHost( server ) then
2498         if inBoard.Is2ch then
2499                 Result := server + 'test/read.cgi/' + inBoard.BBSID + '/' + inKey + '/l50'
2500         else
2501                 Result := server + 'test/read.cgi?bbs=' + inBoard.BBSID + '&key=' + inKey + '&ls=50';
2502
2503 end;
2504
2505 {!
2506 \brief \83{\81[\83h\83t\83@\83C\83\8b\97ñ\8b\93
2507
2508 \97ñ\8b\93\82³\82ê\82½ BBS(\83{\81[\83h) \82Í BBSs \82É\93ü\82è\82Ü\82·\81B
2509 }
2510 procedure TGikoSys.ListBoardFile;
2511 var
2512         boardFileList   : TStringList;
2513         i, l, k                                 : Integer;
2514 begin
2515         // BBS \82Ì\8aJ\95ú
2516         try
2517           for i := 0 to Length( BBSs ) - 1 do
2518                 BBSs[ i ].Free;
2519         except
2520         end;
2521         SetLength( BBSs, 0 );
2522
2523         l := 0;
2524         // \94Â\83\8a\83X\83g\82Ì\97ñ\8b\93
2525         if FileExists( GikoSys.GetBoardFileName ) then begin
2526           SetLength( BBSs, l + 1 );
2527           BBSs[ l ]                             := TBBS.Create( GikoSys.GetBoardFileName );
2528           BBSs[ l ].Title       := '\82Q\82¿\82á\82ñ\82Ë\82é';
2529                   Inc( l );
2530         end;
2531
2532         if FileExists( GikoSys.GetCustomBoardFileName ) then begin
2533           SetLength( BBSs, l + 1 );
2534           BBSs[ l ]                             := TBBS.Create( GikoSys.GetCustomBoardFileName );
2535           BBSs[ l ].Title       := '\82»\82Ì\91¼';
2536                   Inc( l );
2537         end;
2538
2539         // Board \83t\83H\83\8b\83_
2540         if DirectoryExists( GikoSys.Setting.GetBoardDir ) then begin
2541           BoardFileList := TStringList.Create;
2542           try
2543         BoardFileList.BeginUpdate;
2544                 GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True );
2545         BoardFileList.EndUpdate;
2546                 for k := BoardFileList.Count - 1 downto 0 do begin
2547                   if AnsiCompareText(ExtractFileExt(BoardFileList[ k ]), '.bak') = 0 then
2548                           BoardFileList.Delete(k);
2549                 end;
2550                           SetLength( BBSs, l + BoardFileList.Count );
2551                 for i := BoardFileList.Count - 1 downto 0 do begin
2552                   BBSs[ l ]                             := TBBS.Create( BoardFileList[ i ] );
2553                   BBSs[ l ].Title       := ChangeFileExt( ExtractFileName( BoardFileList[ i ] ), '' );
2554                   Inc( l );
2555                 end;
2556           finally
2557                 BoardFileList.Free;
2558           end;
2559         end;
2560 end;
2561
2562 {!
2563 \brief \83{\81[\83h\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý
2564 \param bbs \83{\81[\83h\83t\83@\83C\83\8b\82ð\93Ç\82Ý\8d\9e\82Þ BBS
2565 }
2566 procedure TGikoSys.ReadBoardFile( bbs : TBBS );
2567 var
2568 //      idx                                             : Integer;
2569         ini                                             : TMemIniFile;
2570         p : Integer;
2571         boardFile                       : TStringList;
2572         CategoryList    : TStringList;
2573         BoardList                       : TStringList;
2574         Category                        : TCategory;
2575         Board                                   : TBoard;
2576         inistr                          : string;
2577         tmpstring                       : string;
2578 //      RoundItem                       : TRoundItem;
2579
2580         i, iBound                       : Integer;
2581         j, jBound                       : Integer;
2582         k, kBound                       : Integer;
2583 begin
2584
2585         if not FileExists( bbs.FilePath ) then
2586                 Exit;
2587
2588         bbs.Clear;
2589         ini := TMemIniFile.Create('');
2590         boardFile := TStringList.Create;
2591
2592         try
2593                 boardFile.LoadFromFile( bbs.FilePath );
2594
2595                 ini.SetStrings( boardFile );
2596                 CategoryList    := TStringList.Create;
2597                 BoardList                       := TStringList.Create;
2598                 try
2599                         ini.ReadSections( CategoryList );
2600
2601                         iBound := CategoryList.Count - 1;
2602                         for i := 0 to iBound do begin
2603                                 ini.ReadSection( CategoryList[i], BoardList );
2604                                 Category                                := TCategory.Create;
2605                                 Category.No                     := i + 1;
2606                                 Category.Title  := CategoryList[i];
2607
2608                                 jBound := BoardList.Count - 1;
2609                                 for j := 0 to jBound do begin
2610                                         Board := nil;
2611                                         inistr := ini.ReadString(CategoryList[i], BoardList[j], '');
2612                                         //'http://'\82ð\8aÜ\82Ü\82È\82¢\95¶\8e\9a\97ñ\82Ì\8e\9e\82Í\96³\8e\8b\82·\82é
2613                                         if (AnsiPos('http://', AnsiLowerCase(inistr)) = 0) then Continue;
2614                                         //===== \83v\83\89\83O\83C\83\93
2615                                         try
2616                                                 kBound := Length(BoardGroups) - 1;
2617                                                 for k := 1 to kBound do begin  //0\82Í\81A2\82¿\82á\82ñ
2618                                                         if Assigned( Pointer( BoardGroups[k].BoardPlugIn.Module ) ) then begin
2619                                                                 if BoardGroups[k].BoardPlugIn.AcceptURL( inistr ) = atBoard then begin
2620                                                                         if not BoardGroups[k].Find(inistr, p) then begin
2621                                                                                 tmpstring := BoardGroups[k].BoardPlugIn.ExtractBoardURL( inistr );
2622                                                                                 if AnsiCompareStr(tmpString, inistr) <> 0 then begin
2623                                                                                         if not BoardGroups[k].Find(tmpstring, p) then begin
2624                                                                                                 try
2625                                                                                                         Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
2626                                                                                                         BoardGroups[k].AddObject(tmpstring, Board);
2627                                                                                                         Category.Add(Board);
2628                                                                                                 except
2629                                                                                                         //\82±\82±\82É\97\88\82é\82Æ\82µ\82½\82çBoard\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82½\82Æ\82«\82¾\82©\82çBoard\82ðnil\82É\82·\82é
2630                                                                                                         Board := nil;
2631                                                                                                 end;
2632                                                                                         end else begin
2633                                                                                                 Board := TBoard(BoardGroups[k].Objects[p]);
2634                                                                                                 if Board.ParentCategory <> Category then
2635                                                                                                         Category.Add(Board);
2636                                                                                         end;
2637                                                                                 end else begin
2638                                                                                         try
2639                                                                                                 Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
2640                                                                                                 BoardGroups[k].AddObject(tmpstring, Board);
2641                                                                                                 Category.Add(Board);
2642                                                                                         except
2643                                                                                                 //\82±\82±\82É\97\88\82é\82Æ\82µ\82½\82çBoard\82Ì\8dì\90¬\82É\8e¸\94s\82µ\82½\82Æ\82«\82¾\82©\82çBoard\82ðnil\82É\82·\82é
2644                                                                                                 Board := nil;
2645                                                                                         end;
2646                                                                                 end;
2647                                                                         end else begin
2648                                                                                 Board := TBoard(BoardGroups[k].Objects[p]);
2649                                                                                 if Board.ParentCategory <> Category then
2650                                                                                         Category.Add(Board);
2651                                                                         end;
2652                                                                         Break;
2653                                                                 end;
2654                                                         end;
2655                                                 end;
2656                                         except
2657                                                 // exception \82ª\94\90¶\82µ\82½\8fê\8d\87\82Í\93à\95\94\8f\88\97\9d\82É\94C\82¹\82½\82¢\82Ì\82Å\82±\82±\82Å\82Í\89½\82à\82µ\82È\82¢
2658                                         end;
2659                                         try
2660                                                 if (Board = nil) then begin
2661                                                         if not BoardGroups[0].Find(inistr,p) then begin
2662                                                                 Board := TBoard.Create( nil, inistr );
2663                                                                 BoardGroups[0].AddObject(inistr, Board);
2664                                                                 Category.Add(Board);
2665                                                         end else begin
2666                                                                 Board := TBoard(BoardGroups[0].Objects[p]);
2667                                                                 if Board.ParentCategory <> Category then
2668                                                                         Category.Add(Board);
2669                                                         end;
2670                                                 end;
2671
2672                                                 if (Board.Multiplicity = 0) then begin
2673                                                         Board.BeginUpdate;
2674                                                         Board.No := j + 1;
2675                             Board.Multiplicity := 1;
2676                                                         Board.Title := BoardList[j];
2677                                                         Board.RoundDate := ZERO_DATE;
2678                                                         Board.LoadSettings;
2679                                                         Board.EndUpdate;
2680                                                 end else begin
2681                                                         Board.No := j + 1;
2682                                                         Board.Multiplicity := Board.Multiplicity + 1;
2683                                                 end;
2684                                         except
2685                                         end;
2686                                 end;
2687                                 bbs.Add( Category );
2688                         end;
2689
2690
2691                   //end;
2692                   bbs.IsBoardFileRead := True;
2693           finally
2694                 BoardList.Free;
2695                 CategoryList.Free;
2696           end;
2697   finally
2698         boardFile.Free;
2699         ini.Free;
2700   end;
2701
2702 end;
2703
2704 {!
2705 \brief \96¼\8fÌ\82ª\95s\96¾\82È\83J\83e\83S\83\8a\82Ì\90¶\90¬
2706 \return \90¶\90¬\82³\82ê\82½\83J\83e\83S\83\8a
2707 }
2708 function        TGikoSys.GetUnknownCategory : TCategory;
2709 const
2710         UNKNOWN_CATEGORY = '(\96¼\8fÌ\95s\96¾)';
2711 begin
2712
2713         if Length( BBSs ) < 2 then begin
2714                 Result := nil;
2715                 Exit;
2716         end;
2717
2718         Result := BBSs[ 1 ].FindCategoryFromTitle( UNKNOWN_CATEGORY );
2719         if Result = nil then begin
2720                 Result                          := TCategory.Create;
2721                 Result.Title    := UNKNOWN_CATEGORY;
2722                 BBSs[ 1 ].Add( Result );
2723         end;
2724
2725 end;
2726
2727 {!
2728 \brief \96¼\8fÌ\82ª\95s\96¾\82È BBS \82Ì\90¶\90¬
2729 \return \90¶\90¬\82³\82ê\82½ BBS
2730 }
2731 function        TGikoSys.GetUnknownBoard( inPlugIn : TBoardPlugIn; inURL : string ) : TBoard;
2732 var
2733         category : TCategory;
2734 const
2735         UNKNOWN_BOARD = '(\96¼\8fÌ\95s\96¾)';
2736 begin
2737
2738         category := GetUnknownCategory;
2739         if category = nil then begin
2740                 Result := nil;
2741         end else begin
2742                 Result := category.FindBoardFromTitle( UNKNOWN_BOARD );
2743                 if Result = nil then begin
2744                         Result                          := TBoard.Create( inPlugIn, inURL );
2745                         Result.Title    := UNKNOWN_BOARD;
2746                         category.Add( Result );
2747                 end;
2748         end;
2749
2750 end;
2751
2752 //! Samba.ini
2753 function TGikoSys.GetSambaFileName : string;
2754 begin
2755         Result := Setting.GetSambaFileName;
2756 end;
2757
2758 //! Samba.ini \82ª\96³\82¯\82ê\82Î\8dì\90¬
2759 procedure TGikoSys.SambaFileExists();
2760 var
2761         sambaTmp: string;
2762         sambaStrList: TStringList;
2763 begin
2764         if not FileExists(GikoSys.GetSambaFileName) then begin
2765                 sambaTmp := ChangeFileExt(GikoSys.GetSambaFileName, '.default');
2766                 sambaStrList := TStringList.Create;
2767                 try
2768                         if FileExists(sambaTmp) then begin
2769                                 sambaStrList.LoadFromFile(sambaTmp);
2770                                 sambaStrList.SaveToFile(GikoSys.GetSambaFileName);
2771                         end;
2772                 finally
2773                         sambaStrList.Free;
2774                 end;
2775         end;
2776 end;
2777
2778 {!
2779 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\83A\83\93\83J\81[\82É\82µ\82Ä\97ñ\8b\93
2780 \param AID        \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2781 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2782 \param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç True
2783 \return           \97ñ\8b\93\82³\82ê\82½\83\8c\83X\83A\83\93\83J\81[
2784 \todo limited \82ð Integer \82É\82·\82é\82©\81A20 \82ð\8aO\82É\8fo\82·
2785 }
2786 function TGikoSys.GetSameIDResAnchor(const AID : string; ThreadItem: TThreadItem; limited: boolean):string;
2787 var
2788         i: integer;
2789         body: TStringList;
2790 begin
2791                 Result := '';
2792                 if (not IsNoValidID(AID)) and
2793                         (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2794                                 body := TStringList.Create;
2795                                 try
2796                                                 GetSameIDRes(AID, ThreadItem, body);
2797                                                 if (limited) and (body.Count > 20) then begin
2798                                                                 for i := body.Count - 20 to body.Count - 1 do begin
2799                                                                                 Result := Result + '&gt;' + body[i] + ' ';
2800                                                                 end;
2801                                                 end else begin
2802                                                                 for i := 0 to body.Count - 1 do begin
2803                                                                                 Result := Result + '&gt;' + body[i] + ' ';
2804                                                                 end;
2805                                                 end;
2806                                 finally
2807                                                 body.Free;
2808                                 end;
2809
2810                 Result := HTMLCreater.ConvRes(
2811                         Result,
2812                         ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''),
2813                         'bbs', 'key', 'st', 'to', 'nofirst', 'true', false);
2814                 end;
2815 end;
2816
2817 {!
2818 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\97ñ\8b\93
2819 \param AID        \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2820 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2821 \param body       OUT:\97ñ\8b\93\82³\82ê\82½\83\8c\83X\94Ô\8d\86\82ª\95Ô\82é
2822 }
2823 procedure TGikoSys.GetSameIDRes(const AID : string; ThreadItem: TThreadItem;var body: TStringList);
2824 var
2825         i: integer;
2826         ReadList: TStringList;
2827         Res: TResRec;
2828         boardPlugIn : TBoardPlugIn;
2829 begin
2830         if (not IsNoValidID(AID)) and
2831         (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2832                 //if ThreadItem.IsBoardPlugInAvailable then begin
2833         if ThreadItem.ParentBoard.IsBoardPlugInAvailable then begin
2834                         //===== \83v\83\89\83O\83C\83\93\82É\82æ\82é\95\\8e¦
2835                         //boardPlugIn           := ThreadItem.BoardPlugIn;
2836             boardPlugIn         := ThreadItem.ParentBoard.BoardPlugIn;
2837
2838                         for i := 0 to threadItem.Count - 1 do begin
2839                                 // \83\8c\83X
2840                                 THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), i + 1), @Res);
2841                                 if(AnsiPos(AID, Res.FDateTime) > 0) then begin
2842                                         body.Add(IntToStr(i+1));
2843                                 end;
2844                         end;
2845                 end else begin
2846                         ReadList := TStringList.Create;
2847                         try
2848                                 ReadList.LoadFromFile(ThreadItem.GetThreadFileName);
2849                                 for i := 0 to ReadList.Count - 1 do begin
2850                                         THTMLCreate.DivideStrLine(ReadList[i], @Res);
2851                                         if AnsiPos(AID, Res.FDateTime) > 0 then begin
2852                                                 body.Add(IntToStr(i+1));
2853                                         end;
2854                                 end;
2855                         finally
2856                                 ReadList.Free;
2857                         end;
2858                 end;
2859         end;
2860 end;
2861
2862 {!
2863 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\97ñ\8b\93
2864 \param AIDNum     \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2865 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2866 \param limited    \97ñ\8b\93\82·\82é\90\94\82ð\90§\8cÀ\82·\82é\82È\82ç True
2867 \return
2868 \todo limited \82ð Integer \82É\82·\82é\82©\81A20 \82ð\8aO\82É\8fo\82·
2869 }
2870 function TGikoSys.GetSameIDResAnchor(AIDNum : Integer; ThreadItem: TThreadItem; limited: boolean):string;
2871 var
2872         i: integer;
2873         body: TStringList;
2874 begin
2875         Result := '';
2876         if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2877                 body := TStringList.Create;
2878                 try
2879                         GetSameIDRes(AIDNum, ThreadItem, body);
2880             if (limited) and (body.Count > 20) then begin
2881                         for i := body.Count - 20 to body.Count - 1 do begin
2882                                 Result := Result + '&gt;' + body[i] + ' ';
2883                         end;
2884             end else begin
2885                         for i := 0 to body.Count - 1 do begin
2886                                 Result := Result + '&gt;' + body[i] + ' ';
2887                         end;
2888             end;
2889                 finally
2890                         body.Free;
2891                 end;
2892                 Result := HTMLCreater.ConvRes(
2893                                         Result, ThreadItem.ParentBoard.BBSID,
2894                                         ChangeFileExt(ThreadItem.FileName, ''),
2895                                         'bbs', 'key', 'st', 'to', 'nofirst', 'true',
2896                                         false);
2897         end;
2898 end;
2899
2900 {!
2901 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\97ñ\8b\93
2902 \param AIDNum     \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2903 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2904 \param body       OUT:\97ñ\8b\93\82³\82ê\82½\83\8c\83X\94Ô\8d\86\82ª\95Ô\82é
2905 }
2906 procedure TGikoSys.GetSameIDRes(AIDNum : Integer; ThreadItem: TThreadItem;var body: TStringList);
2907 var
2908         Res: TResRec;
2909         boardPlugIn : TBoardPlugIn;
2910         AID : String;
2911         stList: TStringList;
2912         i : Integer;
2913 begin
2914         if (ThreadItem <> nil) and (ThreadItem.IsLogFile)
2915                 and (AIDNum > 0) and (AIDNum <= ThreadItem.Count) then begin
2916                 //if ThreadItem.IsBoardPlugInAvailable then begin
2917         if ThreadItem.ParentBoard.IsBoardPlugInAvailable then begin
2918                         //===== \83v\83\89\83O\83C\83\93\82É\82æ\82é\95\\8e¦
2919                         //boardPlugIn           := ThreadItem.BoardPlugIn;
2920             boardPlugIn         := ThreadItem.ParentBoard.BoardPlugIn;
2921                         THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), AIDNum), @Res);
2922                 end else begin
2923                         THTMLCreate.DivideStrLine( ReadThreadFile(ThreadItem.GetThreadFileName, AIDNum), @Res);
2924                 end;
2925                 AID := Res.FDateTime;
2926                 if AnsiPos('id', AnsiLowerCase(AID)) > 0 then begin
2927                         AID := Copy(AID, AnsiPos('id', AnsiLowerCase(AID)) - 1, 11);
2928             if AnsiPos(' be:', AnsiLowerCase(AID)) > 0 then begin
2929                 AID := Copy(AID, 1, AnsiPos(' BE:', AnsiLowerCase(AID)) - 1)
2930             end;
2931                 end else begin
2932                         stlist := TStringList.Create;
2933                         try
2934                                 stList.DelimitedText := AID;
2935                 AID := '';
2936                                 for i := 0 to stList.Count - 1 do
2937                                         if Length(WideString(stList[i])) = 8 then begin
2938                                                 if NotDateorTimeString(stList[i]) then begin
2939                                                         AID := stList[i];
2940                                                         break;
2941                                                 end;
2942                                         end;
2943                         finally
2944                                 stList.Free;
2945                         end;
2946                 end;
2947         if not IsNoValidID(AID) then
2948                         GetSameIDRes(AID, ThreadItem, body);
2949         end;
2950 end;
2951
2952 {!
2953 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\83J\83E\83\93\83g
2954 \param AID        \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2955 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2956 \return           \93¯\82¶ ID \82ð\8e\9d\82Â\83\8c\83X\82Ì\90\94
2957 }
2958 function TGikoSys.GetSameIDResCount(const AID : string; ThreadItem: TThreadItem):Integer;
2959 var
2960         body: TStringList;
2961 begin
2962     Result := 0;
2963         if (not IsNoValidID(AID))
2964      and (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2965                 body := TStringList.Create;
2966                 try
2967                         GetSameIDRes(AID, ThreadItem, body);
2968                         Result := body.Count;
2969                 finally
2970                         body.Free;
2971                 end;
2972         end;
2973
2974 end;
2975
2976 {!
2977 \brief \93¯\82¶\93\8a\8de ID \82ð\8e\9d\82Â\83\8c\83X\82ð\83J\83E\83\93\83g
2978 \param AIDNum     \8cÂ\90l\82ð\93Á\92è\82·\82é\93\8a\8de ID
2979 \param ThreadItem \97ñ\8b\93\82·\82é\83X\83\8c\83b\83h
2980 \return           \93¯\82¶ ID \82ð\8e\9d\82Â\83\8c\83X\82Ì\90\94
2981 }
2982 function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer;
2983 var
2984         body: TStringList;
2985 begin
2986         Result := 0;
2987         if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2988                 body := TStringList.Create;
2989                 try
2990                         GetSameIDRes(AIDNum, ThreadItem, body);
2991             Result := body.Count;
2992                 finally
2993                         body.Free;
2994                 end;
2995         end;
2996 end;
2997
2998 {!
2999 \brief \8e\9e\8d\8f\82ð\8e¦\82·\95¶\8e\9a\97ñ\82Å\82Í\96³\82¢\82©\82Ç\82¤\82©
3000 \param AStr \92²\82×\82é\95¶\8e\9a\97ñ
3001 \return     \8e\9e\8d\8f\82Å\82Í\96³\82¢\82È\82ç True
3002 \todo \94Û\92è\8c`(Not)\82æ\82è\8dm\92è\8cn(Is)
3003 }
3004 function TGikoSys.NotDateorTimeString(const AStr : string): boolean;
3005 begin
3006         Result := false;
3007         try
3008                 StrToDate(AStr);
3009         except
3010                 try
3011                         StrToTime(AStr);
3012                         Result := false;
3013                 except
3014                         Result := true;
3015                 end;
3016         end;
3017
3018 end;
3019
3020 {!
3021 \brief \83X\83p\83\80:\8cê\90\94\82ð\83J\83E\83\93\83g
3022 \param text      \8c³\82É\82È\82é\95¶\8fÍ
3023 \param wordCount OUT:\83J\83E\83\93\83g\82³\82ê\82½\92P\8cê\82Ì\88ê\97\97\82ª\95Ô\82é
3024 }
3025 procedure TGikoSys.SpamCountWord( const text : string; wordCount : TWordCount );
3026 begin
3027
3028         if Setting.SpamFilterAlgorithm = gsfaNone then Exit;
3029         Bayesian.CountWord( text, wordCount );
3030
3031 end;
3032
3033 {!
3034 \brief \83X\83p\83\80:\8aw\8fK\8c\8b\89Ê\82ð\95ú\8aü
3035 \param wordCount \95ú\8aü\82·\82é\92P\8cê\82Ì\88ê\97\97
3036 \param isSpam    wordCount \82ª\83X\83p\83\80\82Æ\82µ\82Ä\8aw\8fK\82³\82ê\82Ä\82¢\82½\82È\82ç True
3037 \warning        \8aw\8fK\8dÏ\82Ý\82Ì\95¶\8fÍ\82©\82Ç\82¤\82©\82Í\8am\94F\8fo\97\88\82Ü\82¹\82ñ\81B\n
3038                                         Learn \82µ\82Ä\82¢\82È\82¢\95¶\8fÍ\82â isSpam \82ð\8aÔ\88á\82¦\82Ä\8ew\92è\82·\82é\82Æ
3039                                         \83f\81[\83^\83x\81[\83X\82ª\94j\91¹\82µ\82Ü\82·\81B\n
3040                                         \8aw\8fK\8dÏ\82Ý\82©\82Ç\82¤\82©\82Í\93Æ\8e©\82É\8aÇ\97\9d\82µ\82Ä\82\82¾\82³\82¢\81B
3041
3042 \91S\82Ä\82Ì\8aw\8fK\8c\8b\89Ê\82ð\83N\83\8a\83A\82·\82é\82í\82¯\82Å\82Í\82 \82è\82Ü\82¹\82ñ\81B\n
3043 wordCount \82ð\93¾\82½\95¶\8fÍ\82Ì\8aw\8fK\8c\8b\89Ê\82Ì\82Ý\83N\83\8a\83A\82µ\82Ü\82·\81B
3044
3045 \8eå\82É\83X\83p\83\80\82Æ\83n\83\80\82ð\90Ø\82è\91Ö\82¦\82é\82½\82ß\82É Forget -> Learn \82Ì\8f\87\82Å\8eg\97p\82µ\82Ü\82·\81B
3046 }
3047 procedure TGikoSys.SpamForget( wordCount : TWordCount; isSpam : Boolean );
3048 begin
3049
3050         if Setting.SpamFilterAlgorithm = gsfaNone then Exit;
3051         Bayesian.Forget( wordCount, isSpam );
3052
3053 end;
3054
3055 {!
3056 \brief \83X\83p\83\80:\8aw\8fK
3057 \param wordCount \8aw\8fK\82·\82é\92P\8cê\82Ì\88ê\97\97
3058 \param isSpam    \83X\83p\83\80\82Æ\82µ\82Ä\8aw\8fK\82·\82é\82È\82ç True
3059 }
3060 procedure TGikoSys.SpamLearn( wordCount : TWordCount; isSpam : Boolean );
3061 begin
3062
3063         if Setting.SpamFilterAlgorithm = gsfaNone then Exit;
3064         Bayesian.Learn( wordCount, isSpam );
3065
3066 end;
3067
3068 {!
3069 \brief \83X\83p\83\80:\95¶\8fÍ\82ð\89ð\90Í\82µ\81A\83X\83p\83\80\93x\90\94\82ð\93¾\82é
3070 \param text      \8c³\82É\82È\82é\95¶\8fÍ
3071 \param wordCount OUT:\83J\83E\83\93\83g\82³\82ê\82½\92P\8cê\82Ì\88ê\97\97\82ª\95Ô\82é(SpamCountWord \82Æ\93¯\93\99)
3072 \return          0\81`1 \82Ì\83X\83p\83\80\93x\90\94
3073 }
3074 function TGikoSys.SpamParse( const text : string; wordCount : TWordCount ) : Extended;
3075 begin
3076
3077         case Setting.SpamFilterAlgorithm of
3078         gsfaNone:                                                               Result := 0;
3079         gsfaPaulGraham:                                 Result := Bayesian.Parse( text, wordCount, gbaPaulGraham );
3080         gsfaGaryRobinson:                               Result := Bayesian.Parse( text, wordCount, gbaGaryRobinson );
3081         gsfaGaryRobinsonFisher: Result := Bayesian.Parse( text, wordCount, gbaGaryRobinsonFisher );
3082         else                                                                            Result := 0;
3083         end;
3084
3085 end;
3086
3087 {!
3088 \brief \83\86\81[\83U\90Ý\92è\82Ì CSS \82ð\90¶\90¬
3089 \return \90¶\90¬\82³\82ê\82½ CSS
3090
3091 [\83c\81[\83\8b]\83\81\83j\83\85\81[-[\83I\83v\83V\83\87\83\93]-[CSS \82Æ\83X\83L\83\93]\83^\83u\82Ì
3092 [\83t\83H\83\93\83g\82ð\8ew\92è], [\94w\8ci\90F\82ð\8ew\92è] \82É\89\88\82Á\82½ CSS \82ð\90¶\90¬\82µ\82Ü\82·\81B
3093 }
3094 function TGikoSys.SetUserOptionalStyle(): string;
3095 begin
3096                 Result := '';
3097         if Length( GikoSys.Setting.BrowserFontName ) > 0 then
3098                 Result := 'font-family:"' + GikoSys.Setting.BrowserFontName + '";';
3099         if GikoSys.Setting.BrowserFontSize <> 0 then
3100                 Result := Result + 'font-size:' + IntToStr( GikoSys.Setting.BrowserFontSize ) + 'pt;';
3101         if GikoSys.Setting.BrowserFontColor <> -1 then
3102                 Result := Result + 'color:#' + IntToHex( GikoSys.Setting.BrowserFontColor, 6 ) + ';';
3103         if GikoSys.Setting.BrowserBackColor <> -1 then
3104                 Result := Result + 'background-color:#' + IntToHex( GikoSys.Setting.BrowserBackColor, 6 ) + ';';
3105         case GikoSys.Setting.BrowserFontBold of
3106                 -1: Result := Result + 'font-weight:normal;';
3107                 1:  Result := Result + 'font-weight:bold;';
3108         end;
3109         case GikoSys.Setting.BrowserFontItalic of
3110                 -1: Result := Result + 'font-style:normal;';
3111                 1:  Result := Result + 'font-style:italic;';
3112         end;
3113 end;
3114
3115 {!
3116 \brief Be \83v\83\8d\83t\83@\83C\83\8b\82Ö\82Ì\83A\83\93\83J\81[\83^\83O\82ð\90¶\90¬
3117 \param AID  \91Î\8fÛ\82Æ\82È\82é\93ú\95tID\95¶\8e\9a\97ñ
3118 \param ANum \83\8c\83X\94Ô
3119 \param AURL \82»\82Ì\83X\83\8c\83b\83h\82ÌURL
3120 \return     \90¶\90¬\82³\82ê\82½\83A\83\93\83J\81[\83^\83O
3121 }
3122 function TGikoSys.AddBeProfileLink(AID : string; ANum: Integer):string ;
3123 var
3124         p : integer;
3125         BNum, BMark : string;
3126 begin
3127         p := AnsiPos('BE:', AnsiUpperCase(AID));
3128         if p > 0 then begin
3129                 BNum := Copy(AID, p, Length(AID));
3130                 AID := Copy(AID, 1, p - 1);
3131                 p := AnsiPos('-', BNum);
3132                 if p > 0 then begin
3133                         BMark := '?' + Trim(Copy(BNum, p + 1, Length(BNum)));
3134                         BNum := Copy(BNum, 1, p - 1);
3135                 end;
3136                 BNum := Trim(BNum);
3137                 Result := AID + ' <a href="'  + BNum + '/' + IntToStr(ANum)
3138                         + '" target=_blank>' + BMark + '</a>';
3139         end else
3140                 Result := AID;
3141 end;
3142
3143 {!
3144 \brief \83o\81[\83W\83\87\83\93\8fî\95ñ\82ð\8eæ\93¾
3145 \param KeyWord \8eæ\93¾\82·\82é\8d\80\96Ú
3146 \return        \83o\81[\83W\83\87\83\93\95¶\8e\9a\97ñ
3147 }
3148 function TGikoSys.GetVersionInfo(KeyWord: TVerResourceKey): string;
3149 const
3150         Translation = '\VarFileInfo\Translation';
3151         FileInfo = '\StringFileInfo\%0.4s%0.4s\';
3152 var
3153         BufSize, HWnd: DWORD;
3154         VerInfoBuf: Pointer;
3155         VerData: Pointer;
3156         VerDataLen: Longword;
3157         PathLocale: String;
3158 begin
3159         // \95K\97v\82È\83o\83b\83t\83@\82Ì\83T\83C\83Y\82ð\8eæ\93¾
3160         BufSize := GetFileVersionInfoSize(PChar(Application.ExeName), HWnd);
3161         if BufSize <> 0 then begin
3162                 // \83\81\83\82\83\8a\82ð\8am\95Û
3163                 GetMem(VerInfoBuf, BufSize);
3164                 try
3165                         GetFileVersionInfo(PChar(Application.ExeName), 0, BufSize, VerInfoBuf);
3166                         // \95Ï\90\94\8fî\95ñ\83u\83\8d\83b\83N\93à\82Ì\95Ï\8a·\83e\81[\83u\83\8b\82ð\8ew\92è
3167                         VerQueryValue(VerInfoBuf, PChar(Translation), VerData, VerDataLen);
3168
3169                         if not (VerDataLen > 0) then
3170                                 raise Exception.Create('\8fî\95ñ\82Ì\8eæ\93¾\82É\8e¸\94s\82µ\82Ü\82µ\82½');
3171
3172                         // 8\8c\85\82Ì\82P\82U\90i\90\94\82É\95Ï\8a·
3173                         // \81¨'\StringFileInfo\027382\FileDescription'
3174                         PathLocale := Format(FileInfo + KeyWordStr[KeyWord],
3175                         [IntToHex(Integer(VerData^) and $FFFF, 4),
3176                         IntToHex((Integer(VerData^) shr 16) and $FFFF, 4)]);
3177                         VerQueryValue(VerInfoBuf, PChar(PathLocale), VerData, VerDataLen);
3178
3179                         if VerDataLen > 0 then begin
3180                                 // VerData\82Í\83[\83\8d\82Å\8fI\82í\82é\95¶\8e\9a\97ñ\82Å\82Í\82È\82¢\82±\82Æ\82É\92\8d\88Ó
3181                                 result := '';
3182                                 SetLength(result, VerDataLen);
3183                                 StrLCopy(PChar(result), VerData, VerDataLen);
3184                         end;
3185                 finally
3186                         // \89ð\95ú
3187                         FreeMem(VerInfoBuf);
3188                 end;
3189         end;
3190 end;
3191
3192 {!
3193 \brief Load \82³\82ê\82Ä\82¢\82é\83v\83\89\83O\83C\83\93\82Ì\83o\81[\83W\83\87\83\93\82ð\97ñ\8b\93
3194 \return 1\8ds1plugin
3195 }
3196 function TGikoSys.GetPluginsInfo(): String;
3197 var
3198         i : Integer;
3199         major, minor, revision : Cardinal;
3200         agent, release : String;
3201 begin
3202         //\8c\8b\89Ê\82ð\83N\83\8a\83A\82µ\82Ä\82¨\82
3203         Result := '';
3204
3205         //BoardGroups\8co\97R\82ÅPlugin\82É\83A\83N\83Z\83X\82·\82é
3206         for  i := 0 to Length(BoardGroups) - 1 do begin
3207                 //BoardGroups\82Ì\92\86\82É\82Í\81APlugin\82ð\8e\9d\82Á\82Ä\82¢\82È\82¢\82Ì\81i2\82¿\82á\82ñ\81j\82ª
3208                 //\82¢\82é\82Ì\82Å\82»\82ê\82ð\8f\9c\82
3209                 if BoardGroups[i].BoardPlugIn <> nil then begin
3210                         BoardGroups[i].BoardPlugIn.VersionInfo(agent, major, minor, release, revision);
3211
3212
3213                         //"Plugin\82Ì\96¼\91O(major.minor.revision)"
3214                         Result := Result +
3215                                 Format('%s(%d.%d.%d)', [agent, major, minor, revision]) + #13#10;
3216                 end;
3217         end;
3218 end;
3219
3220
3221 //! IE\82Ì\83o\81[\83W\83\87\83\93\82ð\8eæ\93¾\82·\82é
3222 function TGikoSys.GetIEVersion: string;
3223 var
3224         R: TRegistry;
3225 begin
3226         R := TRegistry.Create;
3227         try
3228                 //\93Ç\82Ý\8eæ\82è\90ê\97p\82É\82µ\82È\82¢\82Æ\81A\90§\8cÀUSER\82Æ\82©\82Ì\8fê\8d\87\81A\8aJ\82¯\82È\82¢\82Ý\82½\82¢
3229                 R.Access := KEY_EXECUTE;
3230                 R.RootKey := HKEY_LOCAL_MACHINE;
3231                 R.OpenKey('Software\Microsoft\Internet Explorer', False);
3232                 try
3233                         Result := R.ReadString('version');
3234                 except
3235                         Result := '\83o\81[\83W\83\87\83\93\82Ì\8eæ\93¾\82É\8e¸\94s\82µ\82Ü\82µ\82½\81B';
3236                 end;
3237                 R.CloseKey;
3238         finally
3239                 R.Free;
3240         end;
3241 end;
3242 //! main\83t\83H\81[\83\80\82Ì\83V\83\87\81[\83g\83J\83b\83g\83L\81[\82ÌIni\83t\83@\83C\83\8b\96¼
3243 function TGikoSys.GetMainKeyFileName : String;
3244 begin
3245         Result := Setting.GetMainKeyFileName;
3246 end;
3247 //! Editor\83t\83H\81[\83\80\82Ì\83V\83\87\81[\83g\83J\83b\83g\83L\81[\82ÌIni\83t\83@\83C\83\8b\96¼
3248 function TGikoSys.GetEditorKeyFileName: String;
3249 begin
3250         Result := Setting.GetEditorKeyFileName;
3251 end;
3252 //! \93ü\97Í\83A\83V\83X\83g\82Ì\90Ý\92è\83t\83@\83C\83\8b\96¼
3253 function TGikoSys.GetInputAssistFileName: String;
3254 begin
3255         Result := Setting.GetInputAssistFileName;
3256 end;
3257 //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\90Ý\92è\82·\82é
3258 procedure TGikoSys.SetGikoMessage;
3259 begin
3260         if FGikoMessage = nil then begin
3261                 FGikoMessage := TGikoMessage.Create;
3262         end else begin
3263                 FGikoMessage.Clear;
3264         end;
3265
3266         if (Setting.GengoSupport) then begin
3267                 try
3268                         if (FileExists(Setting.GetLanguageFileName)) then begin
3269                                 FGikoMessage.LoadFromFile(Setting.GetLanguageFileName);
3270                         end;
3271                 except
3272                         FGikoMessage.Clear;
3273                 end;
3274         end;
3275 end;
3276 //! \83M\83R\83i\83r\82Ì\83\81\83b\83Z\81[\83W\82ð\8eæ\93¾\82·\82é
3277 function TGikoSys.GetGikoMessage(MesType: TGikoMessageListType): String;
3278 begin
3279     Result := '';
3280         if FGikoMessage <> nil then begin
3281                 Result := FGikoMessage.GetMessage(MesType);
3282         end;
3283 end;
3284
3285 initialization
3286         GikoSys := TGikoSys.Create;
3287
3288 finalization
3289         if GikoSys <> nil then begin
3290                 GikoSys.Free;
3291                 GikoSys := nil;
3292         end;
3293 end.