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 让scrollbox响应鼠标滚轮事件

Delphi提取任意长度随机数

Delphi用twebbrowser组件在Delphi中post数据和取得网页源文件

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

Delphi获取外部程序菜单并模拟点击菜单

winapi 字符及字符串函数(15): charnext、charprev

Delphi hexstrtostream

Delphi 几个实用的html解析函数

fmsoft_unigui个文件说明

Delphi xe可执行文件上启用dep和aslr

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

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