+ end else if responseCode = 302 then begin
+ //http://jbbs.shitaraba.com/bbs/read.cgi/game/3477/1077473358/
+ //http://jbbs.shitaraba.com/game/bbs/read.cgi?BBS=3477&KEY=1077473358
+ //http://jbbs.shitaraba.com/game/3477/storage/1077473358.html
+ //\89ß\8b\8e\83\8d\83O
+ uri := TIdURI.Create( ReadURL );
+ uriList := TStringList.Create;
+ try
+ ExtractHttpFields( ['/', '?'], [], uri.Path, uriList );
+ URL := uri.Protocol + '://' + uri.Host +
+ '/' + uriList[3] + '/' + uriList[4] + '/storage/' + uriList[ 5 ] + '.html';
+ finally
+ uriList.Free;
+ uri.Free;
+ end;
+ uri := TIdURI.Create( ReadURL );
+ Result := StorageDownload(uri.Path, uri.Document);
+ uri.Free;