Cómo leer y mostrar datos binarios en ASP

Seleccione idioma Seleccione idioma
Id. de artículo: 193998 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo muestra cómo leer y mostrar datos binarios mediante páginas Active Server.

Muchos desarrolladores apreciarán la facilidad de uso Scripting.FileSystemObject para abrir un archivo ASCII y, a continuación, mostrar su contenido en Microsoft Word o Microsoft Excel desde dentro de Internet Explorer. En su creación actual, ASP no proporciona directamente los objetos comparables para leer los archivos que contienen datos binarios, como una hoja de cálculo de Excel con macros, un archivo de Adobe Acrobat (.pdf), una imagen .gif o cualquier otro archivo que contiene datos binarios. Sin embargo, un programador ASP puede escribir un objeto comercial personalizado o un componente que agrega esta funcionalidad.

Más información

Escriba parte proporciona el código ASP que recibe y, a continuación, muestra el archivo binario utilizando un MIME apropiado y, parte II muestra cómo crear el componente de DLL ActiveX de 5.0 (o posterior) de Visual Basic que extiende la capacidad de ASP para leer datos binarios.

Parte I: ejemplo ASP que abre una hoja de Excel que contiene macros

   <%
   Response.buffer = TRUE
   Response.ContentType = "application/x-msexcel"

   Dim vntStream

   Set oMyObject = Server.CreateObject("MyObject.BinRead")
   vntStream = oMyObject.readBinFile("c:\temp\tempxls.xls")

   Response.BinaryWrite(vntStream)

   Set oMyObject = Nothing

   Response.End
   %>
				

Nota : archivos de Acrobat para cambiar el tipo MIME mediante Response.ContentType = "aplicación/pdf". Para obtener una imagen .gif, utilice Response.ContentType = "image/gif".

Parte II: La DLL de Visual Basic 5.0 ActiveX (MyObject.BinRead)

Para crear el componente que realiza el binario de lectura, siga los pasos siguientes:
  1. Cree un nuevo proyecto de DLL ActiveX en Visual Basic 5.0 o posterior.
  2. Cambie el nombre del proyecto MyObject.
  3. Cambiar el nombre del módulo de clase BinRead.
  4. Corte y pegue el código siguiente en la sección General Declarations del módulo de clase:
       Function readBinFile(ByVal bfilename As String) As Variant
              Dim fl As Long
              Dim FileNum As Long
              Dim binbyte() As Byte
              Dim binfilestr As String
    
              On Error GoTo errHandler
              
              FileNum = FreeFile
              Open bfilename For Binary Access Read As #FileNum
    
              fl = FileLen(bfilename)
              ReDim binbyte(fl)
    
              Get #FileNum, , binbyte
    
              Close #FileNum
    
              readBinFile = binbyte
              Exit Function
    
          errHandler:
              Exit Function
          End Function
    						
  5. Guarde el proyecto.
  6. En el menú Archivo haga clic en crear MyObject.dll.
Si su servidor Web está en un equipo independiente desde donde creó el componente, deberá copiar el componente en el servidor Web y regístrelo utilizando RegSvr32.

Para incorporar el archivo creado en la parte en otra página ASP que tiene texto u otro formato, utilice un servidor de inclusión del instrucción.

Propiedades

Id. de artículo: 193998 - Última revisión: miércoles, 16 de marzo de 2005 - Versión: 2.5
La información de este artículo se refiere a:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Active Server Pages 4.0
Palabras clave: 
kbmt kbcode kbfso kbhowto kbscript KB193998 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 193998

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com