質問

Chromeでこの奇妙な振る舞いで頭を壁に叩きつけました

暗号化されていない名前のない状態でディスクにファイルを保存しています。ユーザーがファイルをダウンロードすると、クライアントはダウンロードハンドラー(.ashx)にリダイレクトされ、データがストリームに読み込まれ、解読されてクライアントに送信されます。現在、これは最近まで正常に機能していました。

ファイルが.gzファイルとしてダウンロードされ、読み取り不能であるchromeを除くすべてのブラウザーで正常に動作しますか?

簡潔にするために、ストリームフェッチと暗号化の部分を削除しました(これはIE、Firefoxなどで完全に機能することを覚えておいてください)

    Private Function StreamFile(ByVal context As System.Web.HttpContext) As Boolean

    context.Response.Clear()
    context.Response.ClearHeaders()
    context.Response.BufferOutput = False
    context.Response.ContentType = "application/octet-stream"
    context.Response.AddHeader("content-disposition", "attachment;filename=""" & _sFileName & """")
    context.Response.AddHeader("content-length", _iSize)
    context.Response.Cache.SetNoServerCaching()
    context.Response.Cache.SetMaxAge(System.TimeSpan.Zero)

    Dim oInputStream As System.IO.Stream = GetStream()
    Dim oBufferedStream As New BufferedStream(oFileStream, context.Response.OutputStream)
    oBufferedStream.ProcessStreams(True)

    context.ApplicationInstance.CompleteRequest()

    Return True

End Function

Public Class BufferedStream
    Private _oInputStream As Stream
    Private _oOutputStream As Stream
    Private _bBuffer() As Byte
    Public Const DEFAULT_BUFFER_SIZE As Integer = 8192

    Public Sub New(ByRef oInputStream As Stream, ByRef oOutputStream As Stream)
        _oInputStream = oInputStream
        _oOutputStream = oOutputStream
        _bBuffer = GetStreamBuffer(ToInteger(_oInputStream.Length))
    End Sub

    Public Function ProcessStreams(ByVal bCloseStreams As Boolean) As Boolean

        Dim iRead As Integer = 0
        Dim iStreamLength As Integer = ToInteger(_oInputStream.Length)

        Try
            iRead = _oInputStream.Read(_bBuffer, 0, _bBuffer.Length)
            While iRead > 0
                _oOutputStream.Write(_bBuffer, 0, _bBuffer.Length)
                iRead = _oInputStream.Read(_bBuffer, 0, _bBuffer.Length)
                If iRead < _bBuffer.Length Then System.Array.Resize(_bBuffer, iRead)
            End While

            If bCloseStreams Then
                Close()
            End If
            Return True

        Catch
            Return False
        End Try
    End Function

    Public Shared Function GetStreamBuffer(ByVal iStreamSize As Integer) As Byte()
        Dim iBufferSize As Integer = iStreamSize - 1
        If iBufferSize > DEFAULT_BUFFER_SIZE Then iBufferSize = DEFAULT_BUFFER_SIZE
        Dim bBuffer As Byte() = New Byte(iBufferSize) {}
        Return bBuffer
    End Function

End Class

ご協力いただければ幸いです。

これは、ファイルがchromeでダウンロードされたときのフィドラーからのHTTPヘッダーです

HTTP/1.1 200 OK
Date: Fri, 30 Oct 2009 00:01:45 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
X-AspNet-Version: 2.0.50727
content-disposition: attachment;filename="codeKiwi.txt"
Content-Length: 349
Cache-Control: private, max-age=0
Content-Type: application/octet-stream

ファイル名はcodekiwi.txtであり、内容はいくつかの単純なプレーンテキストであり、ファイルはcodekiwi.txt.gzとして保存され、gibberishが含まれていることに注意してください。

役に立ちましたか?

解決

わかりました、自分で解決しました。 Chrome(およびFirefox)は本当に応答を好まないことが判明しました。ClearHeaders呼び出しは、何らかの理由でIEがこれで問題ないことを確認しました。

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top