xstorage_close

Visual Basic Syntax

Private Declare Function xstorage_close

Lib "xmllab_dll.dll" 

()
 As Long

Example

The following Microsoft® Visual Basic® example closes opened XStorage

Private Sub Close_Click()
Dim FILENAME As String

Dim Result, 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

    FILENAME = "XMLLab_Samples\rft_and_html_txt_csv_asc.xba"

    'Call xml_mark_gstack(Stack)

    Result = xstorage_close ()

    'Call xml_release_gstack(Stack)

    If Result = 0 Then

        loaded_documents.Clear

        loaded_filename.Caption = "XStorage closed "

    End If

    Else

    loaded_filename.Caption = "XStorage not initialized. " & XSTORAGE_STAT

End If


End Sub

C/C++ Syntax

   

 Under development
 

C/C++ Return Values

C Sample

Under development