Value
(Available in 01 TS COM - TS_COM_VariantArg)
Purpose
Get the variant usual value
Syntax
uValue:=oVariantArg:Value
Description
Get the variant usual value
Returns
USUAL
Example
METHOD GetSample( ) AS TS_IFPTemplate PASCAL CLASS SomeClass
LOCAL oIFPTemplate AS TS_IFPTemplate
LOCAL pVariantArg AS _WinVARIANTARG
LOCAL oATemplate AS TS_AbstractIDispatch
LOCAL oIFPSample AS TS_IFPSample
LOCAL oIFPFtrEx AS TS_IFPFtrEx
LOCAL oTemplate AS TS_VariantArg
LOCAL dwQuality AS DWORD
LOCAL oQuality AS TS_VariantArg
LOCAL oBlob AS TS_VariantArg
LOCAL aBlob AS ARRAY
TSTrace Enter
// Read a file into an array of numerics
aBlob:=ReadBlob( "C:\Smp_Template.FPT" )
// Create a 'TS_VariantArg'
oBlob:=TS_VariantArg{ }
// Convert the 'aBlob' array to a safearray of 'VT_UI1(Byte)'
oBlob:[ Value, _OR( VT_ARRAY, VT_UI1 ) ]:=aBlob
// Create a 'TS_IFPSample'
oIFPSample:=TS_IFPSample{ }
// Import the safearray of 'VT_UI1(Byte)'
oIFPSample:CMImport( oBlob )
// Prepare the first parameter for 'oIFPFtrEx:CMProcess()'
oTemplate:=TS_VariantArg{