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.54 by h677, Wed Feb 22 17:21:21 2006 UTC revision 1.55 by h677, Sun Jun 25 15:04:06 2006 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, ExternalBoardPlugInMain,          GikoSystem, BoardGroup, ExternalBoardManager, ExternalBoardPlugInMain,
9          Sort;          Sort;
10    
11  type  type
# Line 375  begin Line 375  begin
375    
376                                  if Trim(FIndy.Response.RawHeaders.Values['Date']) <> '' then begin                                  if Trim(FIndy.Response.RawHeaders.Values['Date']) <> '' then begin
377                                          if Item.DownType = gdtBoard then                                          if Item.DownType = gdtBoard then
378                                                  Item.Board.LastGetTime := MonaUtils.DateStrToDateTime(FIndy.Response.RawHeaders.Values['Date'])                                                  Item.Board.LastGetTime := GikoSys.DateStrToDateTime(FIndy.Response.RawHeaders.Values['Date'])
379                                          else                                          else
380                                                  Item.ThreadItem.ParentBoard.LastGetTime := MonaUtils.DateStrToDateTime(FIndy.Response.RawHeaders.Values['Date']);                                                  Item.ThreadItem.ParentBoard.LastGetTime := GikoSys.DateStrToDateTime(FIndy.Response.RawHeaders.Values['Date']);
381                                  end;                                  end;
382    
383                                  if DownloadResult then begin                                  if DownloadResult then begin

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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