| 186 |
ZERO_DATE: Integer = 25569; |
ZERO_DATE: Integer = 25569; |
| 187 |
BETA_VERSION_NAME_E = 'beta'; |
BETA_VERSION_NAME_E = 'beta'; |
| 188 |
BETA_VERSION_NAME_J = 'バタ'; |
BETA_VERSION_NAME_J = 'バタ'; |
| 189 |
BETA_VERSION = 39; |
BETA_VERSION = 40; |
| 190 |
BETA_VERSION_BUILD = ''; //debug版など |
BETA_VERSION_BUILD = ''; //debug版など |
| 191 |
|
|
| 192 |
implementation |
implementation |
| 205 |
CSS_DIR_NAME = 'css'; |
CSS_DIR_NAME = 'css'; |
| 206 |
SKIN_DIR_NAME = 'skin'; |
SKIN_DIR_NAME = 'skin'; |
| 207 |
SKIN_HEADER_FILE_NAME = 'Header.html'; |
SKIN_HEADER_FILE_NAME = 'Header.html'; |
| 208 |
|
SKIN_FOOTER_FILE_NAME = 'Footer.html'; |
| 209 |
SKIN_NEWRES_FILE_NAME = 'NewRes.html'; |
SKIN_NEWRES_FILE_NAME = 'NewRes.html'; |
| 210 |
SKIN_RES_FILE_NAME = 'Res.html'; |
SKIN_RES_FILE_NAME = 'Res.html'; |
| 211 |
FOLDER_INDEX_VERSION = '1.01'; |
FOLDER_INDEX_VERSION = '1.01'; |
| 817 |
SkinHeaderFileName: string; |
SkinHeaderFileName: string; |
| 818 |
SkinNewRes: TStringList; |
SkinNewRes: TStringList; |
| 819 |
SkinRes: TStringList; |
SkinRes: TStringList; |
| 820 |
|
SizeByte: Integer; |
| 821 |
begin |
begin |
| 822 |
ShortDayNames[1] := '日'; ShortDayNames[2] := '月'; |
ShortDayNames[1] := '日'; ShortDayNames[2] := '月'; |
| 823 |
ShortDayNames[3] := '火'; ShortDayNames[4] := '水'; |
ShortDayNames[3] := '火'; ShortDayNames[4] := '水'; |
| 867 |
Skin := TStringList.Create; |
Skin := TStringList.Create; |
| 868 |
try |
try |
| 869 |
Skin.LoadFromFile( SkinHeaderFileName ); |
Skin.LoadFromFile( SkinHeaderFileName ); |
| 870 |
Skin.Text := StringReplace( Skin.Text, '$THISSKINPATH', Setting.CSSFileName, [rfReplaceAll] ); |
Skin.Text := StringReplace( Skin.Text, '&GETRESCOUNT', IntToStr( NewReceiveNo ), [rfReplaceAll] ); |
| 871 |
|
Skin.Text := StringReplace( Skin.Text, '&SKINPATH', Setting.CSSFileName, [rfReplaceAll] ); |
| 872 |
SaveList.AddStrings( Skin ); |
SaveList.AddStrings( Skin ); |
| 873 |
finally |
finally |
| 874 |
Skin.Free; |
Skin.Free; |
| 917 |
SaveList.AddStrings( Skin ); |
SaveList.AddStrings( Skin ); |
| 918 |
|
|
| 919 |
Skin.Free; |
Skin.Free; |
|
{ |
|
|
No := IntToStr(i + 1); |
|
|
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
|
|
SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'); |
|
|
end; |
|
|
Res := DivideStrLine(ReadList[i]); |
|
|
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
|
|
|
|
|
if Res.FType = glt2chOld then begin |
|
|
Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]); |
|
|
Res.FName := StringReplace(Res.FName, '@`', ',', [rfReplaceAll]); |
|
|
Res.FBody := StringReplace(Res.FBody, '@`', ',', [rfReplaceAll]); |
|
|
end; |
|
|
|
|
|
Res.FBody := AddAnchorTag(Res.FBody); |
|
|
if Res.FName = '' then |
|
|
Res.FName := ' '; |
|
|
if Res.FMailTo = '' then |
|
|
SaveList.Add('<a name="' + No + '"></a>' |
|
|
+ '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>' |
|
|
+ '<u><b> ' + Res.FName + '</b></u>' |
|
|
+ '<span> ' + Res.FDateTime+ '</span></dt>' |
|
|
+ '<dd>' + Res.FBody + '</dd>') |
|
|
else |
|
|
if GikoSys.Setting.ShowMail then |
|
|
SaveList.Add('<a name="' + No + '"></a>' |
|
|
+ '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>' |
|
|
+ '<a href="mailto:' + Res.FMailTo + '">' |
|
|
+ '<u><b> ' + Res.FName + '</b></u></a> [' + Res.FMailTo + ']' |
|
|
+ '<span> ' + Res.FDateTime+ '</span></dt>' |
|
|
+ '<dd>' + Res.FBody + '</dd>') |
|
|
else |
|
|
SaveList.Add('<a name="' + No + '"></a>' |
|
|
+ '<dt><a href="giko://?no=' + No + '" name="Res' + No + '">' + No + '</a>' |
|
|
+ '<a href="mailto:' + Res.FMailTo + '">' |
|
|
+ '<u><b> ' + Res.FName + '</b></u></a>' |
|
|
+ '<spa> ' + Res.FDateTime+ '</span></dt>' |
|
|
+ '<dd>' + Res.FBody + '</dd>'); |
|
|
if ThreadItem.Kokomade = (i + 1) then begin |
|
|
SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
|
|
end; |
|
|
} |
|
| 920 |
end; |
end; |
| 921 |
|
|
| 922 |
//if SaveList.Count > 50 then begin |
//if SaveList.Count > 50 then begin |
| 937 |
SaveList.Clear; |
SaveList.Clear; |
| 938 |
end; |
end; |
| 939 |
end; |
end; |
| 940 |
|
|
| 941 |
SaveList.Add('<a name="bottom"></a>'); |
SaveList.Add('<a name="bottom"></a>'); |
| 942 |
SaveList.Add('</dl>'); |
|
| 943 |
|
// スキン(フッタ) |
| 944 |
|
Skin := TStringList.Create; |
| 945 |
|
try |
| 946 |
|
Skin.LoadFromFile( Setting.CSSFileName + SKIN_FOOTER_FILE_NAME ); |
| 947 |
|
SizeByte := Length( SaveList.Text ); |
| 948 |
|
Skin.Text := StringReplace( Skin.Text, '&SIZEKB', IntToStr( Floor( SizeByte / 1024 ) ), [rfReplaceAll] ); |
| 949 |
|
Skin.Text := StringReplace( Skin.Text, '&SIZE', IntToStr( SizeByte ), [rfReplaceAll] ); |
| 950 |
|
SaveList.AddStrings( Skin ); |
| 951 |
|
finally |
| 952 |
|
Skin.Free; |
| 953 |
|
end; |
| 954 |
|
|
| 955 |
SaveList.Add('<a name="last"></a>'); |
SaveList.Add('<a name="last"></a>'); |
| 956 |
SaveList.Add('</body></html>'); |
SaveList.Add('</body></html>'); |
| 957 |
|
|