Develop and Download Open Source Software
Login
Create Account
Help
MY OSDN
Find Software
Magazine
Develop
Pastebin
Software
People
PersonalForge
Magazine
Wiki
OSDN
>
Find Software
>
ギコナビ(避難所版)
ギコナビ(避難所版)
Summary
Project Summary
Developer Dashboard
Project Reviews
Web Page
Developers
List of RSS Feeds
Statistics
History
Image Gallery
Search Keywords
News
Listed News
Help
Downloads
List of Releases
Help
Source Code
Guide
Browse CVS
Browse Git: gikonavi
Help
Wiki
FrontPage
Title index
Recent changes
Wiki Search
Help
Forums
List of Forums
Open Discussion (2)
Help (1)
Developers (1)
Help
Mailing Lists
list of ML
Help
Ticket
Ticket List
Milestone List
Type List
Component List
List of frequently used tickets/RSS
Submit New Ticket
Help
Browse CVS Repository
/
[OSDN]
/
gikonavigoeson
/
gikonavi
/
Giko.pas
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision
1.348
by
genyakun
, Fri Jul 2 06:21:07 2004 UTC
revision
1.349
by
genyakun
, Sat Jul 3 13:01:56 2004 UTC
#
Line 10605
end;
Line 10605
end;
10605
10606
procedure TGikoForm.LocalRuleViewClick(Sender: TObject);
procedure TGikoForm.LocalRuleViewClick(Sender: TObject);
10607
var
var
10608
RefURL,
RefURL,
10609
RefeURL,
RefeURL,
10610
RuleURL,
RuleURL,
10611
RuleTxt:String;
RuleTxt:String;
10612
FBoard: TBoard;
FBoard: TBoard;
10613
Indy: TIdHTTP;
Indy: TIdHTTP;
10614
FileStream: TFileStream;
10615
begin
begin
10616
//フシアナトラップ警告(SETTING.TXT Mode) by 定期便
//ローカルルール取得 by 定期便
10617
RefURL := GikoSys.UrlToServer(FBoard.URL)
RefURL := GikoSys.UrlToServer(FBoard.URL)
10618
+ GikoSys.UrlToID(FBoard.URL)
+ GikoSys.UrlToID(FBoard.URL)
10619
+ '/';
+ '/';
//RefURLを元にSETTING.TXTアドレス指定
RefeURL := RefURL
+ 'SETTING.TXT';
10620
//試しにローカルルール取得も
//試しにローカルルール取得も
10621
RuleURL := RefURL
RuleURL := RefURL
10622
+ 'head.txt';
+ 'head.txt';
10623
//取得〜
//取得〜
10624
RuleTxt := Indy.Get(RuleURL);
RuleTxt := Indy.Get(RuleURL);
10625
//FileStream.Create('head.txt', fmCreate) := Indy.Get(RuleURL, FileStream);
10626
//試験表示〜
10627
if RuleTxt = '' then begin
10628
ShowMessage('ローカルルール取得失敗');
10629
end;
10630
ShowMessage(RuleTxt);
10631
10632
end;
end;
10633
Colored Diff
Long Colored Diff
Full Colored Diff
Unidiff
Context Diff
Side by Side
Legend:
Removed from v.1.348
changed lines
Added in v.1.349
Back to OSDN
">
Back to OSDN
ViewVC Help
Powered by
ViewVC 1.1.26