delphi - 将 URL 修剪为根

Question

如何在 Delphi 中完成此操作？例如..

网址 = https://mail.google.com/mail/u/0/?tab=wm#inbox

修剪后的网址 = https://mail.google.com/

谢谢

Answer 1

使用 Indy 的 TIdURI 的示例代码可能是:

uses
  IdURI;

function GetProtoAndHost(const URI: string): string;
var
  IdURI: TIdURI;
begin
  IdURI := TIdURI.Create(URI);
  try
    Result := IdURI.Protocol + '://' + IdURI.Host + '/';
  finally
    IdURI.Free;
  end;
end;