delphi – 修剪Root的URL

发布时间：2020-12-15 09:40:34 所属栏目：大数据来源：网络整理

导读：如何在Delphi中完成？例如.. 网址= https://mail.google.com/mail/u/0/?tab=wm#inbox Trimed URL = https://mail.google.com/ 谢谢解决方法使用Indy的TIdURI的示例代码可能是： uses IdURI;function GetProtoAndHost(const URI: string): string;var IdURI

如何在Delphi中完成？例如..

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

Trimed URL = https://mail.google.com/

谢谢

解决方法

使用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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!