delphi 从网址链接中提取域名

本文整理自网络，侵删。

 
 function GetHost(TheURL: string): String;
  var
    FURL: String;
  begin
    FURL := TheURL + '555';
    if pos(UpperCase('http://'), UpperCase(FURL)) > 0 then
    begin
      Delete(FURL, 1, Length('http://'));
    end;
    Result := Copy(FURL, 1, pos('/', FURL) - 1);
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(GetHost('http://www.3464.com/tools/'));
end;

 

相关阅读 >>

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi中strtodatetime函数tformatsettings参数的使用

Delphi 读取网上的文本文件

Delphi 如何得到动态链接库的输出函数tdump命令

Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?

Delphi xe-xe3下最简单的获取硬盘序列号

Delphi判断mssql数据库中表格是否存在？ 如何批量创建表格？

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi中引用sqlite3

Delphi多线程学习：多线程数据库查询（ado）

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

转载请注明出处：木庄网络博客 » delphi 从网址链接中提取域名