RE: [Asp.net] Downloads

[Michael W. Schneider]

So eine Sache hab ich noch:

Nach intensivem Studium der vorgeschlagenen Seite (ichhab den Teil f�r VB
benutzt) besteht da noch eine Ungereimtheit

>f�r die bin�ren Daten
>
>http://www.aspheute.com/artikel/20000929.htm

Mit diesem Code Fragmen in dem die Datei in einem Rutsch ausgelesen wird 

...
        DIM objFileStream AS New FileStream("G:\LocalSites\pic.exe",
FileMode.Open)
        DIM lFileSize AS LONG = objFileStream.Length

        Response.ClearContent()
        Response.AddHeader("Content-Disposition", "attachment; filename=" +
CStr(Application("Filename")))
        Response.ContentType = "application/octet-stream"

        Dim bBuffer(CInt(lFileSize)) As Byte
        objFileStream.Read(bBuffer, 0, CInt(lFileSize))
        objFileStream.Close()

        Response.BinaryWrite(bBuffer)
...

funktioniert die �bertragung einwandfrei.

Wenn ich aber den eigentlich bevorzugten Code benutze, der die Daten in
kleinen Bl�cken liest:
...
        Response.Buffer = True

        Dim StmRead As Stream = File.OpenRead("G:\LocalSites\pic.png")

        Dim nBufferSize As Integer = 255
        Dim nReadBytes As Integer = 0
        Dim nTotalBytes As Integer = 0

        Dim arrByte(nBufferSize) As Byte
        Response.ClearContent()
        Response.AddHeader("Content-Disposition", "attachment; filename=" +
CStr(Application("Filename")))
        Response.ContentType = "application/octet-stream"

        While (StmRead.Position < StmRead.Length)
            nReadBytes = StmRead.Read(arrByte, 0, nBufferSize - 1)
            nTotalBytes = nTotalBytes + nReadBytes

            If (nReadBytes = nBufferSize) Then
                Response.BinaryWrite(arrByte)
            Else
                Dim arrCopy(nReadBytes) As Byte
                Array.Copy(arrByte, 0, arrCopy, 0, nReadBytes)
                Response.BinaryWrite(arrCopy)
            End If
        End While

        'CleanUp
        StmRead.Close()
        Response.End()
...

Benutze ist miene �bertragene Datei sp�ter viel zu gro� und es sind immer
wieder einzelne Bytes zu viel �bertragen worden.

Was kann das sein?


Gru�

Michael W. Schneider
IT-Wizards GmbH
 

_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net