On Fri, 23 Nov 2012, Leonardo M. Ramé wrote:
________________________________
From: silvioprog <silviop...@gmail.com>
To: FPC-Pascal users discussions <fpc-pascal@lists.freepascal.org>
Sent: Friday, November 23, 2012 2:38 PM
Subject: Re: [fpc-pascal] A simple HTTP request with FPC standard units
Done:
http://bugs.freepascal.org/view.php?id=23372
2012/11/23 silvioprog <silviop...@gmail.com>
I solved the error. In:
fphttpclient.pas:line285
Function TFPCustomHTTPClient.GetServerURL(URI : TURI) : String;
Var
D : String;
begin
D:=URI.Path;
If (D[1]<>'/') then
D:='/'+D;
If (D[Length(D)]<>'/') then
D:=D+'/';
Result:=D+URI.Document;
if (URI.Params<>'') then
Result:=Result+'?'+URI.Params;
end;
The code needed to execute the function could be even smaller if this is
changed to a class function. Instead of needing to create an instance, then
using, then freeing, the whole thing could something like this:
...
begin
s := TFPCustomHTTPClient.GetServerURL('http://a_site/a_page');
writeln(s);
You mean probably
s := TFPCustomHTTPClient.Get('http://a_site/a_page');
It could be done, but it will need to create an instance anyway.
Although I suspect such a simple case is a minority.
Michael.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
