Delphi 获取URL特殊路径

本文整理自网络，侵删。

 
// uses StrUtils;
function GetVirDirFromUrl(const sUrl:string):string;
var
  str,sTemp:string;
begin
  str := LowerCase(sUrl);
  if LeftStr(str,7)<>'http://' then
    Result := sUrl
  else
  begin
    str := ReplaceStr(str,'http://','');
    if Pos('/',str)=0 then
      str := '/'
    else
      str := Copy(str,Pos('/',str),Length(str));
    sTemp := ReverseString(str);
    if Pos('.',sTemp)>0 then
      sTemp := Copy(sTemp,Pos('/',sTemp),Length(sTemp));
    str := ReverseString(sTemp);
    Result := str;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

memo1.Text:=GetVirDirFromUrl('http://www.delphitop.com/html/tuxiang/4096.html');

//结果：/html/tuxiang/
end;
 

相关阅读 >>

Delphi 正则表达式的匹配模式

Delphi idftp用法

Delphi 标题栏相关操作

Delphi 压缩带密码的access数据库的方法

Delphi tnethttpclient的用法

Delphi 只用一条语句就能使tbitmap反色

Delphi vcl 模式下和firemonkey 模式下的字符串

Delphi 常用控件属性

Delphi 返回下载地址的文件名

Delphi编辑环境

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

转载请注明出处：木庄网络博客 » Delphi 获取URL特殊路径