Click here to Skip to main content
Click here to Skip to main content

File downloading with COM and ASP

, , 5 Sep 2000
Rate this:
Please Sign up or sign in to vote.
A COM object you can use to transfer files in ASP
<!-- Download Links -->
  • VC Component source - 43 Kb
  • VB Component source - 6 Kb
  • Example ASP script - 1 Kb
  • Introduction

    This article is about direct file downloading through a COM component. It uses the IResponse interface to send a file directly to the client browser.

    With this approach you can protect your files from being downloaded by an unauthorized person.

    To send the file to the client you need to register this kind of file within the IIS MIME types. To do it go to the ISS administration and under the HTTP Header add this kind of file. In the sample a zip file is used, so the MIME type is:

    Extension=.zip
    ContentType=application/x-zip-compressed
    

    To send a file to the browser you must set the Response.Buffer to TRUE and the ContentType to the file type. After this you send the data using the Response object through the BinaryWrite method.

    To accomplish this task a component was developed: FileTransfer. The interface used is called IBinaryRead. These are its methods:

    Method Description
    ReadBinFile(filename) This method returns the content of the file as an VARIANT (SAFEARRAY)
    ResponseBinaryWrite(filename, responseObject) This method reads the file and send it using the Response object. It returns the operation result

    If you want to download a custom file type, you must register it in the client machine too.

    An example of using the FileTransfer object follows:

    <% 
    	Option Explicit
    
    	Dim objBinaryRead 
    	Dim saBinFile		'if you don't want error safe
    	Dim bDownloadStatus
    	
    	Set objBinaryRead = CreateObject("FileTransfer.BinaryRead")
    		 
    	Response.Buffer      = true
    	Response.ContentType = "application/x-zip-compressed"
    
    	'transfer the file to the client		
    	bDownloadStatus = objBinaryRead.ResponseBinaryWrite("c:\temp\test.zip", Response)
    	
    	'this is not an error safe code
    	'if the file doesn't exist the ASP will have an error
    	'saBinFile = objBinaryRead.ReadBinFile("c:\temp\test.zip")     
    	'Response.BinaryWrite saBinFile
    	'Set saBinFile     = nothing
    	
    	Set objBinaryRead = nothing
    %>
    

    License

    This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

    A list of licenses authors might use can be found here

    Share

    About the Authors

    xicoloko
    Architect VisionOne AG
    Switzerland Switzerland
    XicoLoko is a brazilian developer based in Switzerland.

    Curt Robinson

    United States United States
    No Biography provided

    Comments and Discussions

     
    GeneralMy vote of 1 Pinmemberkraftspl11-Jan-09 12:19 
    GeneralIE 6 can't download a zip file PinmemberPiyushVarma18-Nov-08 9:49 
    Questiondownloading music file using ASP Pinmembersnigdhajayan25-Jun-08 21:35 
    Generaldownloading music file using ASP Pinmembersnigdhajayan25-Jun-08 21:33 
    Generaldown loading Pinmembermnalammwb14-Mar-08 5:23 
    Generalerror - cannot create activexcontrol PinmemberPriya B21-Oct-07 21:11 
    GeneralI can't download PinmemberChanda_khanapure1-Feb-06 0:56 
    Generalmultiple downloads Pinmembermoorprab7-Oct-05 20:57 
    Questionhow to view word files Pinmembermitesh22228-Sep-05 20:48 
    Generaldisplay vc++ output string on a browser using asp Pinmemberrockyn3192-May-05 22:58 
    Questionhow 2 get download pop up window? Pinmembersmrits6-Apr-05 21:15 
    GeneralMIME setting in IIS 5.0 Pinmembernia_put7-Sep-04 10:02 
    GeneralDownload image field from SQL-Server PinmemberZoink15-Jul-04 1:34 
    GeneralHelp me please~~ Pinmembercharcoalc5-May-04 1:54 
    GeneralError: Response object, ASP 0106 (0x80020005) Pinmemberravda21-Aug-03 10:23 
    Hello everybody,
     
    I'm Roland and new to this community.
    I tried out the FileTransfer component and everything works fine with VBScript. However, I prefer to program in JavaScript as this is closer to "C" which we use for our application.
     
    The file to be transferred is an executable.
     
    With the Javascript I get the following error:
    Error Type:
    Response object, ASP 0106 (0x80020005)
    An unhandled data type was encountered.
    Error line: Response.BinaryWrite(saBinFile) ;
     
    Anybody who can help me?
    Both scripts below.
     
    Many thanks in advance,
    Roland Confused | :confused:
     
    VBSCRIPT
    <%
    Option Explicit
    Dim objBinaryRead
    Dim saBinFile
    Dim bDownloadStatus
    Dim FilePath
     
    FilePath = "c:\Inetpub\wwwroot\MyWeb\MyFile.exe"
     
    Set objBinaryRead = CreateObject("FileTransfer.BinaryRead")

    Response.Buffer = true
    Response.ContentType = "application/x-msdownload"
    Response.AddHeader "content-disposition", "filename=MyFile.exe"
     
    saBinFile = objBinaryRead.ReadBinFile(FilePath)
    Response.BinaryWrite saBinFile
     
    Set saBinFile = nothing
    Set objBinaryRead = nothing
    %>
     
    JAVASCRIPT
    <%@ LANGUAGE = JavaScript %>
    <%
    Response.Buffer = "True" ;
    Response.ContentType = "application/x-msdownload" ;
     
    var objBinaryRead = Server.CreateObject("FileTransfer.BinaryRead") ;
    var FilePath = "c:\Inetpub\wwwroot\MyWeb\MyFile.exe" ;
     
    Response.AddHeader("content-disposition", "filename=MyFile.exe") ;
     
    var saBinFile = objBinaryRead.ReadBinFile(FilePath) ;
    Response.BinaryWrite(saBinFile) ;

    saBinFile = null ;
    objBinaryRead = null ;
    Response.End ;
    %>

    GeneralFile transfer object Pinmemberpjaka2-Apr-03 0:41 
    QuestionI failed to download zip file? PinmemberBinary Programmer1-Mar-03 1:17 
    AnswerRe: I failed to download zip file? PinmemberBinary Programmer13-May-03 0:15 
    AnswerRe: I failed to download zip file? Pinmembermadprincehatter3-Sep-03 10:17 
    GeneralI think I have the solution Pinmemberstewe28-Feb-03 2:36 
    GeneralRe: I think I have the solution Pinmemberdmanoharan20-May-03 23:26 
    QuestionDownloaded test.zip become empty? PinmemberBinary Programmer21-Feb-03 4:25 
    AnswerRe: Downloaded test.zip become empty? Pinmemberstewe28-Feb-03 2:10 
    GeneralRe: Downloaded test.zip become empty? PinmemberBinary Programmer28-Feb-03 23:17 
    GeneralAccess to Excel problem PinsussAnonymous5-Dec-02 1:44 

    General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

    Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

    | Advertise | Privacy | Terms of Use | Mobile
    Web01 | 2.8.141223.1 | Last Updated 6 Sep 2000
    Article Copyright 2000 by xicoloko, Curt Robinson
    Everything else Copyright © CodeProject, 1999-2014
    Layout: fixed | fluid