Delphi ActiveX

Parse a URL into its Component Parts

See more HTTP Examples

Demonstrates how to parse a URL into it's component parts. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
url: TChilkatUrl;
urlStr: WideString;

begin
success := 0;

url := TChilkatUrl.Create(Self);

urlStr := 'https://www.amazon.com/Anarchy-State-Utopia-Robert-Nozick/dp/0465051006/ref=sr_1_1?s=books&ie=UTF8&qid=1430344305&sr=1-1&keywords=nozick#frag123';

success := url.ParseUrl(urlStr);
// Assume success..

Memo1.Lines.Add('URL: ' + urlStr);
Memo1.Lines.Add('Host: ' + url.Host);
Memo1.Lines.Add('Port: ' + IntToStr(url.Port));
Memo1.Lines.Add('HostType: ' + url.HostType);
Memo1.Lines.Add('Ssl: ' + IntToStr(Ord(url.Ssl)));
Memo1.Lines.Add('Path: ' + url.Path);
Memo1.Lines.Add('Query: ' + url.Query);
Memo1.Lines.Add('Frag: ' + url.Frag);
Memo1.Lines.Add('----');

urlStr := 'http://matt:secret@www.chilkatsoft.com:8080/somepath.asp?test=123&size=2';

success := url.ParseUrl(urlStr);
// Assume success..

Memo1.Lines.Add('URL: ' + urlStr);
Memo1.Lines.Add('Host: ' + url.Host);
Memo1.Lines.Add('Port: ' + IntToStr(url.Port));
Memo1.Lines.Add('HostType: ' + url.HostType);
Memo1.Lines.Add('Ssl: ' + IntToStr(Ord(url.Ssl)));
Memo1.Lines.Add('Login: ' + url.Login);
Memo1.Lines.Add('Password: ' + url.Password);
Memo1.Lines.Add('Path: ' + url.Path);
Memo1.Lines.Add('Query: ' + url.Query);
Memo1.Lines.Add('Frag: ' + url.Frag);
end;