paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add advanced methods to TUri

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-05-23 17:43:23 +02:00
parent 92eb7ba81f
commit 0228a24ce5
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
packages/fcl-base/src/uriparser.pp
View File

@ -16,6 +16,7 @@
{$IFDEF FPC}
{$MODE objfpc}
{$H+}
{$modeswitch advancedrecords}
{$ENDIF}
{$IFNDEF FPC_DOTTEDUNITS}
@ -25,6 +26,9 @@ unit URIParser;
interface
type
{ TURI }
TURI = record
Protocol: String;
Username: String;
@ -36,6 +40,11 @@ type
Params: String;
Bookmark: String;
HasAuthority: Boolean;
constructor create(aURI : String; aDecode: Boolean = True);
constructor create(const aURI, aDefaultProtocol: String; aDefaultPort: Word; aDecode : Boolean = True);
function ToString : String;
function URI : String;
procedure Free;
end;
function EncodeURI(const URI: TURI): String;
@ -496,5 +505,32 @@ begin
Result := False;
end;
{ TURI }
constructor TURI.create(aURI: String; aDecode: Boolean);
begin
Self:=ParseURI(aURI,aDecode);
end;
constructor TURI.create(const aURI, aDefaultProtocol: String; aDefaultPort: Word; aDecode: Boolean);
begin
Self:=ParseURI(aURI,aDefaultProtocol,aDefaultPort,aDecode);
end;
function TURI.ToString: String;
begin
Result:=EncodeURI(Self);
end;
function TURI.URI: String;
begin
Result:=ToString;
end;
procedure TURI.Free;
begin
Self:=Default(TURI);
end;
end.