Você está offline; aguardando reconexão

Como ler e exibir dados binários em ASP

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
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: 03/16/2005 20:29:29 - Revisão: 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 KbMtpt
Comentários
t.com/ms.js">