Solved

vb.net write a .pdf but locks the file once it is written

Posted on 2006-11-16
8
278 Views
Last Modified: 2010-04-23
I've had to update a program someone else wrote in vb.net 2003 to vb.net 2005.  It writes a pdf to a folder but won't release the file until I close the program.  Here is the code below.  I'm new to .net so please type slowly.  Thanks.

Private Sub CreatePDF()

        'Prints the airbill report
        Dim ReportName As New AirbillReport

        Dim myexportoptions As CrystalDecisions.Shared.ExportOptions
        Dim mydiskfiledestinationoptions As CrystalDecisions.Shared.DiskFileDestinationOptions
        Dim myexportfile As String


        myexportfile = "C:\Documents and Settings\mikeb\My Documents\Visual Studio 2005\Projects\AnatomicalServicesProgram\Airbills\" & txtAirbillNumber.Text & ".pdf"


        mydiskfiledestinationoptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
        mydiskfiledestinationoptions.DiskFileName = myexportfile
        myexportoptions = ReportName.ExportOptions
        With myexportoptions
            .DestinationOptions = mydiskfiledestinationoptions
            .ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
            .ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
        End With

        'ReportName.SetDataSource(ShipmentInformationDataset)

        'Inserted as testing for Crystal Decisions problem we are having 1-26-05
        'ShipmentInformationDataset.WriteXml("c:\ShipmentData.xml")

        ReportName.Export()

        ReportName.Close()


        SendMessage(myexportfile)

        'System.IO.File.Delete(myexportfile)



    End Sub
0
Comment
Question by:bergertime
[X]
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
  • 5
  • 3
8 Comments
 
LVL 14

Expert Comment

by:Ramuncikas
ID: 17958076
Try

<...>
ReportName.Export()
ReportName.Close()
'---------------------------------------------------
ReportName = Nothing
myexportoptions = Nothing
mydiskfiledestinationoptions = Nothing

'---------------------------------------------------
SendMessage(myexportfile)
'System.IO.File.Delete(myexportfile)

BTW, do you get any error?
0
 
LVL 14

Expert Comment

by:Ramuncikas
ID: 17958091
On the other hand a SendMessage() sub could cause this problem. Post your code here if the above does not help
0
 
LVL 2

Author Comment

by:bergertime
ID: 17958841
I think this may be the code your looking for.

Private Sub StoreAirbill()
        'Declare and instantiate the dataset row.
        Dim sir As ShipmentInformation.ShipmentInformationRow

        'Ready dataset row for data insertion.
        sir = ShipmentInformationDataset.ShipmentInformation.NewRow

        'Databind dataset fields to form fields.
        sir.AirbillNumber = txtAirbillNumber.Text

        'Removed labels from form but left information incase I need to add it back.
        sir.Labels = ""
        sir.Origin = txtorigin.Text
        sir.Destination = txtdestination.Text
        sir.DeclaredValue = txtdeclaredvalue.Text
        sir.DeliveryDate = txtdate.Text
        sir.Time = txttime.Text
        sir.ShipperRefNumber = txtshipperref.Text
        sir.ConsigneeRefNumber = txtconsigneeref.Text
        sir.ThirdPartyRefNumber = txtthirdref.Text

        If optnextday.Checked = True Then
            sir.NextDay = "X"
        ElseIf opt2ndday.Checked = True Then
            sir.SecondDay = "X"
        ElseIf opt3to5day.Checked = True Then
            sir.Threeto5Day = "X"
        End If

        If Optshipper.Checked = True Then
            sir.Shipper = "X"
        ElseIf optconsignee.Checked = True Then
            sir.Consignee = "X"
        ElseIf optthirdparty.Checked = True Then
            sir.ThirdParty = "X"
        End If

        sir.ShipperName = txtShipperName.Text
        sir.ShipperAddress = txtshipperaddress.Text
        sir.ShipperCity = txtshippercity.Text
        sir.ShipperState = txtshipperstate.Text
        sir.ShipperZip = txtshipperzip.Text
        sir.ShipperContact = txtshippercontactname.Text
        sir.ShipperPhone = txtshippernumber.Text
        'sir.ShipperShow = txtShipperShow.Text
        'sir.ShipperBooth = txtShipperBooth.Text

        sir.ConsigneeName = cmbConsigneeName.Text
        sir.ConsigneeAddress = txtconsigneeaddress.Text
        sir.ConsigneeCity = txtconsigneecity.Text
        sir.ConsigneeState = txtconsigneestate.Text
        sir.ConsigneeZip = txtconsigneezip.Text
        sir.ConsigneeContact = txtconsigneecontactname.Text
        sir.ConsigneePhone = txtconsigneenumber.Text
        'sir.ConsigneeBooth = txtConsigneeBooth.Text
        'sir.ConsigneeBooth = txtConsigneeBooth.Text


        sir.ThirdName = cmbThirdPartyName.Text
        sir.ThirdAddress = txtthirdaddress.Text
        sir.ThirdCity = txtthirdcity.Text
        sir.ThirdState = txtthirdstate.Text
        sir.ThirdZip = txtthirdzip.Text
        sir.ThirdContact = txtthirdcontactname.Text
        sir.ThirdPhone = txtthirdnumber.Text

        sir.Pieces1 = txtPieces1.Text
        sir.Length1 = txtLength1.Text
        sir.Width1 = txtWidth1.Text
        sir.Height1 = txtHeight1.Text
        sir.Description1 = txtDescription1.Text
        sir.Weight1 = txtWeight1.Text

        sir.Pieces2 = txtPieces2.Text
        sir.Length2 = txtLength2.Text
        sir.Width2 = txtWidth2.Text
        sir.Height2 = txtHeight2.Text
        sir.Description2 = txtDescription2.Text
        sir.Weight2 = txtWeight2.Text

        sir.Pieces3 = txtPieces3.Text
        sir.Length3 = txtLength3.Text
        sir.Width3 = txtWidth3.Text
        sir.Height3 = txtHeight3.Text
        sir.Description3 = txtDescription3.Text
        sir.Weight3 = txtWeight3.Text

        sir.Pieces4 = txtPieces4.Text
        sir.Length4 = txtLength4.Text
        sir.Width4 = txtWidth4.Text
        sir.Height4 = txtHeight4.Text
        sir.Description4 = txtDescription4.Text
        sir.Weight4 = txtWeight4.Text

        sir.Instructions = txtSpecialInstructions.Text

        'Insert data to dataset.
        ShipmentInformationDataset.ShipmentInformation.Rows.Add(sir)

        'Print the airbill using information entered into the dataset.
        CreatePDF()


        'Clears all information out of the dataset to ready it for a new entry.
        ShipmentInformationDataset.Clear()
