xstorage_open

Visual Basic Syntax

Private Declare Function xstorage_open

Lib "xmllab_dll.dll" 

(ByVal XSTORAGE_FILE As String)
 As Long

Example

The following Microsoft® Visual Basic® example opens XStorage from external file

Private Sub Open_Click()
Dim FILENAME As String

Dim Result, Res, Error, Stack As Long

Dim XSTORAGE_STAT As String

    XSTORAGE_STAT = String(255, " ")

    Call xml_mark_gstack(Stack)

    Result = xstorage_status(XSTORAGE_STAT)

    Call xml_release_gstack(Stack)

    If Result = 0 Then

        'close existing storage

        Call xml_mark_gstack(Stack)

        Call xstorage_close

        Call xml_release_gstack(Stack)

    End If

    FILENAME = "XMLLab_Samples\rft_and_html_txt_csv_asc.xba"

    Call xml_mark_gstack(Stack)

    Res = xstorage_open (FILENAME)

    Call xml_release_gstack(Stack)

    If (Res = 0) Then

            loaded_filename.Caption = "XStorage Opened " & FILENAME

            Call fill_loaded

        Else

            Dim ERROR_BUFFER As String

            ERROR_BUFFER = String(1000, " ")

            Error = vb_xstorage_errors(ERROR_BUFFER)

            loaded_filename.Caption = "Error (" & Error & ") opening XStorage " & ERROR_BUFFER

    End If


End Sub

C/C++ Syntax

   

 Under development
 

C/C++ Return Values

C Sample

Under development