| 5 |
uses |
uses |
| 6 |
Windows, SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP, |
Windows, SysUtils, Classes, ComCtrls, Controls, Forms, IdHTTP, |
| 7 |
{HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,} |
{HTTPApp,} YofUtils, IdGlobal, IdException, IdComponent, IniFiles, {DateUtils,} |
| 8 |
GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager; |
GikoSystem, BoardGroup, MonaUtils, ExternalBoardManager, ExternalBoardPlugInMain; |
| 9 |
|
|
| 10 |
type |
type |
| 11 |
TDownloadItem = class; |
TDownloadItem = class; |
| 160 |
begin |
begin |
| 161 |
while not Terminated do begin |
while not Terminated do begin |
| 162 |
//===== プラグイン |
//===== プラグイン |
| 163 |
|
FAbort := False; |
| 164 |
boardPlugIn := nil; |
boardPlugIn := nil; |
| 165 |
ExternalBoardManager.OnWork := Work; |
ExternalBoardManager.OnWork := Work; |
| 166 |
ExternalBoardManager.OnWorkBegin := WorkBegin; |
ExternalBoardManager.OnWorkBegin := WorkBegin; |
| 193 |
FDownloadTitle := '(名称不明)'; |
FDownloadTitle := '(名称不明)'; |
| 194 |
|
|
| 195 |
if boardPlugIn <> nil then begin |
if boardPlugIn <> nil then begin |
| 196 |
if FAbort then |
if FAbort then begin |
| 197 |
Item.State := gdsAbort; |
Item.State := gdsAbort; |
| 198 |
|
end; |
| 199 |
if Assigned( OnDownloadEnd ) then |
if Assigned( OnDownloadEnd ) then |
| 200 |
Synchronize( FireDownloadEnd ); |
Synchronize( FireDownloadEnd ); |
| 201 |
if Terminated then |
if Terminated then |
| 813 |
begin |
begin |
| 814 |
FAbort := True; |
FAbort := True; |
| 815 |
FIndy.DisconnectSocket; |
FIndy.DisconnectSocket; |
| 816 |
|
if socket <> nil then begin |
| 817 |
|
socket.DisconnectSocket; |
| 818 |
|
end; |
| 819 |
end; |
end; |
| 820 |
|
|
| 821 |
procedure TDownloadThread.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); |
procedure TDownloadThread.WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer); |