| 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 |
{ |
{ |
| 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; |
| 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 |
| 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 |