delphi根据网络链接截取域名

end; 

上面这个只对有 http:// 的链接有效  如果是 www.delphitop.com  则会出问题。

改进代码：

function ExtractUrlDomain(const Url: string): string;

var  //QQ282548160 感谢提供

  strA:String;

  strB:String;

  iTmp:Integer;

  iA:Integer;

begin

  strA:=Trim(Url);

  strB:=LowerCase(strA);

  if leftstr(strB,4)<>'www.' then

  begin

  iA:=Length('http://');

  Delete(strB,1,iA);

  iTmp:=pos('/',strB);

  strB:=LeftStr(strA,iA+iTmp);

  strB:=StringReplace(strB, 'http://', '', [rfReplaceAll]) ;

  strB:=StringReplace(strB, '/', '', [rfReplaceAll]);

  Result :=strB;

  end

  else

  begin

  Result :=strB;

  end;

end;