本文整理自网络,侵删。
//获取主站地址;function getSite(url:string):string;var dir,s:string; p:integer;begin s:=url; p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; dir:=leftstr(s,p-1); if(dir='http:')then s:=rightstr(s,length(s)-7); if(dir='https:')then s:=rightstr(s,length(s)-8); p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; s:=leftstr(s,p-1); result:=s;end;//获取主站地址;function getPort(url:string):string;var dir,s:string; p:integer;begin s:=url; p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; dir:=leftstr(s,p-1); if(dir='http:')then s:=rightstr(s,length(s)-7); if(dir='https:')then s:=rightstr(s,length(s)-8); p:=pos('/',s); if(p<=0)then begin result:=url;exit;end; s:=leftstr(s,p-1); p:=pos(':',s); if(p>0)then s:=rightstr(s,length(s)-p) else s:=''; result:=s;end;
相关阅读 >>
Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta
Delphi xe2 新增 system.zip 单元, 可用一句话压缩整个文件夹了
Delphi xe android 判断自己程序是否是前台程序
更多相关阅读请进入《Delphi》频道 >>