Stream binær data fra database (ADO)
Jeg har svært ved at få ADODB objectet til at læse mine BLOB data fra MySQL database::::: kode :::::
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 'binary
objStream.Open fromDB("data").Value <-- ! Læsning !
lSize = objStream.size
Response.AddHeader "Content-Disposition", "inline; filename=""" & Replace(Request.querystring("name"),"""","\\""") & """"
Response.AddHeader "Content-Length", lSize
chunksize = 8192
NumberofBlocks = int(lSize / chunksize)
For lBlocks = 1 To NumberofBlocks
If Response.IsClientConnected = False Then Exit For
Response.BinaryWrite objStream.Read(chunksize)
Response.Flush
Next
if NumberofBlocks*chunksize < lSize then
Response.BinaryWrite objStream.Read(lSize - (NumberofBlocks*chunksize))
Response.Flush
end if
:::: /kode :::::
Jeg kan (såfremt data er få bytes) bruge Response.BinaryWrite... men da vi snakker om 10-15 MB er der brug for en buffered metode til at streame data til brugeren...
nogen ide om hvad jeg kan gøre ?
