WordString
(Available in 00 TS Tools(Base) - TS_Tools_String)
Purpose
Set value as BSTR(PTR)
Syntax
oString:WordString:=SomeAPICallResultingInBSTR( )
Arguments
Description
Set new value as BSTR pointer, if the value is a NULL_PTR then the access 'ByteString' will return a NULL_STRING
Example
oString:WordString:=SomeAPICallResultingInBSTR( )
? oString:ByteString
Source
ASSIGN WordString( pWordString AS PTR ) AS PTR PASCAL CLASS TS_String
TSTrace Enter
IF SELF:IsValidObject
IF SELF:_WordString<>pWordString
IF SELF:_WordString<>NULL_PTR
IF SELF:_MemFree
SysFreeString( SELF:_WordString )
END
SELF:_WordString:=NULL_PTR
END
SELF:_ByteString:=NULL_STRING
SELF:_WordString:=pWordString
END
ELSE
TSTrace Warning "!SELF:IsValidObject"
END
TSTrace Leave
RETURN SELF:_WordString