sending HUGE file to client via Response.Binary Write

[Zam]

Hello World,

Under Windows 2003 Server. IIS6.

The following code working fine for small files, and for files with size
about few megabytes.

If I am trying to send HUGE file -- about 700 Megabyte -- w3wp.exe eat all
memory (I have 1024 megabytes) and all CPU time without positive result.

Question: how could i _clever_ and fast send very huge file to client, with
keeping "file location privacy" ?

<%
Response.Buffer = False
Server.ScriptTi meout = 30000

Response.Conten tType = "applicatio n/x-unknown"
fn = "movie1.avi "
FPath = "g:\movies\ " & fn
Response.AddHea der "Content-Disposition", "attachment ; filename=" & fn

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(FPath)

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End
%>

With best regards,

[Mark Schupp]

Not familiar with streams so this is mostly a guess but you might try making
sure that the stream's "mode" is set to adModeRead (=1).

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Zam" <za*@parks.lv > wrote in message
news:eK******** ******@TK2MSFTN GP15.phx.gbl...

Hello World,

Under Windows 2003 Server. IIS6.

The following code working fine for small files, and for files with size
about few megabytes.

If I am trying to send HUGE file -- about 700 Megabyte -- w3wp.exe eat all
memory (I have 1024 megabytes) and all CPU time without positive result.

Question: how could i _clever_ and fast send very huge file to client, with keeping "file location privacy" ?

<%
Response.Buffer = False
Server.ScriptTi meout = 30000

Response.Conten tType = "applicatio n/x-unknown"
fn = "movie1.avi "
FPath = "g:\movies\ " & fn
Response.AddHea der "Content-Disposition", "attachment ; filename=" & fn

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(FPath)

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End
%>

With best regards,

[Zam]

Hello Mark,

Unfortunatly, the same negative result (eat all RAM and CPU time):

Error number: -2147024882
Error description: Not enough storage is available to complete this
operation.

Error line: adoStream.LoadF romFile(FPath)

With best regards,

"Mark Schupp" <no****@nospam. com> wrote in message
news:Or******** ******@TK2MSFTN GP09.phx.gbl...

Not familiar with streams so this is mostly a guess but you might try making sure that the stream's "mode" is set to adModeRead (=1).

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com
"Zam" <za*@parks.lv > wrote in message
news:eK******** ******@TK2MSFTN GP15.phx.gbl...

Hello World,

Under Windows 2003 Server. IIS6.

The following code working fine for small files, and for files with size
about few megabytes.

If I am trying to send HUGE file -- about 700 Megabyte -- w3wp.exe eat all memory (I have 1024 megabytes) and all CPU time without positive result.

Question: how could i _clever_ and fast send very huge file to client,

with

keeping "file location privacy" ?

<%
Response.Buffer = False
Server.ScriptTi meout = 30000

Response.Conten tType = "applicatio n/x-unknown"
fn = "movie1.avi "
FPath = "g:\movies\ " & fn
Response.AddHea der "Content-Disposition", "attachment ; filename=" & fn
Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(FPath)

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End
%>

With best regards,