- doc.open;
- try
- doc.charset := 'Shift_JIS';
- NewReceiveNo := ThreadItem.NewReceive;
- ThreadName := ChangeFileExt(ThreadItem.FileName, '');
- // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
- UserOptionalStyle := GikoSys.SetUserOptionalStyle;
- CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName;
- if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin
- //CSS\8eg\97p
- doc.Write('<html><head>');
- doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">');
- doc.Write('<title>' + sTitle + '</title>');
- doc.Write('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');
- if Length( UserOptionalStyle ) > 0 then
- doc.Write('<style type="text/css">body {' + UserOptionalStyle + '}</style>');
- doc.Write('</head>'#13#10'<body>');
- doc.Write('<a name="top"></a>'#13#10'<p id="idSearch"></p>');
- doc.Write('<div class="title">' + sTitle + '</div>');
- for i := 0 to ReadList.Count - 1 do begin
- // 1 \82Í\95K\82¸\95\\8e¦
- if i <> 0 then begin
- // \95\\8e¦\94Í\88Í\82ð\8cÀ\92è
- case GikoSys.ResRange of
- Ord( grrKoko ):
- if ThreadItem.Kokomade > (i + 1) then
- Continue;
- Ord( grrNew ):
- if NewReceiveNo > (i + 1) then
- Continue;
- 10..65535:
- if (threadItem.Count - i) > GikoSys.ResRange then
- Continue;
- end;
- end;
-
- if (NewReceiveNo = (i + 1)) or ((NewReceiveNo = 0) and (i = 0)) then begin
- doc.Write('<a name="new"></a><div class="new">\90V\92\85\83\8c\83X <span class="newdate">' + FormatDateTime('yyyy/mm/dd(ddd) hh:mm', ThreadItem.RoundDate) + '</span></div>');
- end;
-
- if (Trim(ReadList[i]) <> '') then begin
- No := IntToStr(i + 1);
- DivideStrLine(ReadList[i], @Res);
- AddAnchorTag(@Res);
- ConvRes(@Res, ThreadItem.ParentBoard.BBSID, ThreadName);
- Res.FDateTime := AddBeProfileLink(Res.FDateTime, i + 1);
- if Res.FMailTo = '' then
- doc.Write(Format(FORMAT_NOMAIL, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]))
- else if GikoSys.Setting.ShowMail then
- doc.Write(Format(FORMAT_SHOWMAIL, [No, No, No, Res.FMailTo, Res.FName, Res.FMailTo, Res.FDateTime, Res.FBody]))
- else
- doc.Write(Format(FORMAT_NOSHOW, [No, No, No, Res.FName, Res.FDateTime, Res.FBody]));
- end;
-
- if ThreadItem.Kokomade = (i + 1) then begin
- doc.Write('<a name="koko"></a><div class="koko">\83R\83R\82Ü\82Å\93Ç\82ñ\82¾</div>');
- end;
-
- end;
-
- doc.Write('<a name="bottom"></a>');
- doc.Write('<a name="last"></a>');
- doc.Write('</body></html>');
- end;
- finally
- doc.Close;
- end;
-end;
-
-procedure THTMLCreate.CreateDefaultHTML (doc: Variant; ThreadItem: TThreadItem; ReadList: TStringList; sTitle: string );
-var
- i: integer;
- No: string;
- NewReceiveNo: Integer;
- Res: TResRec;
- ThreadName: String;
-begin
- doc.open;
- try
- doc.charset := 'Shift_JIS';
- NewReceiveNo := ThreadItem.NewReceive;
- ThreadName := ChangeFileExt(ThreadItem.FileName, '');
- doc.Write('<html><head>'#13#10);
- doc.Write('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">'#13#10);
- doc.Write('<title>' + sTitle + '</title></head>'#13#10);
- doc.Write('<body TEXT="#000000" BGCOLOR="#EFEFEF" link="#0000FF" alink="#FF0000" vlink="#660099">'#13#10);
- doc.Write('<a name="top"></a>'#13#10);
- doc.Write('<font size=+1 color="#FF0000">' + sTitle + '</font>'#13#10);
- doc.Write('<dl>'#13#10);
- doc.Write('<p id="idSearch"></p>'#13#10);
+ NewReceiveNo := ThreadItem.NewReceive;
+ ThreadName := ChangeFileExt(ThreadItem.FileName, '');
+ ResLink.FBbs := ThreadItem.ParentBoard.BBSID;
+ ResLink.FKey := ThreadName;
+ // \83t\83H\83\93\83g\82â\83T\83C\83Y\82Ì\90Ý\92è
+ UserOptionalStyle := GikoSys.SetUserOptionalStyle;
+ CSSFileName := GikoSys.GetStyleSheetDir + GikoSys.Setting.CSSFileName;
+ if GikoSys.Setting.UseCSS and FileExists(CSSFileName) then begin
+ //CSS\8eg\97p
+ html.Add('<html><head>');
+ html.Add('<meta http-equiv="Content-type" content="text/html; charset=Shift_JIS">');
+ html.Add('<title>' + sTitle + '</title>');
+ html.Add('<link rel="stylesheet" href="'+CSSFileName+'" type="text/css">');
+ if Length( UserOptionalStyle ) > 0 then
+ html.Add('<style type="text/css">body {' + UserOptionalStyle + '}</style>');
+ html.Add('</head>'#13#10'<body>');
+ html.Add('<a name="top"></a>'#13#10'<p id="idSearch"></p>');
+ html.Add('<div class="title">' + sTitle + '</div>');
+ html.Flush;