//根据网络链接获取域名 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;
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;