Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.27 by h677, Thu May 6 15:59:21 2004 UTC revision 1.28 by h677, Tue Jun 29 15:31:28 2004 UTC
# Line 5  interface Line 5  interface
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;
# Line 160  var Line 160  var
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;
# Line 192  begin Line 193  begin
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
# Line 811  procedure TDownloadThread.Abort; Line 813  procedure TDownloadThread.Abort;
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);

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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