UriFrameUnit-Fragment.pas

procedure TUriFrame.UpdateUriEdit;
var
  aIdUri: TIdURI;
  lDirectory: string;
  lPort: Integer;
  lProtocol: string;
begin
  // URI := TIdURI.Create('http://login:password@somehost.somedomain.com:8080/some_path/something_else.html?param1=val&param2=val');
  aIdUri := TIdURI.Create();
  try
    aIdUri.Host := HostEdit.Text;
    aIdUri.Path := PathEdit.Text; // TODO -o##jpl -cFix : Encode special charactersl ike @ and :
    aIdUri.Password := PasswordEdit.Text; // TODO -o##jpl -cFix : Encode special charactersl ike @ and :
    lPort := PortEdit.Value;
    if (Protocol = sSftp) or (lPort <> cDefaultPortsByProtocol[Protocol]) then
      aIdUri.Port := lPort.ToString();
    aIdUri.Protocol := cProtoclNamesByProtocol[Protocol];
    aIdUri.UserName := UserNameEdit.Text;

    UriEdit.Text := aIdUri.GetFullURI();
  finally
    aIdUri.Free();
  end;

{$ifdef DEBUG}
  PasswordEdit.Hint := PasswordEdit.Text;
  PasswordEdit.ShowHint := True;
{$endif DEBUG}
end;