本文整理自网络，侵删。
//获取主站地址；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》频道 >>
