[fpc-devel] fphttpclient cannot download a file from w3.org

[Ondrej Pokorny]

Hello,

I cannot download 
http://www.w3.org/TR/2002/REC-xmldsig-core-20020212/xmldsig-core-schema.xsd 
with TFPHTTPClient. Delphi INDY downloads it just fine. Does anybody 
know what I am missing?

Test code:

program Project1;
uses Classes, SysUtils, fphttpclient;
procedure DownloadFile(const aURI: string; out outStream: TStream);
var
   xClient: TFPHTTPClient;
begin
   outStream := nil;
   xClient := TFPHTTPClient.Create(nil);
   try
     xClient.AllowRedirect := True;
     outStream := TMemoryStream.Create;
     xClient.Get(aURI, outStream);
     outStream.Position := 0;
   except
     on E: Exception do
     begin
       FreeAndNil(outStream);
       Writeln(E.ClassName);
       Writeln(E.Message);
     end;
   end;
   xClient.Free;
end;
var
   S: TStream;
begin
DownloadFile('http://www.w3.org/TR/2002/REC-xmldsig-core-20020212/xmldsig-core-schema.xsd', 
S);
   S.Free;
   Readln;
end.

Fails with exception:

EHTTPClient
Error reading data from socket

#0 fpc_raiseexception(0x145fb14, 0x0, 0xffffffff) at ..\inc\except.inc:158
#1 FILLBUFFER(0x145fb14) at fcl-web\src\base\fphttpclient.pp:731
#2 READSTRING(0x15e1c30, 0x0) at fcl-web\src\base\fphttpclient.pp:749
#3 READRESPONSEHEADERS(0x15e1c30) at fcl-web\src\base\fphttpclient.pp:854
#4 READRESPONSE(0x15e1c30, 0x15b5dc0, 0x145fdb8, 0, false) at 
fcl-web\src\base\fphttpclient.pp:1132
#5 DONORMALREQUEST(0x15e1c30, {PROTOCOL = 0x15b5e4c 'http', USERNAME = 
0x0, PASSWORD = 0x0, HOST = 0x15b5ecc 'www.w3.org', PORT = 0, PATH = 
0x1601c9c '/TR/2002/REC-xmldsig-core'..., DOCUMENT = 0x15bc58c 
'xmldsig-core-schema.xsd', PARAMS = 0x0, BOOKMARK = 0x0, HASAUTHORITY = 
true}, 0x449d58 'GET', 0x15b5dc0, 0x145fdb8, 0, false, false) at 
fcl-web\src\base\fphttpclient.pp:1226
#6 DOMETHOD(0x15e1c30, 0x449d58 'GET', 0x443060 
'http://www.w3.org/TR/2002'..., 0x15b5dc0, 0x145fdb8, 0) at 
fcl-web\src\base\fphttpclient.pp:1283
#7 HTTPMETHOD(0x15e1c30, 0x449d58 'GET', 0x443060 
'http://www.w3.org/TR/2002'..., 0x15b5dc0, 0x145fdb8, 0) at 
fcl-web\src\base\fphttpclient.pp:1397
#8 GET(0x15e1c30, 0x443060 'http://www.w3.org/TR/2002'..., 0x15b5dc0) at 
fcl-web\src\base\fphttpclient.pp:1439
#9 DOWNLOADFILE(0x443060 'http://www.w3.org/TR/2002'..., 0x15b5dc0) at 
project1.lpr:14
#10 main at project1.lpr:30

Ondrej