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 :30
Ondrej
