Como ler e exibir dados binários em ASP

Traduções deste artigo Traduções deste artigo
ID do artigo: 193998 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo mostra como ler e exibir dados binários usando Active Server Pages.

Muitos desenvolvedores apreciam a facilidade de uso Scripting.FileSystemObject para abrir um arquivo ASCII e exibir seu conteúdo no Microsoft Word ou Microsoft Excel dentro do Internet Explorer. No seu início atual, o ASP não fornece diretamente quaisquer objetos comparáveis para ler arquivos que contêm dados binários como uma planilha do Excel com macros, um arquivo do Adobe Acrobat (.pdf), uma imagem .gif ou quaisquer outros arquivos que contenham dados binários. No entanto, um desenvolvedor de ASP pode escrever um objeto corporativo personalizado ou componente que adiciona essa funcionalidade.

Mais Informações

Digite parte que fornece o código ASP que recebe e, em seguida, exibe o arquivo binário usando um MIME apropriado e parte II mostra como criar o Visual Basic 5.0 (ou posterior) ActiveX componente da DLL que estende a capacidade de ler dados binários do ASP.

Parte I: ASP exemplo que abre uma planilha do Excel que contém 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
   %>
				

Observação : para Acrobat arquivos, alterar o tipo de MIME usando Response.ContentType = "aplicativo/pdf". Para obter uma imagem .gif, use Response.ContentType = "imagem/gif".

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

Para criar o componente que executa o binário ler, execute as seguintes etapas:
  1. Crie um novo projeto ActiveX DLL Visual Basic 5.0 ou posterior.
  2. Renomeie o projeto MyObject.
  3. Renomeie o módulo de classe BinRead.
  4. Corte e cole o código a seguir na seção Declaração geral do módulo de classe:
       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. Salve o projeto.
  6. No menu Arquivo clique em criar MyObject.dll.
Se seu servidor Web estiver em uma máquina diferente de onde você criou o componente, você precisará copiar o componente no servidor Web e registrá-lo usando RegSvr32.

Para incorporar o arquivo criado na parte em outra página ASP que possui texto ou outra formatação, usar um servidor lado incluir instrução.

Propriedades

ID do artigo: 193998 - Última revisão: quarta-feira, 16 de março de 2005 - Revisão: 2.5
A informação contida neste artigo aplica-se 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
Palavras-chave: 
kbmt kbcode kbfso kbhowto kbscript KB193998 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 193998

Submeter comentários

 

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