AsString

(Available in 01 TS COM - TS_COM_IUnknown)

Purpose

Get a string representing the interface ( Debug info )

Syntax

? oIUnknown:AsString

Description

Get a string representing the interface ( Debug info )

Source

ACCESS AsString CLASS TS_IUnknown
LOCAL cAsString AS STRING
   TSTrace Enter
   cAsString:="Self=>'"+AsString( SELF )+"'"+TS_C_LF+"Name=>'"+Symbol2String( SELF:_NameSym  ; ...
  ... )+"'"+TS_C_LF+"RefCount=>'"+NTrim( SELF:_RefCount )+"'" ; ...
  ... +TS_C_LF+"IID=>'"+TS_GUID2String( SELF:_IID )+"'"
   TSTrace Leave
RETURN cAsString