WordString
(Available in 00 TS Tools(Base) - TS_Tools_String)
Purpose
Get value as BSTR(PTR)
Syntax
SomeAPICallNeedingBSTR( oString:WordString )
Description
Get value as BSTR(PTR), this will be a NULL_PTR if no bytestring has been assigned
Example
oString:=TS_String{ "SomeString" }
SomeAPICallNeedingBSTR( oString:WordString )
Source
ACCESS WordString AS PTR PASCAL CLASS TS_String
LOCAL dwByteStringLength AS DWORD
TSTrace Enter
IF SELF:IsValidObject
IF SELF:_WordString==NULL_PTR .AND. SELF:_ByteString ; ...
... <>NULL_STRING
dwByteStringLength:=SLen( SELF:_ByteString )
IF LOGIC( _CAST, dwByteStringLength )
SELF:_WordString:=TS_String2UniCodeBSTR( SELF:_ByteString ; ...
... )
IF SELF:_WordString==NULL_PTR
TSTrace Warning "(SELF:_WordString:=TS_String2UniCodeBSTR(SELF:_ByteString))==NULL_PTR"
END
ELSE
SELF:_WordString:=SysAllocStringLen( NULL_PTR, 0U ; ...
... )
IF SELF:_WordString==NULL_PTR
TSTrace Warning "(SELF:_WordString:=SysAllocStringLen(NULL_PTR,0U))==NULL_PTR"
END
END
END
ELSE
TSTrace Warning