VB.Net openoffice writer crash: openoffice, writer, vb.net

by: ltlbearand3Posted on 2009-07-24 at 19:59:32ID: 24940531

If I put your code above in a new vb.net console application, it runs fine. However, depending on what I put in following that code, I can get the error you mention. Can you post your entire code and maybe we can take a look at what can be done.

-Bear

by: wellholePosted on 2009-07-24 at 21:00:19ID: 24940637

Ah, but this is all that's needed to cause the crash when closing Writer. I commented out everything afterward.

by: ltlbearand3Posted on 2009-07-25 at 16:48:12ID: 24943620

Try this code for me -- just by itself and let me know what happens. Change the file location in the StoreASURL to a location you want to store the file. By the way there is an issue that will stop this from saving to the C:\ directory on a Vista machine so make sure to use a sub folder if saving to C:\

       Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
        Dim oText As Object = oDoc.getText()
 
        Dim oCursor As Object = oText.createTextCursor()
        oText.insertString(oCursor, "My little test", False)
 
        oDoc.storeAsURL("file:///C:/vbtest.odt", arg)
        oDoc.Close(False)

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Select all Open in new window

by: wellholePosted on 2009-07-27 at 05:57:26ID: 24950988

With your test code, Writer actually crashes with an error report and restarts itself. Save is successful.

error2.JPG
- 27 KB
error screenshot

by: wellholePosted on 2009-07-27 at 07:15:16ID: 24951767

Bear, this is my entire code. The error happens when I try to close Writer.

Public Class Form1
 
    Sub form_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
        Dim oText As Object = oDoc.getText()
        Dim oCursor As Object = oText.createTextCursor()
 
        oCursor = Nothing
        oText = Nothing
        oDoc = Nothing
        oMM = Nothing
        oSM = Nothing
    End Sub
 
End Class

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Select all Open in new window

by: ltlbearand3Posted on 2009-07-27 at 08:16:44ID: 24952452

Are you just trying to open a blank Writer document in your code and leave the window open for the user? That is what it looks like to me. If so, then there is no need to use the createtextcursor object as that is used to active an object used to place text in the document via code. Just try the code below.

If you need to place text in the document, let me know and I will have to research the errors a little more. (What version of OOo are you using?)

-Bear

Public Class Form1
 
    Sub form_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
 
        oDoc = Nothing
        oMM = Nothing
        oSM = Nothing
    End Sub
 
 
End Class

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Select all Open in new window

by: wellholePosted on 2009-07-27 at 08:21:00ID: 24952504

Bear, I'm just showing you my test code. This alone causes the problem. So, there's no reason to introduce code that doesn't contribute to the problem, but since you asked....

Public Class Form1
 
    Sub form_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
        Dim oText As Object = oDoc.getText()
        Dim oCursor As Object = oText.createTextCursor()
 
        oText.insertString(oCursor, "My little test", False)
 
        oCursor = Nothing
        oText = Nothing
        oDoc = Nothing
        oMM = Nothing
        oSM = Nothing
    End Sub
 
End Class

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Select all Open in new window

by: wellholePosted on 2009-07-27 at 08:25:38ID: 24952555

Oh, forgot to answer questions. I'm using Open Office 3.0.1 and the update notification shows up when Writer opens up. I don't intend to update right now since it's unlikely that other users will update their openoffice software. They're all on 3.0.1 as far as I know.

by: ltlbearand3Posted on 2009-07-27 at 08:37:22ID: 24952711

I don't know why I did not think of this sooner. If you want to actually put text in the document, I suggest using the .getViewCursor method instead of createtextcursor. See the code below.

    Sub form_load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim oSM As Object = CreateObject("com.sun.star.ServiceManager")
        Dim oMM As Object = oSM.createInstance("com.sun.star.frame.Desktop")
        Dim arg(-1) As Object
        Dim oDoc As Object = oMM.LoadComponentFromUrl("private:factory/swriter", "_blank", 0, arg)
        Dim oText As Object = oDoc.getText()
        Dim oCursor As Object = oDoc.getCurrentController().getViewCursor()
        oText.insertString(oCursor, "My little test", False)
 
        ' Uncomment his code and correct the file name and path if you want the code to save the file
        ' oDoc.storeAsURL("file:///C:/vbtest.odt", arg)
 
        ' Uncomment this line if you want the code to automatically close the file when done.
        ' oDoc.close(True) 
 
        oCursor = Nothing
        oText = Nothing
        oDoc = Nothing
        oMM = Nothing
        oSM = Nothing
    End Sub

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Select all Open in new window

by: wellholePosted on 2009-07-27 at 08:40:59ID: 24952755

Bear, you are da bomb! I just wonder why the cursor I had causes the app to go wonky like that...

by: ltlbearand3Posted on 2009-07-27 at 19:08:39ID: 24957431

Sorry I did not think of it sooner. As I understand it from the documents and experience, the .createtextcursor creates kind of a hidden cursor - It does activity on the document but never moves the visible cursor position. Whereas the .getviewcursor gets the current visible cursor position and manipulates it. Therefore the visible cursor ends up wherever you leave it. I am guessing that the .createtextcursor was creating some sort of permissions or rights issues between vb.net and OOo that the two could not figure out. Glad it is working now.

Question

VB.Net openoffice writer crash

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

openoffice

writer

vb.net

LibreOffice Document

LibreOffice

.NET

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press