Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/NewBoard.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|