2013-07-29 34 views

回答

1

使用Doc.GetData獲得PDF作爲字節數組。如果這種類型的原始數據是你想要的,那麼這將比使用MemoryStream更有效。

0

您可以使用ABCPDF中的GetData()函數將PDF傳遞到流。 然後用適當的標題信息將字節寫出到瀏覽器。

Dim pdfbytestream as Byte() = oPDF.GetData() 
oPDF.Dispose() 'free up unused object 

Dim myRandomID As String = Year(Now()).ToString + Month(Now()).ToString + Day(Now()).ToString + Hour(Now()).ToString + Minute(Now()).ToString + Second(Now()).ToString 

'Write it out to the browser. 
Response.ClearHeaders() 
Response.ClearContent() 
Response.ContentType = "application/pdf" 
If pdfbytestream Is Nothing Then Response.AddHeader("content-length", 0) Else Response.AddHeader("content-length", pdfbytestream.Length.ToString()) 
Response.AddHeader("content-disposition", "inline; filename=" & myRandomID & ".pdf?" & Now.Millisecond) 
Response.BinaryWrite(pdfbytestream) 
相關問題