2
$Id: testuri.pp,v 1.2 2003/11/22 23:17:50 michael Exp $
3
This file is part of the Free Pascal run time library.
4
Copyright (c) 2003 by the Free Pascal development team
8
See the file COPYING.FPC, included in this distribution,
9
for details about the copyright.
11
This program is distributed in the hope that it will be useful,
12
but WITHOUT ANY WARRANTY; without even the implied warranty of
13
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
15
**********************************************************************}
35
Document := 'some index.html';
36
Params := 'param1=value1¶m2=value2';
37
Bookmark := 'bookmark';
43
FillChar(URI, SizeOf(URI), #0);
45
// URI := ParseURI(s, 'defaultprotocol', 1234);
46
URI:=ParseURI('http://www.lazarus.freepascal.org/main.php');
49
WriteLn('Protocol: ', Protocol);
50
WriteLn('Username: ', Username);
51
WriteLn('Password: ', Password);
52
WriteLn('Host: ', Host);
53
WriteLn('Port: ', Port);
54
WriteLn('Path: ', Path);
55
WriteLn('Document: ', Document);
56
WriteLn('Params: ', Params);
57
WriteLn('Bookmark: ', Bookmark);
64
Revision 1.2 2003/11/22 23:17:50 michael
65
Patch for ipv6 and CNAME record support from Johannes Berg
67
Revision 1.1 2003/05/17 20:54:03 michael
68
+ uriparser unit added. Header/Footer blocks added