RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi 从网址链接中提取域名

作者:admin 来源: 日期:2014/8/13 21:53:34 人气: 标签:

 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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: