| 356 |
function BBSsFindBoardFromURL( inURL : string ) : TBoard; |
function BBSsFindBoardFromURL( inURL : string ) : TBoard; |
| 357 |
function BBSsFindBoardFromTitle( inTitle : string ) : TBoard; |
function BBSsFindBoardFromTitle( inTitle : string ) : TBoard; |
| 358 |
function BBSsFindThreadFromURL( inURL : string ) : TThreadItem; |
function BBSsFindThreadFromURL( inURL : string ) : TThreadItem; |
| 359 |
|
function ConvertDateTimeString( inDateTimeString : string) : string; |
| 360 |
|
|
| 361 |
var |
var |
| 362 |
BBSs : array of TBBS; |
BBSs : array of TBBS; |
| 363 |
|
|
| 986 |
var |
var |
| 987 |
ini: TMemIniFile; |
ini: TMemIniFile; |
| 988 |
FileName: string; |
FileName: string; |
| 989 |
|
tmp: string; |
| 990 |
begin |
begin |
| 991 |
if Length( FilePath ) > 0 then |
if Length( FilePath ) > 0 then |
| 992 |
FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME |
FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME |
| 999 |
ini := TMemIniFile.Create(FileName); |
ini := TMemIniFile.Create(FileName); |
| 1000 |
try |
try |
| 1001 |
// Round := ini.ReadBool('Status', 'Round', False); |
// Round := ini.ReadBool('Status', 'Round', False); |
| 1002 |
FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE); |
tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE)); |
| 1003 |
FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE); |
FRoundDate := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1004 |
FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE); |
tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE)); |
| 1005 |
|
FLastModified := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1006 |
|
tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE)); |
| 1007 |
|
FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1008 |
|
|
| 1009 |
|
{ |
| 1010 |
|
try |
| 1011 |
|
FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE); |
| 1012 |
|
except |
| 1013 |
|
tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE)); |
| 1014 |
|
FRoundDate := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1015 |
|
end; |
| 1016 |
|
try |
| 1017 |
|
FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE); |
| 1018 |
|
except |
| 1019 |
|
tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE)); |
| 1020 |
|
FLastModified := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1021 |
|
end; |
| 1022 |
|
try |
| 1023 |
|
FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE); |
| 1024 |
|
except |
| 1025 |
|
tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE)); |
| 1026 |
|
FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp)); |
| 1027 |
|
end; |
| 1028 |
|
} |
| 1029 |
FUnRead := ini.ReadInteger('Status', 'UnRead', 0); |
FUnRead := ini.ReadInteger('Status', 'UnRead', 0); |
| 1030 |
FSPID := ini.ReadString('Cookie', 'SPID', ''); |
FSPID := ini.ReadString('Cookie', 'SPID', ''); |
| 1031 |
FPON := ini.ReadString('Cookie', 'PON', ''); |
FPON := ini.ReadString('Cookie', 'PON', ''); |
| 1075 |
ini.Free; |
ini.Free; |
| 1076 |
end; |
end; |
| 1077 |
end; |
end; |
| 1078 |
|
//ときたま2003 02 08 0:32:13こんな形式の日付があるのでそれを |
| 1079 |
|
// 2003/02/08 0:32:13に変換する |
| 1080 |
|
function ConvertDateTimeString( inDateTimeString : string) : string; |
| 1081 |
|
var |
| 1082 |
|
i : Integer; |
| 1083 |
|
begin |
| 1084 |
|
if ( AnsiPos('/', inDateTimeString ) = 0 ) and |
| 1085 |
|
( AnsiCompareStr( DateTimeToStr(ZERO_DATE), inDateTimeString) <> 0 ) then begin |
| 1086 |
|
for i := 0 to 1 do begin |
| 1087 |
|
Insert('/',inDateTimeString, AnsiPos(' ', inDateTimeString) + 1 ); |
| 1088 |
|
Delete(inDateTimeString, AnsiPos(' ', inDateTimeString), 1); |
| 1089 |
|
end; |
| 1090 |
|
end; |
| 1091 |
|
Result := inDateTimeString; |
| 1092 |
|
end; |
| 1093 |
// サブジェクトURL取得 |
// サブジェクトURL取得 |
| 1094 |
function TBoard.GetReadCgiURL: string; |
function TBoard.GetReadCgiURL: string; |
| 1095 |
begin |
begin |