Question

请教DELPHI高手，如何在字符串（URL）里提取主机名呢？在线等候

若以下回答无法解决问题，邀请你更新回答

Answer 1

API函数InternetCrackUrl，范例：function CrackURL(sURL:string;var sHost,sPath:string;var iPortBoolean;//根据sURL指定的URL获得URL的Domain以及路径，该路径是包含文件名的var xc:URL_COMPONENTS; m_strHostHame:array of char; m_strUserName:array of char; m_strPassword:array of char; m_strUrlPath:array of char; m_strExtraInfo:array of char; m_strSchm:array of char;begin xc.dwStructSize sizeof(xc); xc.lpszScheme m_strSchm; xc.dwSchemeLength 1024; xc.lpszHostName m_strHostHame; xc.dwHostNameLength 1024; xc.lpszUserName:=m_strUserName; xc.dwUserNameLength1024; xc.lpszPassword:=m_strPassword; xc.dwPasswordLength 1024; xc.lpszUrlPath:=m_strUrlPath; xc.dwUrlPathLength 1024; xc.lpszExtraInfo:=m_strExtraInfo; xc.dwExtraInfoLength 1024; if InternetCrackUrl(pchar(sURL),length(sURL),0 ,xc)then begin sHost xc.lpszHostName; sPath.lpszUrlPath; iport.nPort; Result:=True; end else Result:=False;end;需要引用wininet 查看原帖>>