delphi根据网络链接截取域名

//根据网络链接获取域名 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; 
阅读更多
文章标签: 函数
个人分类: Delphi函数
上一篇delphi 怎么将webbrowser的cookie给idhttp用
下一篇DELPHI中的消息处理机制(三种消息处理方法的比较,如何截断消息)
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