9
Procedure DumpURI(U : TURIParser);
14
Writeln('Protocol :',Protocol);
15
Writeln('Username :',Username);
16
Writeln('Password :',Password);
17
Writeln('Host :',Host );
18
Writeln('Port :',Port );
19
Writeln('Path :',Path );
20
Writeln('Document :',Document);
21
Writeln('Params :',Params );
22
Writeln('Bookmark :',Bookmark);
28
U:=TURIParser.Create(Nil);
30
Writeln('Parsing : http://www.freepascal.org:80/bugs/db.php?ID=20');
31
U.ParseURI('http://www.freepascal.org:80/bugs/db.php?ID=20');
34
Writeln('Setting URI : http://www.lazarus.freepascal.org/main.php');
35
U.URI:='http://www.lazarus.freepascal.org/main.php';