IBinding Interface

IID_IBinding

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

This interface provides methods that allow the client program using an asynchronous moniker to control the progress of the bind operation.

Methods in VTable order

IUnknown Methods

Description

QueryInterface

Returns pointers to supported interfaces.

AddRef

Increments reference count.

Release

Decrements reference count.

IBinding Methods

Description

Abort

Ends the bind operation.

Suspend

Suspends the bind operation.

Resume

Resumes the bind operation.

SetPriority

Sets the priority of the bind operation.

GetPriority

Retrieves the priority of the bind operation.

GetBindResult

Retrieves the protocol-specific outcome of a bind operation.

Abort

FUNCTION IBinding_Abort ( _
  BYVAL pthis AS DWORD PTR _
  ) AS LONG
 

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[3] USING IBinding_Abort (pthis) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

Suspend

FUNCTION IBinding_Suspend ( _
  BYVAL pthis AS DWORD PTR _
  ) AS LONG
 

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[4] USING IBinding_Suspend (pthis) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

Resume

FUNCTION IBinding_Resume ( _
  BYVAL pthis AS DWORD PTR _
  ) AS LONG
 

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[5] USING IBinding_Resume (pthis) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetPriority

FUNCTION IBinding_SetPriority ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL pnPrioprity AS DWORD _
  ) AS LONG
 

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[6] USING IBinding_SetPriority (pthis, pnPrioprity) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetPriority

FUNCTION IBinding_GetPriority ( _
  BYVAL pthis AS DWORD PTR _
, BYREF pnPrioprity AS DWORD _
  ) AS LONG
 

  LOCAL HRESULT AS LONG

  CALL DWORD @@pthis[7] USING IBinding_GetPriority (pthis, pnPrioprity) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetBindResult

FUNCTION Proto_IBinding_GetBindResult ( _
  BYVAL pthis AS DWORD PTR _
, BYREF pclsidProtocol AS GUID _
, BYREF pdwResult AS DWORD _
, BYREF pszResult AS DWORD _
, BYREF pdwReserved AS DWORD _
  ) AS LONG
 

FUNCTION IBinding_GetBindResult ( _
  BYVAL pthis AS DWORD PTR _
, BYREF pclsidProtocol AS GUID _
, BYREF pdwResult AS DWORD _
, BYREF strResult AS STRING _
, BYREF pdwReserved AS DWORD _
  ) AS LONG
 

   strResult = ""

  LOCAL HRESULT AS LONG

  LOCAL bstrlen AS LONG

  LOCAL pszResult AS DWORD

  CALL DWORD @@pthis[8] USING Proto_IBinding_GetBindResult (pthis, pclsidProtocol, pdwResult, pszResult, pdwReserved) TO HRESULT
  IF ISTRUE pszResult THEN
     bstrlen = lstrlenW(BYVAL pszResult)
     IF ISTRUE bstrlen THEN
        strResult = ACODE$(PEEK$(pszResult, bstrlen * 2))
     END IF
     CoTaskMemFree pszResult
  END IF
  FUNCTION = HRESULT

END FUNCTION