- {$IFDEF DEBUG}
- if (Item.DownType = gdtThread) and (Item.ResponseCode = 302) then begin
- ATitle := Item.ThreadItem.Title;
- if ATitle = '' then
- ATitle := '\81i\96¼\8fÌ\95s\96¾\81j';
- FMsg := '\81\9a\89ß\8b\8e\83\8d\83O(1)\82ª\91¶\8dÝ\82µ\82È\82¢\82½\82ßgoogle\83L\83\83\83b\83V\83\85\82©\82ç\92T\82µ\82Ü\82· - [' + ATitle + ']';
- FIcon := gmiWhat;
- if Assigned(OnDownloadMsg) then
- Synchronize(FireDownloadMsg);
- URL := 'http://www.google.co.jp/search?q=cache:' + Item.ThreadItem.URL;
- URL := StringReplace( URL, 'l50', '', [rfReplaceAll] );
- Modified := Item.ThreadItem.LastModified;
- Repeat
- if not CgiDownload(Item.DownType, URL, Modified) then
- Item.State := gdsError;
- URL := FIndy.Response.Location;
- Until Item.ResponseCode <> 301;
- if Item.ResponseCode = 200 then begin
- foundPos := Pos( '<dt>', Item.Content ) + Length( '<dt>' );
- Item.Content := Copy( Item.Content, foundPos, Length( Item.Content ) );
- foundPos := Pos( '</dl>', Item.Content );
- If foundPos > 0 Then
- Item.Content := Copy( Item.Content, 1, foundPos - 1 );
- Item.Content := StringReplace( Item.Content, '<dt>', '<>' + #13#10, [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '<a href="mailto:', '', [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '"><b>', '<>', [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '<b>', '<>', [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '</b></a>', '<>', [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '</b>', '<>', [rfReplaceAll] );
- Item.Content := StringReplace( Item.Content, '<dd>', '<>', [rfReplaceAll] );
- end;
- end;
- {$ENDIF}
-