RegSvr32 OpcLabs.BaseLib.ValueResultExtension.wsc

* This example shows how to read a UInt32 value, which is otherwise not accessible by FoxPro.
 
THISFORM.OutputEdit.Value = ""
 
* Instantiate the client object.
oClient = CREATEOBJECT("OpcLabs.EasyOpc.UA.EasyUAClient")
 
* Instantiate the extension object for ValueResult, which provides the conversion.
oValueResultExtension = CREATEOBJECT("OpcLabs.BaseLib.OperationModel.ValueResultExtension")
 
* Prepare the input arguments.
 
oReadArguments = CREATEOBJECT("OpcLabs.EasyOpc.UA.OperationModel.UAReadArguments")
oReadArguments.EndpointDescriptor.UrlString = "http://opcua.demo-this.com:51211/UA/SampleServer"
oReadArguments.NodeDescriptor.NodeId.ExpandedText = "nsu=http://test.org/UA/Data/ ;i=10850"
 
oArgumentElasticVector = CREATEOBJECT("OpcLabs.BaseLib.Collections.ElasticVector")
oArgumentElasticVector.Add(oReadArguments)
 
* Read the value and extract the value result object.
 
oResultElasticVector = oClient.ReadValueList(oArgumentElasticVector)
oValueResult = oResultElasticVector.Item[0]
 
* Display the value result in its string form.
THISFORM.OutputEdit.Value = THISFORM.OutputEdit.Value + oValueResult.DisplayString + CHR(13) + CHR(10)
 
IF oValueResult.Succeeded THEN
	* Convert the UInt32 (Int64) value inside the value result to a Double, and display it.
	valueDouble = oValueResultExtension.ValueDouble(oValueResult)
	THISFORM.OutputEdit.Value = THISFORM.OutputEdit.Value + STR(valueDouble) + CHR(13) + CHR(10)
ENDIF
 
*
THISFORM.OutputEdit.Value = THISFORM.OutputEdit.Value + "Finished." + CHR(13) + CHR(10)

<!-- $Header: $ !-->
<!-- Copyright (c) CODE Consulting and Development, s.r.o., Plzen. All rights reserved. !-->
 
<!-- Extends the ValueResult class. !-->
 
<?component error="false"?>
<component>
 
<registration
    progid="OPCLabs.BaseLib.OperationModel.ValueResultExtension"
    classid="{15E5B376-A795-43E9-97A4-271617EE03B4}"
    description="Extends the ValueResult class."
    version="1"
    remotable="true">
</registration>
 
<!-- Declare properties, methods and events of the component !-->
<public>
    <!-- <property name="..."> </property> !-->
    <method name="ValueDouble"> 
        <parameter name="valueResult"/> 
    </method>
</public>
 
<script language="VBScript">
Option Explicit
 
Rem Gets a Double value that is a successful result of the operation.
Function ValueDouble(valueResult)
    Dim result: result = CDbl(valueResult.Value)
    ValueDouble = result
End Function
 
</script>
 
</component>