本文整理自网络，侵删。
//链接转换为本地文件路径function url2file(url:string):string;var p,i:integer; s,dir,fullDir:string; //forcedirectories(mWorkDir);begin s:=url; fullDir:=mworkdir; //程序工作目录； if(rightstr(s,1)='/')then s:=s+'index.htm'; p:=pos(mPort,s); if(p>0)then delete(s,p-1,length(mPort)+1); p:=pos('/',s); dir:=leftstr(s,p-1); if(dir='http:')then s:=rightstr(s,length(s)-7); //去除http头部 if(dir='https:')then s:=rightstr(s,length(s)-8); //去除https头部 p:=pos('/',s); dir:=leftstr(s,p-1); if(dir<>msite)then s:=msite+s; //添加主站地址
p:=pos('/',s); while p>0 do begin dir:=leftstr(s,p-1); fullDir:=fullDir+'\'+dir; if(not directoryexists(fullDir))then forcedirectories(fullDir); //创建本地文件目录 s:=rightstr(s,length(s)-length(dir)-1); p:=pos('/',s); end; p:=pos('?',s); //排除链接里面?后面的内容； //if(p>0)then s:=replacestr(s,'?','-'); if(p>0)then s:=leftstr(s,p-1); //p:=pos('&',s); //排除链接里面?后面的内容； //if(p>0)then s:=replacestr(s,'&','-'); //p:=pos('=',s); //排除链接里面?后面的内容； //if(p>0)then s:=replacestr(s,'=','-'); //if(p>0)then s:=leftstr(s,p-1); p:=pos('#',s); //排除链接里面?后面的内容； if(p>0)then s:=leftstr(s,p-1); result:=fullDir+'\'+s;end; 相关阅读 >>
Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法
Delphi tms web core messagedlg对话框 yes no
Delphi 调试ios时出现 please specify exact device preset uuid
更多相关阅读请进入《Delphi》频道 >>
