Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/NewBoard.pas

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

revision 1.18.4.2 by h677, Wed Jul 6 19:06:57 2005 UTC revision 1.18.4.3 by h677, Sat Jul 23 07:28:39 2005 UTC
# Line 146  begin Line 146  begin
146                  try                  try
147                          MessageMemo.Lines.Add('以下の場所から取得します');                          MessageMemo.Lines.Add('以下の場所から取得します');
148                          //MessageMemo.Lines.Add(GikoSys.Setting.BoardURL2ch);                          //MessageMemo.Lines.Add(GikoSys.Setting.BoardURL2ch);
149              MessageMemo.Lines.Add(URL);                          MessageMemo.Lines.Add(URL);
150                          MessageMemo.Lines.Add('ダウンロードを開始します');                          MessageMemo.Lines.Add('ダウンロードを開始します');
151                          Indy.Get(URL, Stream);                          IdAntiFreeze.Active := True;
152                            try
153                                    Indy.Get(URL, Stream);
154                            finally
155                                    IdAntiFreeze.Active := False;
156                            end;
157                          Result.FContent := GikoSys.GzipDecompress(Stream, Indy.Response.ContentEncoding);                          Result.FContent := GikoSys.GzipDecompress(Stream, Indy.Response.ContentEncoding);
158                          MessageMemo.Lines.Add('ダウンロードが完了しました');                          MessageMemo.Lines.Add('ダウンロードが完了しました');
159                  except                  except

Legend:
Removed from v.1.18.4.2  
changed lines
  Added in v.1.18.4.3

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