function BBSsFindBoardFromURL( inURL : string ) : TBoard;
function BBSsFindBoardFromTitle( inTitle : string ) : TBoard;
function BBSsFindThreadFromURL( inURL : string ) : TThreadItem;
-
+ function ConvertDateTimeString( inDateTimeString : string) : string;
+
var
BBSs : array of TBBS;
var
ini: TMemIniFile;
FileName: string;
+ tmp: string;
begin
if Length( FilePath ) > 0 then
FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
ini := TMemIniFile.Create(FileName);
try
// Round := ini.ReadBool('Status', 'Round', False);
- FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE);
- FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE);
- FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE);
+ tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE));
+ FRoundDate := StrToDateTime(ConvertDateTimeString(tmp));
+ tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE));
+ FLastModified := StrToDateTime(ConvertDateTimeString(tmp));
+ tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE));
+ FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp));
+
+ {
+ try
+ FRoundDate := ini.ReadDateTime('Status', 'RoundDate', ZERO_DATE);
+ except
+ tmp := ini.ReadString('Status', 'RoundDate', DateTimeToStr(ZERO_DATE));
+ FRoundDate := StrToDateTime(ConvertDateTimeString(tmp));
+ end;
+ try
+ FLastModified := ini.ReadDateTime('Status', 'LastModified', ZERO_DATE);
+ except
+ tmp := ini.ReadString('Status', 'LastModified', DateTimeToStr(ZERO_DATE));
+ FLastModified := StrToDateTime(ConvertDateTimeString(tmp));
+ end;
+ try
+ FLastGetTime := ini.ReadDateTime('Status', 'LastGetTime', ZERO_DATE);
+ except
+ tmp := ini.ReadString('Status', 'LastGetTime', DateTimeToStr(ZERO_DATE));
+ FLastGetTime := StrToDateTime(ConvertDateTimeString(tmp));
+ end;
+ }
FUnRead := ini.ReadInteger('Status', 'UnRead', 0);
FSPID := ini.ReadString('Cookie', 'SPID', '');
FPON := ini.ReadString('Cookie', 'PON', '');
ini.Free;
end;
end;
-
+//\82Æ\82«\82½\82Ü2003 02 08 0:32:13\82±\82ñ\82È\8c`\8e®\82Ì\93ú\95t\82ª\82 \82é\82Ì\82Å\82»\82ê\82ð
+// 2003/02/08 0:32:13\82É\95Ï\8a·\82·\82é
+function ConvertDateTimeString( inDateTimeString : string) : string;
+var
+ i : Integer;
+begin
+ if ( AnsiPos('/', inDateTimeString ) = 0 ) and
+ ( AnsiCompareStr( DateTimeToStr(ZERO_DATE), inDateTimeString) <> 0 ) then begin
+ for i := 0 to 1 do begin
+ Insert('/',inDateTimeString, AnsiPos(' ', inDateTimeString) + 1 );
+ Delete(inDateTimeString, AnsiPos(' ', inDateTimeString), 1);
+ end;
+ end;
+ Result := inDateTimeString;
+end;
// \83T\83u\83W\83F\83N\83gURL\8eæ\93¾
function TBoard.GetReadCgiURL: string;
begin