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

Posted on 2007-11-14
Last Modified: 2010-08-05
Using the example from the API reference and modifying it for 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

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
This is an explanation of a simple data model to help parse a JSON feed
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …

911 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

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now