Порядок чтения и отображения двоичных данных в ASP

Переводы статьи Переводы статьи
Код статьи: 193998 - Vizualiza?i produsele pentru care se aplic? acest articol.
Развернуть все | Свернуть все

В этой статье

Аннотация

В этой статье показано, как чтение и отображение двоичных данных с помощью активного сервера Страницы.

Многие разработчики оценить использование Scripting.FileSystemObject Чтобы открыть файл в кодировке ASCII и отображения его содержимого в Microsoft Word или Microsoft Excel с помощью обозревателя Internet Explorer. В его текущем зарождения ASP не поддерживает напрямую любой сравниваемых объектов для чтения файлов, содержит двоичные данные, такие как лист Microsoft Excel с макросами, Adobe Файл Acrobat (.pdf), .gif изображения или другие файлы, содержащие двоичные данные. Однако разработчики ASP можно написать пользовательский бизнес-объект или компонент, который добавляет эту функцию.

Дополнительная информация

Часть I содержит код ASP, который получает и отображает двоичного файла Тип файла, используя соответствующий MIME и второй части показано, как создать Visual Basic 5.0 (или более поздней) ActiveX DLL компонента, в который расширяет возможности ASP для чтения двоичных данных.

Часть I: ASP пример, в котором открывается лист Excel, содержащий макросы

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

ПРИМЕЧАНИЕ: Для файлов Acrobat измените тип MIME с помощью Response.ContentType = «application/pdf». Для рисунка в формате .gif, используйте Response.ContentType = «image/gif».

Часть II: Visual Basic 5.0 ActiveX DLL (MyObject.BinRead)

Чтобы создать компонент, который выполняет чтение двоичного файла, выполните следующие шаги:
  1. Создайте новый проект библиотеки ActiveX DLL в Visual Basic 5.0 или более поздней версии.
  2. Переименуйте проект MyObject.
  3. Переименуйте модуль класса BinRead.
  4. Вырежьте и вставьте следующий код в раздел общих объявлений Класс модуля:
       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. Сохраните проект.
  6. В меню Файл выберите создать MyObject.dll.
Если веб-сервер находится на отдельной машине, из которой была создана компонент, необходимо скопировать компонент на веб-сервер и регистрация его с помощью RegSvr32.

Включить файл создан частично я в другой страницы ASP, содержащей текст или другие элементы форматирования, используется на сервере включать инструкцию.

Свойства

Код статьи: 193998 - Последний отзыв: 4 июня 2011 г. - Revision: 4.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Active Server Pages 4.0
Ключевые слова: 
kbcode kbfso kbhowto kbscript kbmt KB193998 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:193998

Отправить отзыв

 

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