TURIParser

type TURIParser = class(TComponent)

protected

  procedure SetElement(); virtual;

  function GetElement();

  procedure SetPort();

  procedure SetURI();

public

  procedure Clear;

  procedure ParseUri();

  function ComposeURI;

published

  property Port: Word; [rw]

  property Protocol: string; [rw]

  property Username: string; [rw]

  property Password: string; [rw]

  property Host: string; [rw]

  property Path: string; [rw]

  property Document: string; [rw]

  property Params: string; [rw]

  property Bookmark: string; [rw]

  property URI: string; [rw]

  property Active: Boolean; [rw]

end;

TURIParser

TObject