| 93 |
|
|
| 94 |
public |
public |
| 95 |
{ Public 宣言 } |
{ Public 宣言 } |
| 96 |
FAbon : TAbon; |
FAbon : TAbon; |
| 97 |
FSelectResFilter : TAbon; |
FSelectResFilter : TAbon; |
| 98 |
constructor Create; |
constructor Create; |
| 99 |
|
|
| 100 |
destructor Destroy; override; |
destructor Destroy; override; |
| 181 |
var |
var |
| 182 |
GikoSys: TGikoSys; |
GikoSys: TGikoSys; |
| 183 |
const |
const |
| 184 |
LENGTH_RESTITLE = 40; |
LENGTH_RESTITLE = 40; |
| 185 |
ZERO_DATE: Integer = 25569; |
ZERO_DATE: Integer = 25569; |
| 186 |
BETA_VERSION_NAME_E = 'beta'; |
BETA_VERSION_NAME_E = 'beta'; |
| 187 |
BETA_VERSION_NAME_J = 'バタ'; |
BETA_VERSION_NAME_J = 'バタ'; |
| 194 |
Giko, RoundData; |
Giko, RoundData; |
| 195 |
|
|
| 196 |
const |
const |
| 197 |
BOARD_FILE_NAME = 'board.2ch'; |
BOARD_FILE_NAME = 'board.2ch'; |
| 198 |
CUSTOMBOARD_FILE_NAME = 'custom.2ch'; |
CUSTOMBOARD_FILE_NAME = 'custom.2ch'; |
| 199 |
KEY_SETTING_FILE_NAME = 'key.ini'; |
KEY_SETTING_FILE_NAME = 'key.ini'; |
| 200 |
TEMP_FOLDER = 'Temp'; |
TEMP_FOLDER = 'Temp'; |
| 201 |
OUTBOX_FILE_NAME = 'outbox.ini'; |
OUTBOX_FILE_NAME = 'outbox.ini'; |
| 202 |
SENT_FILE_NAME = 'sent.ini'; |
SENT_FILE_NAME = 'sent.ini'; |
| 203 |
CONFIG_DIR_NAME = 'config'; |
CONFIG_DIR_NAME = 'config'; |
| 204 |
CSS_DIR_NAME = 'css'; |
CSS_DIR_NAME = 'css'; |
| 205 |
SKIN_DIR_NAME = 'skin'; |
SKIN_DIR_NAME = 'skin'; |
| 206 |
FOLDER_INDEX_VERSION = '1.01'; |
FOLDER_INDEX_VERSION = '1.01'; |
| 207 |
USER_AGENT = 'Monazilla'; |
USER_AGENT = 'Monazilla'; |
| 208 |
APP_NAME = 'gikoNavi'; |
APP_NAME = 'gikoNavi'; |
| 209 |
DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt'; |
DEFAULT_NGWORD_FILE_NAME : String = 'NGword.txt'; |
| 210 |
NGWORDs_DIR_NAME : String = 'NGwords'; |
NGWORDs_DIR_NAME : String = 'NGwords'; |
| 211 |
|
|
| 212 |
(************************************************************************* |
(************************************************************************* |
| 213 |
*GikoSysコンストラクタ |
*GikoSysコンストラクタ |
| 217 |
FSetting := TSetting.Create; |
FSetting := TSetting.Create; |
| 218 |
FDolib := TDolib.Create; |
FDolib := TDolib.Create; |
| 219 |
FAWKStr := TAWKStr.Create(nil); |
FAWKStr := TAWKStr.Create(nil); |
| 220 |
if DirectoryExists(GetConfigDir) = false then begin |
if DirectoryExists(GetConfigDir) = false then begin |
| 221 |
CreateDir(GetConfigDir); |
CreateDir(GetConfigDir); |
| 222 |
end; |
end; |
| 223 |
FAbon := TAbon.Create; |
FAbon := TAbon.Create; |
| 224 |
FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME); |
FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME); |
| 225 |
//FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME); |
//FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME); |
| 226 |
FAbon.GoHome; |
FAbon.GoHome; |
| 227 |
FSelectResFilter := TAbon.Create; |
FSelectResFilter := TAbon.Create; |
| 228 |
// 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除 |
// 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除 |
| 229 |
FSelectResFilter.AbonString := ''; |
FSelectResFilter.AbonString := ''; |
| 230 |
end; |
end; |
| 780 |
FileName: string; |
FileName: string; |
| 781 |
NewReceiveNo: Integer; |
NewReceiveNo: Integer; |
| 782 |
Res: TResRec; |
Res: TResRec; |
| 783 |
Skin: TStringList; |
Skin: TStringList; |
| 784 |
ThreadNo: string; |
ThreadNo: string; |
| 785 |
SkinHeaderFileName: string; |
SkinHeaderFileName: string; |
| 786 |
begin |
begin |
| 787 |
ShortDayNames[1] := '日'; ShortDayNames[2] := '月'; |
ShortDayNames[1] := '日'; ShortDayNames[2] := '月'; |
| 788 |
ShortDayNames[3] := '火'; ShortDayNames[4] := '水'; |
ShortDayNames[3] := '火'; ShortDayNames[4] := '水'; |
| 815 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 816 |
|
|
| 817 |
CSSFileName := GetStyleSheetDir + Setting.CSSFileName; |
CSSFileName := GetStyleSheetDir + Setting.CSSFileName; |
| 818 |
SkinHeaderFileName := GetSkinDir + 'Header.html'; |
SkinHeaderFileName := GetSkinDir + 'Header.html'; |
| 819 |
if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
| 820 |
//CSS使用 |
//CSS使用 |
| 821 |
//CSSFileName := GetAppDir + CSS_FILE_NAME; |
//CSSFileName := GetAppDir + CSS_FILE_NAME; |
| 825 |
SaveList.Add('<title>' + sTitle + '</title>'); |
SaveList.Add('<title>' + sTitle + '</title>'); |
| 826 |
SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'); |
SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'); |
| 827 |
|
|
| 828 |
// スキンの設定 |
// スキンの設定 |
| 829 |
SaveList.Add('<base href="' + GetConfigDir + 'skin\">'); |
SaveList.Add('<base href="' + GetSkinDir + '">'); |
| 830 |
SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">'); |
SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">'); |
| 831 |
ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 ); |
ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 ); |
| 832 |
SaveList.Add('<script type="text/javascript">function checkPop(href){return href.match(/decoy:|#|\/'+ThreadNo+'\//)}</script>'); |
SaveList.Add('<script type="text/javascript">function checkPop(href){return href.match(/decoy:|#|\/'+ThreadNo+'\//)}</script>'); |
| 833 |
if FileExists( SkinHeaderFileName ) then |
if FileExists( SkinHeaderFileName ) then |
| 834 |
begin |
begin |
| 835 |
Skin := TStringList.Create; |
Skin := TStringList.Create; |
| 836 |
Skin.LoadFromFile( SkinHeaderFileName ); |
Skin.LoadFromFile( SkinHeaderFileName ); |
| 837 |
SaveList.AddStrings( Skin ); |
SaveList.AddStrings( Skin ); |
| 838 |
Skin.Free; |
Skin.Free; |
| 839 |
end; |
end; |
| 840 |
|
|
| 841 |
SaveList.Add('</head>'); |
SaveList.Add('</head>'); |
| 842 |
SaveList.Add('<body>'); |
SaveList.Add('<body>'); |
| 919 |
SaveList.Add('<a name="bottom"></a>'); |
SaveList.Add('<a name="bottom"></a>'); |
| 920 |
SaveList.Add('</body></html>'); |
SaveList.Add('</body></html>'); |
| 921 |
{ |
{ |
| 922 |
SaveList.Add('</dl>'); |
SaveList.Add('</dl>'); |
| 923 |
SaveList.Add('<a name="last"></a>'); |
SaveList.Add('<a name="last"></a>'); |
| 924 |
SaveList.Add('</body></html>'); |
SaveList.Add('</body></html>'); |
| 925 |
} |
} |
| 926 |
doc.Write(SaveList.Text); |
doc.Write(SaveList.Text); |
| 927 |
end else begin |
end else begin |
| 928 |
//CSS非使用 |
//CSS非使用 |
| 1130 |
Result.FName := Trim(GetTokenIndex(Line, Delim, 0)); |
Result.FName := Trim(GetTokenIndex(Line, Delim, 0)); |
| 1131 |
Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1)); |
Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1)); |
| 1132 |
Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2)); |
Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2)); |
| 1133 |
bufBody := Trim(GetTokenIndex(Line, Delim, 3)); |
bufBody := Trim(GetTokenIndex(Line, Delim, 3)); |
| 1134 |
if bufbody = '' then begin |
if bufbody = '' then begin |
| 1135 |
Insert(' ',bufbody, 1); |
Insert(' ',bufbody, 1); |
| 1136 |
end; |
end; |
| 1137 |
Result.FBody := bufBody; |
Result.FBody := bufBody; |
| 1138 |
Result.FTitle := Trim(GetTokenIndex(Line, Delim, 4)); |
Result.FTitle := Trim(GetTokenIndex(Line, Delim, 4)); |
| 1139 |
|
|
| 1140 |
end; |
end; |
| 1281 |
begin |
begin |
| 1282 |
sl := TStringList.Create; |
sl := TStringList.Create; |
| 1283 |
try |
try |
| 1284 |
try |
try |
| 1285 |
sl.LoadFromFile(FileName); |
sl.LoadFromFile(FileName); |
| 1286 |
Result := sl.Count; |
Result := sl.Count; |
| 1287 |
except |
except |
| 1288 |
Result := 0; |
Result := 0; |
| 1289 |
end; |
end; |
| 1290 |
finally |
finally |
| 1291 |
sl.Free; |
sl.Free; |
| 1292 |
end; |
end; |
| 2264 |
var |
var |
| 2265 |
URI: TIdURI; |
URI: TIdURI; |
| 2266 |
begin |
begin |
| 2267 |
Protocol := ''; |
Protocol := ''; |
| 2268 |
Host := ''; |
Host := ''; |
| 2269 |
Path := ''; |
Path := ''; |
| 2270 |
Document := ''; |
Document := ''; |
| 2271 |
Port := ''; |
Port := ''; |
| 2272 |
Bookmark := ''; |
Bookmark := ''; |
| 2273 |
URI := TIdURI.Create(URL); |
URI := TIdURI.Create(URL); |
| 2274 |
try |
try |
| 2275 |
Protocol := URI.Protocol; |
Protocol := URI.Protocol; |
| 2276 |
Host := URI.Host; |
Host := URI.Host; |
| 2277 |
Path := URI.Path; |
Path := URI.Path; |
| 2278 |
Document := URI.Document; |
Document := URI.Document; |
| 2279 |
Port := URI.Port; |
Port := URI.Port; |
| 2280 |
Bookmark := URI.Bookmark; |
Bookmark := URI.Bookmark; |
| 2281 |
finally |
finally |
| 2282 |
URI.Free; |
URI.Free; |
| 2283 |
end; |
end; |
| 2284 |
end; |
end; |
| 2285 |
|
|
| 2286 |
function TGikoSys.GetVersionBuild: Integer; |
function TGikoSys.GetVersionBuild: Integer; |