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 写开关防火墙代码

Delphi带进度条复制文件函数

Delphi编程实现图像的淡入浅出

Delphi制作移动文字、图片

Delphi 计算ip地址范围

Delphi idhttp访问百度

tidtcpserver控件中文指南

Delphi 动态数组的使用

Delphi 数字排序自动完成

Delphi webbrowser1 保存文档为 .html

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

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