Cómo leer y mostrar datos binarios en ASP

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
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.

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 193998 - Última revisión: 03/16/2005 20:29:29 - Revisión: 2.5

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

  • kbmt kbcode kbfso kbhowto kbscript KB193998 KbMtes
Comentarios