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;

procedure TForm1.Button1Click(Sender: TObject);

begin

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

//结果：/html/tuxiang/

end;

推荐分享