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.19 by h677, Mon Jul 18 03:55:14 2005 UTC revision 1.20 by h677, Sat Jul 23 11:49:34 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.19  
changed lines
  Added in v.1.20

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