PDF XChange Forum

Code: Select all

Private Function OpenDocumentFromFile(sFilePath As String, pInst As LIBNAME.IPXC_Inst) As LIBNAME.IPXC_Document
    Dim pDoc As LIBNAME.IPXC_Document = Nothing
    Try
        pDoc = pInst.OpenDocumentFromFile(sFilePath, Nothing, Nothing, 0, 0)
    Catch ex As Exception
        Dim hr As Integer = Marshal.GetHRForException(ex)
        ShowErrMsg(hr)
        Return Nothing
    End Try

    Return pDoc
End Function

Code: Select all

IPXC_Inst::Init();
IPXC_Document pDoc;
pDoc = OpenDocumentFromFile();
pDoc->Close();
pDoc = null;
IPXC_Inst::Finalize();

IPXC_Inst::Init();
pDoc = OpenDocumentFromFile();
pDoc->Close();
pDoc = null;
IPXC_Inst::Finalize();