|
GetResult Method
|
|
|
Applies To
|
BasicTcl Object, AdvancedTcl Object
|
|
Prototype
|
GetResult(Interpreter As Long, CommandOutput As String) As Long
|
|
Input
|
The "Interpreter" parameter, which must be a valid interpreter pointer.
|
|
Output
|
The "CommandOutput" parameter which receives the current string result for the specified interpreter.
|
|
Returns
|
Undefined.
|
|
COM Results
|
S_OK: Success.
E_INVALIDARG: Either a NULL pointer was passed or the "Interpreter" parameter is invalid. E_FAIL: The Tcl API returned a NULL pointer. |
|
Side Effects
|
None.
|
|
Description
|
This method is a wrapper around the Tcl_GetStringResult function.
|
|
Notes
|
None.
|
|
Example
|
Private Sub Command1_Click()
Dim poTcl As TclBridge.BasicTcl Dim plInterpreter As Long Dim psResult As String Set poTcl = New TclBridge.BasicTcl Call poTcl.CreateInterpreter(plInterpreter) Call poTcl.SetResult(plInterpreter, "this is the result") psResult = vbNullString Call poTcl.GetResult(plInterpreter, psResult) MsgBox "The result = " & psResult, vbInformation, App.Title Call poTcl.DeleteInterpreter(plInterpreter) Set poTcl = Nothing End Sub |