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; 

 

上面这个只对有 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;

相关阅读 >>

Delphi钩子注入程序

Delphi 监控系统文件操作

Delphi 取得某一天所在的星期一及星期天

Delphi 注册表管理

fmsoft_unigui个文件说明

Delphi 收藏字符串处理单元

Delphi 获得每个进程的cpu使用率

Delphi写的dll回调c#

md5unit.pas

Delphi 以bytes为单位获取文件大小

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...