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 delete 字符串函数

Delphi 简单的英文数字字符串加密解密函数（不支持中文）

Delphi thread.queue与synchronize的区别

Delphi 开发安卓时判断进入非活动

Delphi 相对路径和绝对路径的转换

Delphi中使用directx截屏函数

Delphi xe 枚举指定目录及子目录下的所有文件

delpni-xe5-android sdk api 层次结构

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi2010中tresourcestream流使用

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

转载请注明出处：木庄网络博客 » delphi根据网络链接截取域名