ITargetFrame  Interface

IID_ITargetFrame

{D5F78C80-5252-11CF-90FA-00AA0042106E}

This interface provides methods for retrieving and setting frame data.
 

Methods in VTable order

IUnknown Methods

Description

QueryInterface

Returns pointers to supported interfaces.

AddRef

Increments reference count.

Release

Decrements reference count.

ITargetFrame Methods

Description

SetFrameName

Sets the name of the frame.

GetFrameName

Retrieves the name of the frame.

GetParentFrame

Retrieves the parent of the frame.

FindFrame

Searches for a particular frame.

SetFrameSrc

Sets the URL to load into the frame.

GetFrameSrc

Retrieves the URL to load into the frame.

GetFramesContainer

Not currently implemented.

SerFrameOptions

Not currently implemented.

GetFrameOptions

Not currently implemented.

SetFrameMargins

Not currently implemented.

GetFrameMargins

Not currently implemented.

RemoteNavigate

Not currently implemented.

OnChildFrameActivate

Not currently implemented.

OnChildFrameDeactivate

Not currently implemented.

NAVIGATEFRAME_FLAGS

%NAVIGATEFRAME_FL_RECORD = &H1
%NAVIGATEFRAME_FL_POST = &H2
%NAVIGATEFRAME_FL_NO_DOC_CACHE = &H4
%NAVIGATEFRAME_FL_NO_IMAGE_CACHE = &H8
%NAVIGATEFRAME_FL_AUTH_FAIL_CACHE_OK = &H10
%NAVIGATEFRAME_FL_SENDING_FROM_FORM = &H20
%NAVIGATEFRAME_FL_REALLY_SENDING_FROM_FORM = &H40
 

NAVIGATEDATA

TYPE NAVIGATEDATA
  ulTarget AS DWORD
  ulURL AS DWORD
  ulRefURL AS DWORD
  ulPostData AS DWORD
  dwFlags AS DWORD
END TYPE
 

SetFrameName

FUNCTION ITargetFrame_SetFrameName ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL strFrameName AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG

  strFrameName = UCODE$(strFrameName) & $NUL
  CALL DWORD @@pthis[3] USING ITargetFrame_SetFrameName (pthis, strFrameName) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetFrameName

FUNCTION Proto_ITargetFrame_GetFrameName ( _
  BYVAL pthis AS DWORD PTR _
, BYREF ppszFrameName AS DWORD _
  ) AS LONG
 

FUNCTION ITargetFrame_GetFrameName ( _
  BYVAL pthis AS DWORD PTR _
, BYREF strFrameName AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG
  LOCAL bstrlen AS LONG

  LOCAL ppszFrameName AS DWORD
  CALL DWORD @@pthis[4] USING Proto_ITargetFrame_GetFrameName (pthis, ppszFrameName) TO HRESULT
  IF ISTRUE ppszFrameName THEN
     bstrlen = lstrlenW(BYVAL ppszFrameName)
     IF ISTRUE bstrlen THEN
        strFrameName = PEEK$(ppszFrameName, bstrlen * 2)
        strFrameName = ACODE$(strFrameName)
     END IF
     CoTaskMemFree ppszFrameName
  END IF
  FUNCTION = HRESULT

END FUNCTION

GetParentFrame

FUNCTION ITargetFrame_GetParentFrame ( _
  BYVAL pthis AS DWORD PTR _
, BYREF ppunkParent AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[5] USING ITargetFrame_GetParentFrame (pthis, ppunkParent) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

FindFrame

FUNCTION ITargetFrame_FindFrame ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL strTargetName AS STRING _
, BYVAL ppunkContextFrame AS DWORD _
, BYVAL dwFlags AS DWORD _
, BYREF ppunkTargetFrame AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG

  strTargetName = UCODE$(strTargetName) & $NUL

  CALL DWORD @@pthis[6] USING ITargetFrame_FindFrame (pthis, strTargetName, ppunkContextFrame, dwFlags, ppunkTargetFrame) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetFrameSrc

FUNCTION ITargetFrame_SetFrameSrc ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL strFrameSrc AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG

  strFrameSrc = UCODE$(strFrameSrc) & $NUL
  CALL DWORD @@pthis[7] USING ITargetFrame_SetFrameSrc (pthis, strFrameSrc) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetFrameSrc

FUNCTION Proto_ITargetFrame_GetFrameSrc ( _
  BYVAL pthis AS DWORD PTR _
, BYREF ppszFrameSrc AS DWORD _
  ) AS LONG
 

FUNCTION ITargetFrame_GetFrameSrc ( _
  BYVAL pthis AS DWORD PTR _
, BYREF strFrameSrc AS STRING _
  ) AS LONG

  LOCAL HRESULT AS LONG
  LOCAL bstrlen AS LONG

  LOCAL ppszFrameSrc AS DWORD
  CALL DWORD @@pthis[8] USING Proto_ITargetFrame_GetFrameSrc (pthis, ppszFrameSrc) TO HRESULT
  IF ISTRUE ppszFrameSrc THEN
     bstrlen = lstrlenW(BYVAL ppszFrameSrc)
     IF ISTRUE bstrlen THEN
        strFrameSrc = PEEK$(ppszFrameSrc, bstrlen * 2)
        strFrameSrc = ACODE$(strFrameSrc)
     END IF
     CoTaskMemFree ppszFrameSrc
  END IF
  FUNCTION = HRESULT

END FUNCTION
 

GetFramesContainer

FUNCTION ITargetFrame_GetFramesContainer ( _
  BYVAL pthis AS DWORD PTR _
, BYREF ppContainer AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[9] USING ITargetFrame_GetFramesContainer (pthis, ppContainer) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetFrameOptions

FUNCTION ITargetFrame_SetFrameOptions ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL dwFlags AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[10] USING ITargetFrame_SetFrameOptions (pthis, dwFlags) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetFrameOptions

FUNCTION ITargetFrame_GetFrameOptions ( _
  BYVAL pthis AS DWORD PTR _
, BYREF pdwFlags AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[11] USING ITargetFrame_GetFrameOptions (pthis, pdwFlags) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

SetFrameMargins

FUNCTION ITargetFrame_SetFrameMargins ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL dwWidth AS DWORD _
, BYVAL dwHeight AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[12] USING ITargetFrame_SetFrameMargins (pthis, dwWidth, dwHeight) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

GetFrameMargins

FUNCTION ITargetFrame_GetFrameMargins ( _
  BYVAL pthis AS DWORD PTR _
, BYREF pdwWidth AS DWORD _
, BYREF pdwHeight AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[13] USING ITargetFrame_GetFrameMargins (pthis, pdwWidth, pdwHeight) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

RemoteNavigate

FUNCTION ITargetFrame_RemoteNavigate ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL cLength AS DWORD _
, BYVAL pulData AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[14] USING ITargetFrame_RemoteNavigate (pthis, cLength, pulData) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

OnChildFrameActivate

FUNCTION ITargetFrame_OnChildFrameActivate ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL pUnkChildFrame AS DWORD _
  ) AS LONG

  LOCAL HRESULT AS LONG
  CALL DWORD @@pthis[15] USING ITargetFrame_OnChildFrameActivate (pthis, pUnkChildFrame) TO HRESULT
  FUNCTION = HRESULT

END FUNCTION
 

OnChildFrameDeactivate

FUNCTION ITargetFrame_OnChildFrameDeactivate ( _
  BYVAL pthis AS DWORD PTR _
, BYVAL pUnkChildFrame AS DWORD _
  ) AS LONG

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

END FUNCTION