HEAD,SETTING表示用

[gikonavigoeson/gikonavi.git] / LocalRuleShow.pas

diff --git a/LocalRuleShow.pas b/LocalRuleShow.pas
new file mode 100644 (file)
index 0000000..0d434a5
--- /dev/null
+++ b/LocalRuleShow.pas
@@ -0,0 +1,44 @@
+unit LocalRuleShow;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, GikoSystem, BoardGroup, IdBaseComponent, IdComponent,
+  IdTCPConnection, IdTCPClient, IdHTTP;
+
+type
+  TShow = class(TForm)
+    ShowMemo: TMemo;
+    IdHTTP1: TIdHTTP;
+  private
+    { Private \90é\8c¾ }
+    FBoard: TBoard;
+  public
+    { Public \90é\8c¾ }
+    function RuleShow(TXTName:String): String;
+  end;
+
+var
+  Show: TShow;
+  TXTName:String;
+
+implementation
+
+{$R *.dfm}
+
+function TShow.RuleShow(TXTName:String): String;
+var
+        RefUrl,URL: String;
+        Indy: TIdHTTP;
+begin
+        RefURL := GikoSys.UrlToServer(FBoard.URL)
+               + GikoSys.UrlToID(FBoard.URL)
+              + '/';
+       //RefURL\82ð\8c³\82ÉSETTING.TXT\83A\83h\83\8c\83X\8ew\92è
+       URL := RefURL
+               + TXTName;
+        ShowMemo.Text := Indy.Get(URL);
+end;
+
+end.