웹 URL을 구문 분석하려면 어떻게해야합니까?

Question

URL을 다른 세그먼트로 나눌 수 있어야합니다. 예를 들어이 경로를 가지고 :

Protocol: HTTP 
Username: login 
Password: password 
Host: somehost.somedomain.com 
Port: 8080 
Path Info: /some_path/something_else.html 
Query String: param1=val&param2=val 

가 어떻게 델파이에서이 작업을 수행 할 수 있습니다 : 다음과 같이

는

http://login:password@somehost.somedomain.com:8080/some_path/something_else.html?param1=val&param2=val#nose 
\__/ \___/ \______/ \_____________________/ \__/\____________________________/ \___________________/ \__/ 
|  |  |    |    |    |      |    | 
Scheme Username Password  Host   Port    Path     Query   Fragment 

이 분해해야합니까? 이걸 나눠 줄 수있는 뭔가 준비 됐어? 그렇지 않다면 가능한 모든 다른 형식을 파싱하는 방법은 무엇입니까? 이것은 HTTPS 또는 RTSP와 같은 다른 프로토콜 일 수도 있다고 가정합니다.

Answer 1

XE2 배송 : 나는 모든 희망

uses 
    ..., IdURI; 

var 
    URI: TIdURI; 

URI := TIdURI.Create('http://login:password@somehost.somedomain.com:8080/some_path/something_else.html?param1=val&param2=val'); 
try 
    // Protocol = URI.Protocol 
    // Username = URI.Username 
    // Password = URI.Password 
    // Host = URI.Host 
    // Port = URI.Port 
    // Path = URI.Path 
    // Query = URI.Params 
finally 
    URI.Free; 
end; 

Answer 2

InternetCrackUrl 방법을 사용할 수 있습니다.

이 간단한

{$APPTYPE CONSOLE} 

uses 
    Windows, 
    SysUtils, 
    WinInet; 

procedure ParseURL(const lpszUrl: string); 
var 
    lpszScheme  : array[0..INTERNET_MAX_SCHEME_LENGTH - 1] of Char; 
    lpszHostName : array[0..INTERNET_MAX_HOST_NAME_LENGTH - 1] of Char; 
    lpszUserName : array[0..INTERNET_MAX_USER_NAME_LENGTH - 1] of Char; 
    lpszPassword : array[0..INTERNET_MAX_PASSWORD_LENGTH - 1] of Char; 
    lpszUrlPath  : array[0..INTERNET_MAX_PATH_LENGTH - 1] of Char; 
    lpszExtraInfo : array[0..1024 - 1] of Char; 
    lpUrlComponents : TURLComponents; 
begin 
    ZeroMemory(@lpszScheme, SizeOf(lpszScheme)); 
    ZeroMemory(@lpszHostName, SizeOf(lpszHostName)); 
    ZeroMemory(@lpszUserName, SizeOf(lpszUserName)); 
    ZeroMemory(@lpszPassword, SizeOf(lpszPassword)); 
    ZeroMemory(@lpszUrlPath, SizeOf(lpszUrlPath)); 
    ZeroMemory(@lpszExtraInfo, SizeOf(lpszExtraInfo)); 
    ZeroMemory(@lpUrlComponents, SizeOf(TURLComponents)); 

    lpUrlComponents.dwStructSize  := SizeOf(TURLComponents); 
    lpUrlComponents.lpszScheme  := lpszScheme; 
    lpUrlComponents.dwSchemeLength := SizeOf(lpszScheme); 
    lpUrlComponents.lpszHostName  := lpszHostName; 
    lpUrlComponents.dwHostNameLength := SizeOf(lpszHostName); 
    lpUrlComponents.lpszUserName  := lpszUserName; 
    lpUrlComponents.dwUserNameLength := SizeOf(lpszUserName); 
    lpUrlComponents.lpszPassword  := lpszPassword; 
    lpUrlComponents.dwPasswordLength := SizeOf(lpszPassword); 
    lpUrlComponents.lpszUrlPath  := lpszUrlPath; 
    lpUrlComponents.dwUrlPathLength := SizeOf(lpszUrlPath); 
    lpUrlComponents.lpszExtraInfo  := lpszExtraInfo; 
    lpUrlComponents.dwExtraInfoLength := SizeOf(lpszExtraInfo); 

    InternetCrackUrl(PChar(lpszUrl), Length(lpszUrl), ICU_DECODE or ICU_ESCAPE, lpUrlComponents); 

    Writeln(Format('Protocol : %s',[lpszScheme])); 
    Writeln(Format('Host  : %s',[lpszHostName])); 
    Writeln(Format('User  : %s',[lpszUserName])); 
    Writeln(Format('Password : %s',[lpszPassword])); 
    Writeln(Format('Path  : %s',[lpszUrlPath])); 
    Writeln(Format('ExtraInfo: %s',[lpszExtraInfo])); 
end; 

begin 
    try 
    ParseURL('http://login:password@somehost.somedomain.com/some_path/something_else.html?param1=val&param2=val'); 
    except 
    on E: Exception do 
     Writeln(E.ClassName, ': ', E.Message); 
    end; 
    readln; 
end. 

이 반환됩니다 시도

Protocol : http 
Host  : somehost.somedomain.com 
User  : login 
Password : password 
Path  : /some_path/something_else.html 
ExtraInfo: ?param1=val&param2=val 

그 목적을 위해 TIdURI 클래스가 인디, 예와