LocalRuleShow.pas

   1 unit LocalRuleShow;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, StdCtrls, GikoSystem, BoardGroup, IdBaseComponent, IdComponent,
   8   IdTCPConnection, IdTCPClient, IdHTTP;
   9
  10 type
  11   TShow = class(TForm)
  12     ShowMemo: TMemo;
  13     IdHTTP1: TIdHTTP;
  14   private
  15     { Private \90é\8c¾ }
  16     FBoard: TBoard;
  17   public
  18     { Public \90é\8c¾ }
  19     function RuleShow(TXTName:String): String;
  20   end;
  21
  22 var
  23   Show: TShow;
  24   TXTName:String;
  25
  26 implementation
  27
  28 {$R *.dfm}
  29
  30 function TShow.RuleShow(TXTName:String): String;
  31 var
  32         RefUrl,URL: String;
  33         Indy: TIdHTTP;
  34 begin
  35         RefURL := GikoSys.UrlToServer(FBoard.URL)
  36                + GikoSys.UrlToID(FBoard.URL)
  37                + '/';
  38         //RefURL\82ð\8c³\82ÉSETTING.TXT\83A\83h\83\8c\83X\8ew\92è
  39         URL := RefURL
  40                 + TXTName;
  41         ShowMemo.Text := Indy.Get(URL);
  42 end;
  43
  44 end.