本文整理自网络，侵删。
//获取主站地址；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 如何让 tgpimage 直接从流中加载图片?
Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置
Delphi 2009 indy10 idhttp get 中文出现乱码的问题
Delphi enumwindows 获取窗体句柄 进程id 窗体信息
Delphi sendtextmessage 等方便的消息发送函数
更多相关阅读请进入《Delphi》频道 >>
