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 实现批量文件名修改

idhttp获取文件大小的代码

Delphi showmodal与show的区别

Delphi驱动开发研究第一篇--实现原理

Delphi 10.3.x与android 10兼容性的问题

Delphi 数组与枚举

Delphi 取相同字符串 2种方法

Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例

Delphi getcurrentdir 获取当前文件夹

Delphi 汉字转十六进制的函数，可以互转不乱码

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

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