Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/ItemDownload.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 104 |
implementation |
implementation |
| 105 |
|
|
| 106 |
uses |
uses |
| 107 |
Y_TextConverter, MojuUtils; |
Y_TextConverter, MojuUtils, HTMLCreate; |
| 108 |
|
|
| 109 |
constructor TDownloadThread.Create(CreateSuspended: Boolean); |
constructor TDownloadThread.Create(CreateSuspended: Boolean); |
| 110 |
begin |
begin |
| 1353 |
Body.SaveToFile(FileName); |
Body.SaveToFile(FileName); |
| 1354 |
|
|
| 1355 |
if ThreadItem.Title = '' then begin |
if ThreadItem.Title = '' then begin |
| 1356 |
DivideStrLine(Body[0], @Res); |
THTMLCreate.DivideStrLine(Body[0], @Res); |
| 1357 |
ThreadItem.Title := Res.FTitle; |
ThreadItem.Title := Res.FTitle; |
| 1358 |
end; |
end; |
| 1359 |
ThreadItem.Size := 0; |
ThreadItem.Size := 0; |
|
|
Legend:
| Removed from v.1.47 |
|
| changed lines |
| |
Added in v.1.48 |
|
|
|