是否有这个函数(解析网址)???(50分)

可以把任何能用的网址解析成能被GetHostByName识别的网址,比如说:
输入:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=xxxxx
输出:
www.delphibbs.com

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
var URLComp: TURLComponents;
S,URL:String;
begin
URL:='http://www.delphibbs.com/delphibbs/dispq.asp?lid=xxxxx';
FillChar(URLComp, SizeOf(URLComp), 0);
URLComp.dwStructSize := SizeOf(URLComp);
URLComp.dwSchemeLength := 1;
URLComp.dwHostNameLength := 1;
URLComp.dwURLPathLength := 1;
InternetCrackUrl(PChar(URL),0,0,URLComp);
S:=Copy(URLComp.lpszHostName,1,URLComp.dwHostNameLength);
ShowMessage(S);
end;

字符串处理的方法
var
abc:string;
begin
abc:='http://www.delphibbs.com/delphibbs/dispq.asp?lid=xxxxx';
delete(abc,1,7);
listbox1.items.add(abc);
abc:=copy(abc,1,pos('/',abc)-1);
listbox1.items.add(abc);
end;

OK