| 229 |
// httpSocket : TIdHTTP; |
// httpSocket : TIdHTTP; |
| 230 |
resStream : TMemoryStream; |
resStream : TMemoryStream; |
| 231 |
content : string; |
content : string; |
| 232 |
|
|
| 233 |
begin |
begin |
| 234 |
|
|
| 235 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 326 |
content : string; |
content : string; |
| 327 |
resStream : TStringStream; |
resStream : TStringStream; |
| 328 |
sourceStream : TStringStream; |
sourceStream : TStringStream; |
| 329 |
|
tmpURL, Protocol, Host, Path, Document, Port, Bookmark : string; |
| 330 |
begin |
begin |
| 331 |
|
|
| 332 |
{$IFDEF DEBUG} |
{$IFDEF DEBUG} |
| 337 |
httpSocket := TIdHTTP.Create( nil ); |
httpSocket := TIdHTTP.Create( nil ); |
| 338 |
try |
try |
| 339 |
InitializeSocket( httpSocket ); |
InitializeSocket( httpSocket ); |
| 340 |
|
tmpURL := string(inURL); |
| 341 |
|
GikoSys.ParseURI(tmpURL, Protocol,Host, Path, Document, Port, Bookmark); |
| 342 |
httpSocket.Request.CustomHeaders.Add('Pragma: no-cache'); |
httpSocket.Request.CustomHeaders.Add('Pragma: no-cache'); |
| 343 |
httpSocket.Request.AcceptLanguage := 'ja'; |
httpSocket.Request.AcceptLanguage := 'ja'; |
| 344 |
httpSocket.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'; |
httpSocket.Request.Accept := 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'; |
| 345 |
httpSocket.Request.ContentType := 'application/x-www-form-urlencoded'; |
httpSocket.Request.ContentType := 'application/x-www-form-urlencoded'; |
| 346 |
|
httpSocket.Request.Referer := Protocol + '://' + Host; |
| 347 |
resStream := TStringStream.Create( content ); |
resStream := TStringStream.Create( content ); |
| 348 |
sourceStream := TStringStream.Create( string( inSource ) ); |
sourceStream := TStringStream.Create( string( inSource ) ); |
| 349 |
try |
try |