Post lost!!!!

[IndicSoftware]

Hello,

I am new around here. I posted a few minutes back but my query is not posted in the forum.

What must be wrong that I am doing on my side?

Thanks,

For,
Indic Software

[Arnoutdv]

Try it again, this one is posted.

[IndicSoftware]

Yes this post came up instantly.

But when I am posting my actual query post I get the message that your post will be approved by a moderator before it appears in the forum.

Why?

For,
Indic Software

[IndicSoftware]

Here are my actual queries:


I am new around here. I have been using vbrc since version 3.

I have never had any problems as I have always used it for its SQLite capabilities.

But now I am trying to use its OOEmbed object to load a document in Open Office and export the same to PDF. But I am not able to make any head way in this direction.

If there are any experts on this forum who can help me solve this problem I would greatly appreciate it.

Regards,

For,
Indic Software

[Arnoutdv]

That's just policy of this forum, the first posts need to be approved.

Regarding your question;
Can you explain what you mean with "OOEmbed to load an Open Office document"?
Can you show some source code?

[IndicSoftware]

That's just policy of this forum, the first posts need to be approved.

Ok that is great. But how long does it take Moderators to approve the post?

[IndicSoftware]

Regarding your question;
Can you explain what you mean with "OOEmbed to load an Open Office document"?
Can you show some source code?

OoEmbed is an object in VB Rich Client 5. It allows developers to embed Open Office in a VB6 Form with just two lines of code. But that is it. There is no control beyond this. That I can find.

Currently I am use VBScript style OLE automation code as give here:

Dim oSM                   'Root object for accessing OpenOffice from VB
Dim oDesk, oDoc As Object 'First objects from the API
Dim arg(1)                 'Ignore it for the moment !
    
On Error Resume Next

'Instanciate OOo : this line is mandatory with VB for OOo API
  Set oSM = CreateObject("com.sun.star.ServiceManager")
'Create the first and most important service
  Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
  
'Create a new doc
  Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg())
  'Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "c:\Downloads\yTestDocs.doc", 0, arg())
  
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
    
'Open an existing doc (pay attention to the syntax for first argument)
  Set oDoc = oDesk.loadComponentFromURL("file:///c:/Downloads/TestDocs.doc", "_blank", 0, arg())
'Save the doc
  Set arg(0) = MakePropertyValue("FilterName", "writer_pdf_Export")
  
  'Use the MakePropertyValue as per the type of document you want to convert
  'like for example
  'Set arg(0) = MakePropertyValue("FilterName", "writer_web_pdf_Export")  'For HTML Documents
  'Set arg(0) = MakePropertyValue("FilterName", "calc_pdf_Export")  'For Spreadsheet files
  'Set arg(0) = MakePropertyValue("FilterName", "impress_pdf_Export")  'For PowerrPoint files
  '------------------------------
  'To save any document to HTML format use the following
  'Set arg(0) = MakePropertyValue("FilterName", "HTML (StarWriter)")
  'Set arg(0) = MakePropertyValue("FilterName", "HTML (StarCalc)")
  'Set arg(0) = MakePropertyValue("FilterName", "impress_html_Export")
  
  Call oDoc.storeToURL("file:///c:/Downloads/test2.pdf", arg())
  'CallByName oDoc, "EXPORT_FILTER_MAP", VbMethod, arg()
'Close the doc
  oDoc.Close (True)
  Set oDoc = Nothing
  Set oDesk = Nothing
  Set oSM = Nothing

This code starts Open Office and opens a document in it and saves/exports it to PDF format.

I want to achieve this using VBRC5.

Regards,

[Inside]

That is definitely me !!

[SamOscarBrown]

Do you mind me asking what VBRC5 is?

[Inside]

Do you mind me asking what VBRC5 is?

VB Rich Client

New to me too
see #7

[SamOscarBrown]

Thanks Inside