0
Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

 
LVL 14

Expert Comment

by:Ramuncikas
ID: 17958982
I don't see where you use the above code in a code provided in question.
Once again: do you get any error? If you do, show us the code raising error. If not, tell me how you know the file is locked?
0
 
LVL 2

Author Comment

by:bergertime
ID: 17959331
Sorry, I had posted a response to your first post.  I must not have hit submit?  Anyway, yes I do get an error.  Here is what happens:  If I leave 'System.IO.File.Delete(myexportfile) uncommented then the first bill I process I get an error stating that System.IO.IOException the file you are trying to access is locked.  Now if I comment out that 'System.IO.File.Delete(myexportfile) then the first time I write a new bill number ( & txtAirbillNumber.Text &) it works fine and I can write as many as I want to.  But if I write a bill with the same AirBillNumber I get the error that the file I am trying to access isd locked.  Now I can open the folder that I'm writing the bills to and say I process 10 bills, If I right click and say delete on any of them, windows tells me thay are in use.  If I shut down the program and restart, then I can delete the bills.  I came home for lunch but I will post the code with the code you provided in it again.  With the code you provided, my result was the same.  I will also post the complete error I get.    Thanks again.
0
 
LVL 14

Accepted Solution

by:
Ramuncikas earned 500 total points
ID: 17959793
Ok.
Now I see two possible points of error location:
#1. ReportName.Close() has a bug and does not release a handle to a file
#2. SendMessage(myexportfile) sub could do the same. This could be a #1 place to look for a bug. So what I need is a code of your SendMessage sub.

Before you do that comment the SendMessage(myexportfile) line and uncomment the System.IO.File.Delete(myexportfile) line. If you will not get any locked files after that then a bug resides in a SendMessage for sure. Check that before posting.

P.S. Don't hurry. You're at lunch and for me it's time to go to bed already. It's 10:48 PM in Lithuania. :)
0
 
LVL 2

Author Comment

by:bergertime
ID: 17965648
I did what you said last night.  So the bug was in my Sendmessage just as you said.  I added 'MyAttachment.Dispose()' to the end and now everything works as it should.  Thanks again for your help. :)
0
 
LVL 14

Expert Comment

by:Ramuncikas
ID: 17965939
Glad to be helpful

And thanks for the points. They made me a VB.NET Master in EE :)

0

Featured Post

Revamp Your Training Process

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.

Question has a verified solution.

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

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

730 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