Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalBoardPlugInMain.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.11 by h677, Tue Jun 29 15:31:28 2004 UTC revision 1.12 by h677, Thu Aug 26 17:07:19 2004 UTC
# Line 229  var Line 229  var
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}
# Line 325  var Line 326  var
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}
# Line 335  begin Line 337  begin
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

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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