・「板一覧更新」で削除要請板のURLを強制的に変更する機能を追加

[gikonavigoeson/gikonavi.git] / ThreadSearch.pas
diff --git a/ThreadSearch.pas b/ThreadSearch.pas

index db30e1c..b3e451f 100644 (file)
--- a/ThreadSearch.pas
+++ b/ThreadSearch.pas
@@ -92,6 +92,8 @@ function ConvertINetString(lpdwMode: LPDWORD;
  var
    ThreadSrch: TThreadSrch = nil;
  const
+    HTML_HD: String = '<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><title></title></head><body>';
+    HTML_FT: String = '</body></html>';
      ENC_SJIS: DWORD = 932;
      ENC_UTF8: DWORD = 65001;
  
@@ -339,9 +341,6 @@ begin
  end;
  
  function TThreadSrch.ParsJson(JsonStream: TMemoryStream): Boolean;
-const
-    HTML_HD: String = '<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><title></title></head><body>';
-    HTML_FT: String = '</body></html>';
  var
      vJsonObj: TlkJsonObject;
      vCm: TlkJSONbase;
@@ -614,6 +613,8 @@ begin
  end;
  
  procedure TThreadSrch.FormShow(Sender: TObject);
+const
+    HTML_INF = '<font size="-1">\8c\9f\8dõ\82·\82é\82Æ\81A\82±\82±\82É http://dig.2ch.net/ \82©\82ç\82Ì\8dL\8d\90\82ª\95\\8e¦\82³\82ê\82Ü\82·\81B<br>\8dL\8d\90\82Ì\93à\97e\81A\8eû\89v\82È\82Ç\82É\82Â\82¢\82Ä\83M\83R\83i\83r\8aJ\94\8eÒ\82Í\88ê\90Ø\8aÖ\92m\82µ\82Ä\82¨\82è\82Ü\82¹\82ñ\81B</font>';
  var
      Ini: TIniFile;
      Sec: TStringList;
@@ -643,6 +644,7 @@ begin
      PnlBbsName.Caption := '';
      PnlBbsId.Caption := '';
  //    CmBrowser.Navigate('about:blank');
+    SetCm(HTML_HD + HTML_INF + HTML_FT);
  
      PopMenuBbs.Items.Clear;
      BbsNmList.Clear;