本文整理自网络,侵删。
//根据网络链接获取域名 uses strutils;
function ExtractUrlDomain(const Url: string): string;
var //QQ282548160 感谢提供
strA:String;
strB:String;
iTmp:Integer;
iA:Integer;
begin
strA:=Trim(Url);
strB:=LowerCase(strA);
iA:=Length('http://');
Delete(strB,1,iA);
iTmp:=pos('/',strB);
strB:=LeftStr(strA,iA+iTmp);
Result :=strB;
end;
上面这个只对有 http:// 的链接有效 如果是 www.delphitop.com 则会出问题。
改进代码:
function ExtractUrlDomain(const Url: string): string;
var //QQ282548160 感谢提供
strA:String;
strB:String;
iTmp:Integer;
iA:Integer;
begin
strA:=Trim(Url);
strB:=LowerCase(strA);
if leftstr(strB,4)<>'www.' then
begin
iA:=Length('http://');
Delete(strB,1,iA);
iTmp:=pos('/',strB);
strB:=LeftStr(strA,iA+iTmp);
strB:=StringReplace(strB, 'http://', '', [rfReplaceAll]) ;
strB:=StringReplace(strB, '/', '', [rfReplaceAll]);
Result :=strB;
end
else
begin
Result :=strB;
end;
end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>