Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
uses IdURI;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' then
raise Exception.create( 'Enter a URL to parse.' )
else
with tIdURI.create( Edit1.Text ) do
try
Memo1.Lines.Clear;
Memo1.Lines.Add( 'Protocol: ' + Protocol );
Memo1.Lines.Add( 'Path: ' + Path );
Memo1.Lines.Add( 'Host: ' + Host );
Memo1.Lines.Add( 'Document: ' + Document );
Memo1.Lines.Add( 'Port: ' + Port );
Memo1.Lines.Add( 'Bookmark: ' + Bookmark );
finally
free;
end; // with/try
end;