[VB6] WinHttpCrackUrl

[dmaruca]

Does anyone have a working example of using WinHttpCrackUrl? For some reason I can't get this one working for the life of me. Here's the declarations I have so far.

Private Declare Function WinHttpCrackUrl Lib "WinHTTP.DLL" ( _
        ByVal pwszUrl As Long _
        , ByVal dwUrlLength As Long _
        , ByVal dwFlags As Long _
        , ByRef lpUrlComponents As URL_COMPONENTS _
        ) As Long                                ' BOOL

Type URL_COMPONENTS
    dwStructSize As Long                         ' DWORD // size of this structure. Used in version check
    lpszScheme As Long                           ' LPSTR // pointer to scheme name
    dwSchemeLength As Long                       ' DWORD // length of scheme name
    nScheme As Long                              ' INTERNET_SCHEME // enumerated scheme type (if known)
    lpszHostName As Long                         ' LPSTR // pointer to host name
    dwHostNameLength As Long                     ' DWORD // length of host name
    nPort As Long                                ' INTERNET_PORT // converted port number
    lpszUserName As Long                         ' LPSTR // pointer to user name
    dwUserNameLength As Long                     ' DWORD // length of user name
    lpszPassword As Long                         ' LPSTR // pointer to password
    dwPasswordLength As Long                     ' DWORD // length of password
    lpszUrlPath As Long                          ' LPSTR // pointer to URL-path
    dwUrlPathLength As Long                      ' DWORD // length of URL-path
    lpszExtraInfo As Long                        ' LPSTR // pointer to extra information (e.g. ?foo or #foo) (Z string)
    dwExtraInfoLength As Long                    ' DWORD // length of extra information
End Type