Creating a new document in vb.net using DM 5.1.05 API results in zero length file

Posted on 2007-11-14
Medium Priority
Last Modified: 2010-08-05
Using the example from the API reference and modifying it for vb.net from vb6, i am creating a new document in DM.  The result is that no error is thrown, the document does get created but the version of the document in DM is 0 length.  Trapping the "TotalBytesWritten" return value also reveals that no bytes were written.  The errDescription and errNumber both are OK.

Here is my VB.Net code

        Dim DocNumber As Long
        Dim VersionID As Long
        Dim TotalFileSize As Long
        Dim TotalBytesWritten As Long
        Dim szErr As String
        Dim bdata() As Byte
        Dim objDoc As New PCDCLIENTLib.PCDDocObject
        objDoc.SetProperty("%TARGET_LIBRARY", gszLibrary)
        'Set the Profile Form for this document.
**code that sets the profile field values purposely omitted from ee post ***    

    Dim objPutStream As New Object
        objPutStream = objPutDoc.GetPropertyValue("%CONTENT")
        Dim FileName
        FileName = "C:\Test\005.doc"
        Dim fs As FileStream = File.Open(FileName, FileMode.Open, FileAccess.Read)
        Dim r As BinaryReader = New BinaryReader(fs)
        Dim bytesToWrite As Integer

        'FileOpen(1, FileName, OpenMode.Binary, OpenAccess.Read, OpenShare.LockRead, bdata.Length)
         TotalFileSize = fs.Length
        TotalBytesWritten = 0
        Me.lblImportProgress.Text = "Uploading Image: " & FileName
        bdata = r.ReadBytes(TotalFileSize)
        objPutStream.Write(bdata, TotalBytesWritten)
        objPutStream = Nothing
        objDoc = Nothing
        objDoc = New PCDCLIENTLib.PCDDocObject

The code example from the api reference used the OPEN and GET methods.
Here is the crux of the writing portion from the example:

Dim DocNumber As Long
Dim VersionID As Long
Dim TotalFileSize As Long
Dim TotalBytesWritten As Long
Dim Buffread As Long
'Set bdata ridiculously low for test purposes
'to increase the likelihood of corruption.
Dim bdata(16) As Byte
Dim objDoc As PCDDocObject
Set objDoc = New PCDDocObject
objDoc.SetProperty "%TARGET_LIBRARY", Library
objDoc.SetDST DST
'Set the Profile Form for this document.
Dim objPutDoc As PCDPutDoc
Set objPutDoc = CreateObject( _
objPutDoc.SetDST DST

Dim objPutStream As Object
Set objPutStream = _
Dim FileName
FileName = txtFileName.Text

Open FileName For Binary Access Read As #1
TotalFileSize = LOF(1)
While (Not EOF(1))
TotalBytesWritten = TotalFileSize
If TotalBytesWritten > 0 Then

If (TotalBytesWritten > UBound(bdata)) Then

TotalBytesWritten = UBound(bdata) + 1


TotalFileSize = TotalBytesWritten
End If

Get #1, , bdata
objPutStream.Write bdata, TotalBytesWritten
Debug.Print TotalBytesWritten, _
objPutStream.BytesWritten, _
objPutStream.ErrNumber, _
TotalBytesWritten = TotalFileSize - _
End If


Close #1
If objDoc.ErrNumber <> 0 Then
Debug.Print objDoc.ErrNumber, _
End If
Set objPutDoc = Nothing
Set objDoc = Nothing
Debug.Print "Upload completed!"

Thank you in advance.

Question by:howardseay
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions

Author Comment

ID: 20287228
I finally figured it out.  There were a few things wrong.  Here is the corrected block of code.

        Dim FileName
        FileName = "P:\Projects\COH_DIM\images\005.doc"
        Dim fs As FileStream = File.Open(FileName, FileMode.Open, FileAccess.Read)
        Dim breader As BinaryReader = New BinaryReader(fs)
        Dim bdata(1024) As Byte
        TotalFileSize = fs.Length
        Dim bytesToWrite As Integer
        bytesToWrite = 1024
        Dim lStart As Long
        Dim lLength As Long
        lStart = 0
        lLength = 1024
            breader.Read(bdata, 0, lLength)
            objPutStream.Write(bdata, lLength)
            If lStart = TotalFileSize Then Exit Do
            If lStart + 1024 > TotalFileSize Then
                lLength = TotalFileSize - lStart - 1
            End If
            lStart = lStart + lLength + 1

Open in new window


Accepted Solution

EE_AutoDeleter earned 0 total points
ID: 20968295
Because you have presented a solution to your own problem which may be helpful to future searches, this question is now PAQed and your points have been refunded.


Featured Post

Get 15 Days FREE Full-Featured Trial

Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this post we will learn different types of Android Layout and some basics of an Android App.
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
Suggested Courses

801 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question