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 xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi dataset和json互转函数

Delphi ttabcontrol在tabitem添加关闭按钮

用Delphi内嵌汇编实现�载任意进程的某个dll

Delphi win7下超级管理员创建普通权限任务

Delphi 一行关键代码阻止360云查杀

Delphi 如何检查字符串是否为数字

Delphi 将memorystream保存到字符串

Delphi fmx 获取控件句柄

Delphi里的compile和build都能产生可执行文件，有什么区别啊？

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

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