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 controls 属性与继承 tshape 类的小练习

Delphi 生成guid算法的单元

Delphi firedac压缩和修复ms access数据库

android实例-拍摄和分享照片、分享文本(xe8+小米2)

Delphi 位运算

Delphi编写的一款锁屏小工具

wmi技术介绍和应用――查询正在运行的进程信息

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 破解access密码

Delphi 手机app打开一个安卓系统支持的文件，比如 pdf

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

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