xstorage_copy_document

Visual Basic Syntax

Private Declare Function xstorage_copy_document

Lib "xmllab_dll.dll" 

(ByVal FROM As Long,ByRef DOCREF As Long)
 As Long

Example

The following Microsoft® Visual Basic® example shows how to create a copy of the document

Private Sub Copy_Click()
Dim DocObject, DocObjectCopy As Long

Dim Result As Long

Dim XSTORAGE_STAT As String

XSTORAGE_STAT = String(255, " ")

Result = xstorage_status(XSTORAGE_STAT)

If Result = 0 Then

    'DocObject = loaded_documents.List(loaded_documents.ListIndex)

    Result = xstorage_first_doc(DocObject)

    Result = xstorage_copy_document (DocObject, DocObjectCopy)

    If Result = 0 Then

        Call fill_loaded

    Else

        MsgBox "xstorage_copy_document  failed. Retcode = " & Result

    End If

    Else

    MsgBox "XStorage is not initialized or not loaded"

End If




End Sub

C/C++ Syntax

   

 Under development
 

C/C++ Return Values

C Sample

Under development