Planet PDF Forum Archive

Planet PDF ForumWowsers! This is page is old, head to the LIVE Planet PDF Forum. It features more than 10 conferences, covering everything from beginner to in-depth developer and pre-press discussions. If you wish to continue... one & two archive covers 1999-2011 (160,000 pages).


New Forum | Previous | Next | (P-PDF) Developers


Topic: A syntax error occurred trying to evaluate a query string
Conf: (P-PDF) Developers, Msg: 133714
From: neoh
Date: 6/1/2005 12:37 PM

I try to wrap the .net stream object into OLE object in VB.Net. But not sure about this:


Declare Function CreateStreamOnHGlobal Lib "OLE32" _
(ByVal hGlobal As Integer, _
ByVal fDeleteOnRelease As Boolean, _
ByRef ppstm As UCOMIStream) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Load the file into a stream.
Dim fsIn As New FileStream("C:\\test.pdf", FileMode.Open, FileAccess.Read)

' Create a MemoryStream to hold the data.
Dim ms As New MemoryStream

' Create a reader for the data.
Dim r As New BinaryReader(ms)

' Get length of the file.
Dim fileLen As Integer = Convert.ToInt32(ms.Length)

' Create a buffer for the data.
Dim fileBytes(fileLen) As Byte

' Read the data from Memory
For i As Integer = 0 To fileLen - 1
fileBytes(i) = r.ReadByte
Next

' declare the COM stream
Dim iStream As UCOMIStream

' Create the stream (with no initial memory allocated)
CreateStreamOnHGlobal(0, True, iStream)

' Write the data from buffer into COM Stream
iStream.Write(fileBytes, fileLen, System.IntPtr.Zero)

' Set size of COM stream
iStream.SetSize(fileLen)

' PDF Control
Dim obj As New XpdfText.XpdfTextClass
obj.loadStream(iStream)
obj.convertToTextFile(1, 3, "C:\\test.txt")

End Sub

PDF In-Depth Free Product Trials Ubiquitous PDF

Debenu Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link...

Download free demo

Debenu PDF Tools Pro

It's simple to use and will let you preview and edit PDF files, it's a Windows application that makes...

Download free demo

Back to the past, 15 years ago! Open Publish 2002

Looking back to 2002, it's amazing how much of the prediction became a reality. Take a read and see what you think!

September 14, 2017
Platinum Sponsor





Search Planet PDF
more searching options...
Planet PDF Newsletter
Most Popular Articles
Featured Product

Debenu PDF Aerialist

The ultimate plug-in for Adobe Acrobat. Advanced splitting, merging, stamping, bookmarking, and link control. Take Acrobat to the next level.

Features

Adding a PDF Stamp Comment

OK, so you want to stamp your document. Maybe you need to give reviewers some advice about the document's status or sensitivity. This tip from author Ted Padova demonstrates how to add stamps with the Stamp Tool along with related comments.