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.21 by yoffy, Sun Mar 7 12:56:13 2004 UTC revision 1.22 by h677, Wed Mar 31 08:57:08 2004 UTC
# Line 58  type Line 58  type
58                  property Item: TDownloadItem read FItem write FItem;                  property Item: TDownloadItem read FItem write FItem;
59                  property Number: Integer read FNumber write FNumber;                  property Number: Integer read FNumber write FNumber;
60                  constructor Create(CreateSuspended: Boolean);                  constructor Create(CreateSuspended: Boolean);
61                  destructor Destroy; override;          destructor Destroy; override;
62                  procedure Abort;                  procedure Abort;
63                  property OnWork: TGikoWorkEvent read FOnWork write FOnWork;                  property OnWork: TGikoWorkEvent read FOnWork write FOnWork;
64                  property OnWorkBegin: TGikoWorkBeginEvent read FOnWorkBegin write FOnWorkBegin;                  property OnWorkBegin: TGikoWorkBeginEvent read FOnWorkBegin write FOnWorkBegin;
# Line 109  end; Line 109  end;
109    
110  destructor TDownloadThread.Destroy;  destructor TDownloadThread.Destroy;
111  begin  begin
112        FIndy.Request.CustomHeaders.Clear;
113        FIndy.Request.RawHeaders.Clear;
114        FIndy.Request.Clear;
115        FIndy.Response.CustomHeaders.Clear;
116        FIndy.Response.RawHeaders.Clear;
117        FIndy.Response.Clear;
118        FIndy.ProxyParams.Clear;
119    
120          FIndy.Free;          FIndy.Free;
121          inherited;          inherited;
122  end;  end;
# Line 563  begin Line 571  begin
571                                  Synchronize(FireDownloadEnd);                                  Synchronize(FireDownloadEnd);
572                          ResStream.Free;                          ResStream.Free;
573                  end;                  end;
574    
575                    FIndy.Request.CustomHeaders.Clear;
576            FIndy.Request.RawHeaders.Clear;
577            FIndy.Request.Clear;
578            FIndy.Response.CustomHeaders.Clear;
579            FIndy.Response.RawHeaders.Clear;
580                    FIndy.Response.Clear;
581                FIndy.ProxyParams.Clear;
582    
583                  if Terminated then Break;                  if Terminated then Break;
584                  Suspend;                  Suspend;
585          end;          end;

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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