Como ler e apresentar dados binários no ASP

Traduções de Artigos Traduções de Artigos
Artigo: 193998 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo mostra como ler e apresentar dados binários utilizando o Active Server Pages.

Muitos programadores apreciar a facilidade de utilização a Scripting.FileSystemObject para abrir um ficheiro ASCII e apresentar o respectivo conteúdo no Microsoft Word ou Microsoft Excel no Internet Explorer. No respectivo início actual, o ASP não fornece directamente os objectos semelhantes para ler ficheiros que contêm dados binários como uma folha de cálculo Excel com macros, um ficheiro do Adobe Acrobat (.pdf), uma imagem .gif ou quaisquer outros ficheiros que contêm dados binários. No entanto, um programador ASP pode escrever um objecto de empresa personalizado ou componente que adiciona esta funcionalidade.

Mais Informação

Escreva parte que fornece o código ASP que recebe e, em seguida, apresenta o ficheiro binário utilizando um MIME apropriado e parte II mostra como criar o Visual Basic 5.0 (ou posterior) ActiveX componente da DLL que expande a capacidade do ASP para ler os dados binários.

Parte I: amostras ASP que abre uma folha de cálculo Excel com 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 : para o Acrobat ficheiros, alterar o tipo de MIME utilizando Response.ContentType = "aplicação/pdf". Para obter uma imagem .gif, utilizar Response.ContentType = "imagem/gif".

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

Para criar o componente que executa o ficheiro binário ler, execute os seguintes passos:
  1. Crie um novo projecto de DLL de ActiveX no Visual Basic 5.0 ou posterior.
  2. Mudar o nome do projecto MyObject.
  3. Mude o nome do módulo de classe BinRead.
  4. Corte e cole o seguinte código na secção General Declarations 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. Guarde o projecto.
  6. No menu Ficheiro clique em criar MyObject.dll.
Se o servidor Web estiver num computador separado a partir de onde criou o componente, terá de copiar o componente para o servidor Web e registar com RegSvr32.

Para incorporar o ficheiro criado na parte para outra página ASP que contém texto ou outra formatação, utilize um servidor de lado incluir instrução.

Propriedades

Artigo: 193998 - Última revisão: 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes 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