| 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 |
|
SKIN_HEADER_FILE_NAME = 'Header.html'; |
| 207 |
FOLDER_INDEX_VERSION = '1.01'; |
FOLDER_INDEX_VERSION = '1.01'; |
| 208 |
USER_AGENT = 'Monazilla'; |
USER_AGENT = 'Monazilla'; |
| 209 |
APP_NAME = 'gikoNavi'; |
APP_NAME = 'gikoNavi'; |
| 816 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 817 |
|
|
| 818 |
CSSFileName := GetStyleSheetDir + Setting.CSSFileName; |
CSSFileName := GetStyleSheetDir + Setting.CSSFileName; |
| 819 |
SkinHeaderFileName := GetSkinDir + 'Header.html'; |
SkinHeaderFileName := GetSkinDir + SKIN_HEADER_FILE_NAME; |
| 820 |
if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
if FileExists( SkinHeaderFileName ) then begin |
| 821 |
//CSS使用 |
// スキン使用 |
| 822 |
//CSSFileName := GetAppDir + CSS_FILE_NAME; |
|
|
// SaveList.Add('<html lang="ja"><head>'); |
|
| 823 |
SaveList.Add('<html><head>'); |
SaveList.Add('<html><head>'); |
| 824 |
SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'); |
SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'); |
| 825 |
SaveList.Add('<title>' + sTitle + '</title>'); |
SaveList.Add('<title>' + sTitle + '</title>'); |
| 826 |
SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'); |
|
| 827 |
|
// CSS の設定 |
| 828 |
|
//SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'); |
| 829 |
|
|
| 830 |
// スキンの設定 |
// スキンの設定 |
| 831 |
SaveList.Add('<base href="' + GetSkinDir + '">'); |
SaveList.Add('<base href="' + GetSkinDir + '">'); |
| 832 |
SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">'); |
SaveList.Add('<meta name="SkinPath" content="' + GetSkinDir + '">'); |
| 833 |
ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 ); |
ThreadNo := Copy( ThreadItem.FileName, 1, Pos( '.', ThreadItem.FileName ) - 1 ); |
| 834 |
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>'); |
| 835 |
if FileExists( SkinHeaderFileName ) then |
try |
|
begin |
|
| 836 |
Skin := TStringList.Create; |
Skin := TStringList.Create; |
| 837 |
Skin.LoadFromFile( SkinHeaderFileName ); |
Skin.LoadFromFile( SkinHeaderFileName ); |
| 838 |
SaveList.AddStrings( Skin ); |
SaveList.AddStrings( Skin ); |
| 839 |
Skin.Free; |
Skin.Free; |
| 840 |
|
except |
| 841 |
|
end; |
| 842 |
|
|
| 843 |
|
SaveList.Add('</head>'); |
| 844 |
|
SaveList.Add('<body>'); |
| 845 |
|
SaveList.Add('<dl id="dl">'); |
| 846 |
|
SaveList.Add('<a name="top"></a>'); |
| 847 |
|
//SaveList.Add('<div class="title">' + sTitle + '</div>'); |
| 848 |
|
|
| 849 |
|
for i := 0 to ReadList.Count - 1 do begin |
| 850 |
|
if (Trim(ReadList[i]) <> '') then begin |
| 851 |
|
No := IntToStr(i + 1); |
| 852 |
|
if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin |
| 853 |
|
SaveList.Add('<a name="new"></a><div class="new">新着レス <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>'); |
| 854 |
|
end; |
| 855 |
|
Res := DivideStrLine(ReadList[i]); |
| 856 |
|
Res.FBody := ConvRes(Res.FBody, ThreadItem.ParentBoard.BBSID, ChangeFileExt(ThreadItem.FileName, ''), 'bbs', 'key', 'st', 'to', 'nofirst', 'true'); |
| 857 |
|
|
| 858 |
|
if Res.FType = glt2chOld then begin |
| 859 |
|
Res.FMailTo := StringReplace(Res.FMailTo, '@`', ',', [rfReplaceAll]); |
| 860 |
|
Res.FName := StringReplace(Res.FName, '@`', ',', [rfReplaceAll]); |
| 861 |
|
Res.FBody := StringReplace(Res.FBody, '@`', ',', [rfReplaceAll]); |
| 862 |
|
end; |
| 863 |
|
|
| 864 |
|
Res.FBody := AddAnchorTag(Res.FBody); |
| 865 |
|
if Res.FName = '' then |
| 866 |
|
Res.FName := ' '; |
| 867 |
|
if Res.FMailTo = '' then |
| 868 |
|
SaveList.Add('<a name="' + No + '"></a>' |
| 869 |
|
+ '<dt><a href="menu:=' + No + '" name="Res' + No + '">' + No + '</a>' |
| 870 |
|
+ ' 名前:' |
| 871 |
|
+ '<u><b> ' + Res.FName + '</b></u>' |
| 872 |
|
+ ' 投稿日:' |
| 873 |
|
+ '<span> ' + Res.FDateTime+ '</span></dt>' |
| 874 |
|
+ '<dd>' + Res.FBody + '</dd>') |
| 875 |
|
else |
| 876 |
|
if GikoSys.Setting.ShowMail then |
| 877 |
|
SaveList.Add('<a name="' + No + '"></a>' |
| 878 |
|
+ '<dt><a href="menu:' + No + '" name="Res' + No + '">' + No + '</a>' |
| 879 |
|
+ ' 名前:' |
| 880 |
|
+ '<a href="mailto:' + Res.FMailTo + '">' |
| 881 |
|
+ '<u><b> ' + Res.FName + '</b></u></a> [' + Res.FMailTo + ']' |
| 882 |
|
+ ' 投稿日:' |
| 883 |
|
+ '<span> ' + Res.FDateTime+ '</span></div></dt>' |
| 884 |
|
+ '<dd>' + Res.FBody + '</dd>') |
| 885 |
|
else |
| 886 |
|
SaveList.Add('<a name="' + No + '"></a>' |
| 887 |
|
+ '<a href="menu:' + No + '" name="Res' + No + '">' + No + '</a>' |
| 888 |
|
+ ' 名前:' |
| 889 |
|
+ '<a href="mailto:' + Res.FMailTo + '">' |
| 890 |
|
+ '<u><b> ' + Res.FName + '</b></u></a>' |
| 891 |
|
+ ' 投稿日:' |
| 892 |
|
+ '<spa> ' + Res.FDateTime+ '</span></div>' |
| 893 |
|
+ '<dd>' + Res.FBody + '</dd>'); |
| 894 |
|
if ThreadItem.Kokomade = (i + 1) then begin |
| 895 |
|
SaveList.Add('<a name="koko"></a><div class="koko">ココまで読んだ</div>'); |
| 896 |
|
end; |
| 897 |
|
end; |
| 898 |
|
//if SaveList.Count > 50 then begin |
| 899 |
|
if i = 20 then begin |
| 900 |
|
//Sleep(1); |
| 901 |
|
//Application.ProcessMessages; |
| 902 |
|
|
| 903 |
|
doc.Write(SaveList.Text); |
| 904 |
|
//while GikoForm.Browser.Busy do begin |
| 905 |
|
// Sleep(1); |
| 906 |
|
// Application.ProcessMessages; |
| 907 |
|
//end; |
| 908 |
|
while (GikoForm.Browser.ReadyState <> READYSTATE_COMPLETE) and |
| 909 |
|
(GikoForm.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin |
| 910 |
|
//Sleep(1); |
| 911 |
|
//Application.ProcessMessages; |
| 912 |
|
end; |
| 913 |
|
SaveList.Clear; |
| 914 |
|
end; |
| 915 |
end; |
end; |
| 916 |
|
SaveList.Add('<a name="bottom"></a>'); |
| 917 |
|
SaveList.Add('</dl>'); |
| 918 |
|
SaveList.Add('<a name="last"></a>'); |
| 919 |
|
SaveList.Add('</body></html>'); |
| 920 |
|
|
| 921 |
|
doc.Write(SaveList.Text); |
| 922 |
|
end else if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin |
| 923 |
|
//CSS使用 |
| 924 |
|
//CSSFileName := GetAppDir + CSS_FILE_NAME; |
| 925 |
|
// SaveList.Add('<html lang="ja"><head>'); |
| 926 |
|
SaveList.Add('<html><head>'); |
| 927 |
|
SaveList.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'); |
| 928 |
|
SaveList.Add('<title>' + sTitle + '</title>'); |
| 929 |
|
SaveList.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">'); |
| 930 |
SaveList.Add('</head>'); |
SaveList.Add('</head>'); |
| 931 |
SaveList.Add('<body>'); |
SaveList.Add('<body>'); |
|
//SaveList.Add('<dl id="dl">'); |
|
| 932 |
SaveList.Add('<a name="top"></a>'); |
SaveList.Add('<a name="top"></a>'); |
| 933 |
SaveList.Add('<div class="title">' + sTitle + '</div>'); |
SaveList.Add('<div class="title">' + sTitle + '</div>'); |
| 934 |
//doc.Write(SaveList.Text); |
//doc.Write(SaveList.Text); |
| 957 |
Res.FName := ' '; |
Res.FName := ' '; |
| 958 |
if Res.FMailTo = '' then |
if Res.FMailTo = '' then |
| 959 |
SaveList.Add('<a name="' + No + '"></a>' |
SaveList.Add('<a name="' + No + '"></a>' |
| 960 |
+ '<dt><div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span> ' |
+ '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span> ' |
| 961 |
+ '<span class="name_label">名前:</span> ' |
+ '<span class="name_label">名前:</span> ' |
| 962 |
+ '<span class="name"><b>' + Res.FName + '</b></span> ' |
+ '<span class="name"><b>' + Res.FName + '</b></span> ' |
| 963 |
+ '<span class="date_label">投稿日:</span> ' |
+ '<span class="date_label">投稿日:</span> ' |
| 964 |
+ '<span class="date">' + Res.FDateTime+ '</span></div></dt>' |
+ '<span class="date">' + Res.FDateTime+ '</span></div>' |
| 965 |
+ '<dd><div class="mes">' + Res.FBody + ' </div></dd>') |
+ '<div class="mes">' + Res.FBody + ' </div>') |
| 966 |
else |
else |
| 967 |
if GikoSys.Setting.ShowMail then |
if GikoSys.Setting.ShowMail then |
| 968 |
SaveList.Add('<a name="' + No + '"></a>' |
SaveList.Add('<a name="' + No + '"></a>' |
| 969 |
+ '<dt><div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>' |
+ '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>' |
| 970 |
+ '<span class="name_label"> 名前: </span>' |
+ '<span class="name_label"> 名前: </span>' |
| 971 |
+ '<a class="name_mail" href="mailto:' + Res.FMailTo + '">' |
+ '<a class="name_mail" href="mailto:' + Res.FMailTo + '">' |
| 972 |
+ '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>' |
+ '<b>' + Res.FName + '</b></a><span class="mail"> [' + Res.FMailTo + ']</span>' |
| 973 |
+ '<span class="date_label"> 投稿日:</span>' |
+ '<span class="date_label"> 投稿日:</span>' |
| 974 |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div></dt>' |
+ '<span class="date"> ' + Res.FDateTime+ '</span></div>' |
| 975 |
+ '<dd><div class="mes">' + Res.FBody + ' </div></dd>') |
+ '<div class="mes">' + Res.FBody + ' </div>') |
| 976 |
else |
else |
| 977 |
SaveList.Add('<a name="' + No + '"></a>' |
SaveList.Add('<a name="' + No + '"></a>' |
| 978 |
+ '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>' |
+ '<div class="header"><span class="no"><a href="giko://?no=' + No + '">' + No + '</a></span>' |
| 1006 |
end; |
end; |
| 1007 |
SaveList.Add('<a name="bottom"></a>'); |
SaveList.Add('<a name="bottom"></a>'); |
| 1008 |
SaveList.Add('</body></html>'); |
SaveList.Add('</body></html>'); |
|
{ |
|
|
SaveList.Add('</dl>'); |
|
| 1009 |
SaveList.Add('<a name="last"></a>'); |
SaveList.Add('<a name="last"></a>'); |
| 1010 |
SaveList.Add('</body></html>'); |
SaveList.Add('</body></html>'); |
| 1011 |
} |
|
| 1012 |
doc.Write(SaveList.Text); |
doc.Write(SaveList.Text); |
| 1013 |
end else begin |
end else begin |
| 1014 |
//CSS非使用 |
//CSS非使用 |