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.43 by h677, Sat Jun 25 11:27:21 2005 UTC revision 1.43.2.2 by h677, Sun Jul 17 06:55:27 2005 UTC
# Line 434  begin Line 434  begin
434                                  end;                                  end;
435    
436                                  //********************                                  //********************
437                                    //dat.gz → datの取得 2005年6月追加 byもじゅ
438                                    //********************
439                                    if (Item.DownType = gdtThread) and (Item.ResponseCode = 302) then begin
440                                            {$IFDEF DEBUG}
441                                            Writeln('dat取得');
442                                            {$ENDIF}
443                                            FMsg := '過去ログ(dat.gz)が存在しないため過去ログ(dat)を探します - [' + ATitle + ']';
444                                            FIcon := gmiWhat;
445                                            if Assigned(OnDownloadMsg) then
446                                                    Synchronize(FireDownloadMsg);
447                                            URL := ChangeFileExt(URL, '');
448                                            Modified := Item.ThreadItem.LastModified;
449                                            RangeStart := 0;
450                                            AdjustLen := 0;
451                                            if not DatDownload(Item.DownType, URL, Modified, RangeStart, AdjustLen) then
452                                                    Item.State := gdsError;
453                                            {$IFDEF DEBUG}
454                                            Writeln('ResponseCode: ' + IntToStr(Item.ResponseCode));
455                                            {$ENDIF}
456                                    end;
457    
458                                    //********************
459                                  //dat.gz取得(2)                                  //dat.gz取得(2)
460                                  //********************                                  //********************
461  {  {
# Line 771  begin Line 793  begin
793                          {$ENDIF}                          {$ENDIF}
794                          FIndy.Get(URL, ResStream);                          FIndy.Get(URL, ResStream);
795              Item.Content := GikoSys.GzipDecompress(ResStream, FIndy.Response.ContentEncoding);              Item.Content := GikoSys.GzipDecompress(ResStream, FIndy.Response.ContentEncoding);
                         {$IFDEF DEBUG}  
                         if (FIndy.URL.Host = 'be.2ch.net') and (FIndy.URL.Path = '/be/') then begin  
                                 Item.Content := EUCtoSJIS(Item.Content);  
                         end;  
             {$ENDIF}  
796                          Item.LastModified := FIndy.Response.LastModified;                          Item.LastModified := FIndy.Response.LastModified;
797                          //差分取得で1バイト前からとってきたときはマイナスする                          //差分取得で1バイト前からとってきたときはマイナスする
798  //                      Item.ContentLength := FIndy.Response.ContentLength + AdjustLen;  //                      Item.ContentLength := FIndy.Response.ContentLength + AdjustLen;
# Line 955  var Line 972  var
972          NumCount: Integer;          NumCount: Integer;
973          Body: TStringList;          Body: TStringList;
974          Rec: TSubjectRec;          Rec: TSubjectRec;
         st, rt : Cardinal;  
975          function MakeThreadCallBack(          function MakeThreadCallBack(
976                  inInstance      : DWORD;        // TBoardItem のインスタンス                  inInstance      : DWORD;        // TBoardItem のインスタンス
977                  inURL                           : PChar;        // スレッドの URL                  inURL                           : PChar;        // スレッドの URL
# Line 1374  begin Line 1390  begin
1390                  ini.WriteInteger('Setting', 'NewResCount', ThreadItem.NewResCount);                  ini.WriteInteger('Setting', 'NewResCount', ThreadItem.NewResCount);
1391                  ini.WriteInteger('Setting', 'NewReceive', ThreadItem.NewReceive);                  ini.WriteInteger('Setting', 'NewReceive', ThreadItem.NewReceive);
1392  //              ini.WriteInteger('Setting', 'RoundNo', ThreadItem.RoundNo);  //              ini.WriteInteger('Setting', 'RoundNo', ThreadItem.RoundNo);
1393                  ini.WriteBool('Setting', 'Round', ThreadItem.Round);  //              ini.WriteBool('Setting', 'Round', ThreadItem.Round);
1394                  ini.WriteBool('Setting', 'UnRead', ThreadItem.UnRead);                  ini.WriteBool('Setting', 'UnRead', ThreadItem.UnRead);
1395                  ini.UpdateFile;                  ini.UpdateFile;
1396          finally          finally

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.43.2.2

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