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;

  function GetURI():string;
  var
    s:String;
  begin
    S:=GetHost(URL) ;
    Result := Copy(URL, pos(s, URL) + Length(s) + 1, MaxInt);
  end;


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

procedure TForm1.Button2Click(Sender: TObject);
begin
url:='http://www.3464.com/tools/index.htm';
showmessage(GetURI());

end;

 

相关阅读 >>

Delphi 删除任意文件的任意位置的任意数量的字符

Delphi 字符串去掉最后一个字符

Delphi fmx调用jar里的java类init方法

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi 利用tcomm组件 spcomm 实现串行通信

Delphi外挂编写

Delphi代码直接注入别的进程

Delphi 学习使用资源文件 - 字符串资源

Delphi 文件传输的代码

winapi 字符及字符串函数(9): lstrcat - 合并字符串

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

转载请注明出处：木庄网络博客 » Delphi中提取网址链接分路径