私はserver1フォルダのパス(d:\ files \ a.pdf)にpdfとdocファイルを持っています。 server2と表示され、ポップアップにsaveとopenオプションが表示されます。私はSERVER1で書かれたコードの下server1からserver2にPDFファイルをストリーミングしようとするとファイルが破損する
:
もしFile.Exists(D:\ファイル\ a.pdf)新のFileStream(isFullFilePath &ファイル名、FileMode.Open、FileAccess.Read、ファイル共有のように 薄暗いFS .Read) 「
fs = New FileStream(isFullFilePath & filename, FileMode.Open, FileAccess.Read, FileShare.Read)
' Catch ex As FileNotFoundException
'UploadDoc.PostedFile.SaveAs(UploadDoc.PostedFile.FileName)
' fs = New FileStream(UploadDoc.PostedFile.FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
'End Try
Dim byteArray(fs.Length) As Byte
fs.Read(byteArray, 0, fs.Length)
Response.ContentType = "application/pdf"
Response.BinaryWrite(byteArray)
Catch ex As Exception
Finally
fs.Close()
End Try
とserver2でお試しください をお試しください:
Dim objHttpWebRequest As HttpWebRequest
Dim objHttpWebResponse As HttpWebResponse
objHttpWebRequest = HttpWebRequest.Create(DownloadURL)
objHttpWebRequest.Method = WebRequestMethods.Http.Post
objHttpWebRequest.Timeout = 600000
objHttpWebRequest.MaximumResponseHeadersLength = 80000000
objHttpWebResponse = objHttpWebRequest.GetResponse()
If objHttpWebResponse.StatusCode = HttpStatusCode.OK Then
'Dim dataStream As Stream = objHttpWebResponse.GetResponseStream
Dim BArr(objHttpWebResponse.ContentLength - 1) As Byte
'Dim fs As StreamWriter
'Request.InputStream.Read(BArr, 0, objHttpWebResponse.ContentLength)
objHttpWebResponse.GetResponseStream.Read(BArr, 0, objHttpWebResponse.GetResponseStream.ReadByte)
Response.ContentType = "application/pdf"
Response.Charset = "UTF-8"
Response.AddHeader("Content-Disposition", "attachment;filename=" & strFileNameID(0))
Response.AddHeader("Content-Length", objHttpWebResponse.ContentLength)
Response.BinaryWrite(BArr)
しかし、エラーPDFが..... 8時間過ごした後、
損傷で事前 で
おかげRaghvendra