Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/LocalRuleShow.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1.2.1 - (hide annotations) (download) (as text)
Thu Sep 9 16:20:33 2004 UTC (19 years, 7 months ago) by yoffy
Branch: stable
Changes since 1.1: +0 -0 lines
File MIME type: text/x-pascal
Х48˥ޡ

1 genyakun 1.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 宣言 }
16     FBoard: TBoard;
17     public
18     { Public 宣言 }
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を元にSETTING.TXTアドレス指定
39     URL := RefURL
40     + TXTName;
41     ShowMemo.Text := Indy.Get(URL);
42     end;
43    
44     end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26