Loads XStorage from file to memory
Status:
Ready
Private Declare Function xstorage_load
Lib "xmllab_dll.dll"(ByVal XSTORAGE_FILE As String)
As Long
The following Microsoft® Visual Basic® example loads XStorage from file into memory
Private Sub Load_Click()Dim FILENAME As StringEnd Sub
Dim Res, Error As Long
Dim Result As Long
Dim XSTORAGE_STAT As String
XSTORAGE_STAT = String(255, " ")
Result = xstorage_status(XSTORAGE_STAT)
FILENAME = "XMLLab_Samples\rft_and_html_txt_csv_asc.xba"
Res = xstorage_load (FILENAME)
If (Res = 0) Then
loaded_filename.Caption = "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
Under development
Under development
|
Contact Us | | |
|
© 1997-2003 EDMGROUP (Australia) Pty Ltd. All rights reserved. |