RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi根据网络链接截取域名

作者:admin 来源: 日期:2018/1/3 22:20:44 人气: 标签:

//根据网络链接获取域名 uses strutils;
function ExtractUrlDomain(const Url: string): string;
var  //QQ282548160 感谢提供
  strA:String;
  strB:String;
  iTmp:Integer;
  iA:Integer;
begin
  strA:=Trim(Url);
  strB:=LowerCase(strA);
  iA:=Length('http://');
  Delete(strB,1,iA);
  iTmp:=pos('/',strB);
  strB:=LeftStr(strA,iA+iTmp);
  Result :=strB;

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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料