IHlinkBrowseContext  Interface

IID_IHlinkBrowseContext

{79EAC9C7-BAF9-11CE-8C82-00AA004BA90B}

This interface enables a Component Object Model (COM) object to define and manage the browse context for an Microsoft ActiveX hyperlink application.
 

Methods in VTable order

IUnknown Methods

Description

QueryInterface

Returns pointers to supported interfaces.

AddRef

Increments reference count.

Release

Decrements reference count.

IHlinkBrowseContext Methods

Description

Register

Registers an object with the browse context.

GetObject

Retrieves an object that was registered in the browse context under the given name.

Revoke

Revokes an object registered with this browse context.

SetBrowseWindowInfo

Establishes the HLBWINFO structure for this browse context.

GetBrowseWindowInfo

Retrieves the browse window information structure associated with this browse context.

SetInitialHlink

Not currently supported.

OnNavigateHlink

Notifies a browse context that a hyperlink has been clicked.

UpdateHlink

Not currently supported.

EnumNavigationStack

Retrieves an enumerator used to enumerate the contents of the navigation stack.

QueryHlink

Tests the validity of a hyperlink identifier (ID) value.

GetHlink

Retrieves a hyperlink from the browse context.

SetCurrentHlink

Sets the current hyperlink in this browse context's navigation stack.

Clone

Duplicates a browse context.

Close

Closes the hyperlink browse context.

Register

FUNCTION IHlinkBrowseContext_Register ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL reserved AS DWORD _
, BYVAL piunk AS DWORD _
, BYVAL pimk AS DWORD _
, BYREF pdwRegister AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[3] USING IHlinkBrowseContext_Register (pthis, reserved, piunk, pimk, pdwRegister) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetObject

FUNCTION IHlinkBrowseContext_GetObject ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL pimk AS DWORD _
, BYVAL fBindIfRootRegistered AS LONG _
, BYREF ppiunk AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[4] USING IHlinkBrowseContext_GetObject (pthis, pimk, fBindIfRootRegistered, ppiunk) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION

Revoke

FUNCTION IHlinkBrowseContext_Revoke ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL dwRegister AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[5] USING IHlinkBrowseContext_Revoke (pthis, dwRegister) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetBrowseWindowInfo

FUNCTION IHlinkBrowseContext_SetBrowseWindowInfo ( _
  BYVAL pthis AS DWORD PTR _
, BYREF phlbwi AS HLBWINFO _
  ) AS LONG

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[6] USING IHlinkBrowseContext_SetBrowseWindowInfo (pthis, phlbwi) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetBrowseWindowInfo

FUNCTION IHlinkBrowseContext_GetBrowseWindowInfo ( _
  BYVAL pthis AS DWORD PTR _
, BYREF phlbwi AS HLBWINFO _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[7] USING IHlinkBrowseContext_GetBrowseWindowInfo (pthis, phlbwi) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetInitialHlink

FUNCTION IHlinkBrowseContext_SetInitialHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL pimkTarget AS DWORD _
, BYVAL strLocation AS STRING _
, BYVAL strFriendlyName AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG

  strLocation = UCODE$(strLocation) & $NUL
  strFriendlyName = UCODE$(strFriendlyName) & $NUL
  CALL DWORD @@pthis[8] USING IHlinkBrowseContext_SetInitialHlink (pthis, STRPTR(strLocation), strFriendlyName) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

OnNavigateHlink

FUNCTION Proto_IHlinkBrowseContext_OnNavigateHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL grfHLNF AS DWORD _
, BYVAL pimkTarget AS DWORD _
, BYVAL pwzLocation AS DWORD _
, BYVAL pwzFriendlyName AS DWORD _
, BYREF puHLID AS DWORD _
  ) AS LONG
 

FUNCTION IHlinkBrowseContext_OnNavigateHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL grfHLNF AS DWORD _
, BYVAL pimkTarget AS DWORD _
, BYVAL strLocation AS STRING _
, BYVAL strFriendlyName AS STRING _
, BYREF puHLID AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  strLocation = ""
  strFriendlyName = ""
  LOCAL HRESULT AS LONG

  LOCAL bstrlen AS LONG
  LOCAL ppwzLocation AS DWORD
  LOCAL pwzFriendlyName AS DWORD
  CALL DWORD @@pthis[9] USING Proto_IHlinkBrowseContext_OnNavigateHlink (pthis, grfHLNF, pimkTarget, pwzLocation, pwzFriendlyName, puHLID) TO HRESULT
  IF ISTRUE ppwzLocation THEN
     bstrlen = lstrlenW(BYVAL ppwzLocation)
     IF ISTRUE bstrlen THEN
        strLocation = PEEK$(ppwzLocation, bstrlen * 2)
        strLocation = ACODE$(strLocation)
     END IF
     CoTaskMemFree ppwzLocation
  END IF
  IF ISTRUE ppwzFriendlyName THEN
     bstrlen = lstrlenW(BYVAL ppwzFriendlyName)
     IF ISTRUE bstrlen THEN
        strFriendlyName = PEEK$(ppwzFriendlyName, bstrlen * 2)
        strFriendlyName = ACODE$(strFriendlyName)
     END IF
     CoTaskMemFree ppwzFriendlyName
  END IF
  FUNCTION = HRESULT

END FUNCTION
 

UpdateHlink

FUNCTION IHlinkBrowseContext_UpdateHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL uHLID AS DWORD _
, BYVAL pimkTarget AS DWORD _
, BYVAL strLocation AS STRING _
, BYVAL strFriendlyName AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG
  strLocation = UCODE$(strLocation) & $NUL
  strFriendlyName = UCODE$(strFriendlyName) & $NUL
  CALL DWORD @@pthis[10] USING IHlink_GetFriendlyName (pthis, uHLID, pimkTarget, STRPTR(strLocation), strFriendlyName) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

EnumNavigationStack

FUNCTION IHlinkBrowseContext_EnumNavigationStack ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL dwReserved AS DWORD _
, BYVAL grfHLFNAMEF AS DWORD _
, BYREF ppienumhlitem AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[11] USING IHlinkBrowseContext_EnumNavigationStack (pthis, dwReserved, grfHLFNAMEF, ppienumhlitem) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

QueryHlink

FUNCTION IHlinkBrowseContext_QueryHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL grfHLQF AS DWORD _
, BYVAL uHLID AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[12] USING IHlinkBrowseContext_QueryHlink (pthis, grfHLQF, uHLID) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetHlink

FUNCTION IHlinkBrowseContext_GetHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL uHLID AS DWORD _
, BYREF ppihl AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[13] USING IHlinkBrowseContext_GetHlink (pthis, uHLID, ppihl) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetCurrentHlink

FUNCTION IHlinkBrowseContext_SetCurrentHlink ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL uHLID AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[14] USING IHlinkBrowseContext_SetCurrentHlink (pthis, uHLID) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

Clone

FUNCTION IHlinkBrowseContext_Clone ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL piunkOuter AS DWORD _
, BYREF riid AS GUID _
, BYREF ppiunkObj AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[15] USING IHlinkBrowseContext_Clone (pthis, piunkOuter, riid, ppiunkObj) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

Close

FUNCTION IHlinkBrowseContext_Close ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL reserved AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[16] USING IHlinkBrowseContext_Close (pthis, reserved) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION