Dim p As New
SautinSoft.PdfFocus()
Dim PdfBytes As
New Object
PdfFile.SaveAs("D:\\Example.pdf")
p.ConvertFile("D:\\Example.pdf",
"D:\\Example.rtf", "")
Dim path As
String
Dim mode As FileMode
Dim readfile As FileStream
readfile = File.Open("D:\\Example.rtf",
FileMode.Open)
Dim reader As New
BinaryReader(readfile)
Dim len As Long
len = reader.BaseStream.Length
Dim word_doc(len) As
Byte
Dim uuu As Integer
uuu = reader.BaseStream.Read(word_doc, 0, len)
readfile.Close()
Response.ContentType = "application/msword"
Response.Charset = "windows-1251"
Response.OutputStream.Write(word_doc, 0, len)
Response.Flush()
|