Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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    

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