VB:
Sub SetBinaryStorageData(Name As ByVal String, values As ByVal Object ) As void
C++:
void SetBinaryStorageData(LPCSTR Name, _variant_t values )
C#:
void SetBinaryStorageData(string Name, var values )
Python:
Minimum Origin Version Required: 2018 SR0
def SetBinaryStorageData(self, *args):
Sub Main() Dim app As Origin.IOApplication Dim strName As String Dim strBookName As String Dim wks As Origin.Worksheet Dim strValue As String app = New Origin.ApplicationSI strBookName = "Data" strBookName = app.CreatePage(Origin.PAGETYPES.OPT_WORKSHEET, strBookName, "w", 2) 'create a worksheetpage and make it visible wks = app.WorksheetPages(strBookName).Layers.Add("sheet") strName = "MyData" strValue = "OriginLab Storage Value" wks.SetBinaryStorageData(strName, strValue) strValue = "Missing" 'reset value and try to get from binarystorage strValue = wks.GetBinaryStorageData(strName, Origin.STGDATAFMT.STGDATAFMT_STRING) MsgBox(strValue) End Sub
8.0SR2