如何在 Delphi 中完成此操作?例如..
网址 = https://mail.google.com/mail/u/0/?tab=wm#inbox
修剪后的网址 = 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;
关于delphi - 将 URL 修剪为根,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13259073/