Ako čítať a zobrazovanie binárnych údajov v ASP

Preklady článku Preklady článku
ID článku: 193998 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

Na tejto stránke

SUHRN

Tento článok popisuje spôsob prečíta a zobrazí binárne údaje pomocou Active Server Stránky.

Veľa vývojárov ocení jednoduchosť pomocou Scripting.FileSystemObject otvoriť súbor vo formáte ASCII a potom zobraziť jeho obsah v programe Microsoft Word alebo Program Microsoft Excel v aplikácii Internet Explorer. V jeho súčasnej počiatku ASP priamo neposkytuje žiadne porovnateľné objekty čítať súbory, ktoré obsahuje binárne údaje, ako napríklad pracovný hárok programu Excel s makrami, Adobe Aplikácia Acrobat (.pdf) súboru, obrázka typu .gif alebo iné súbory, ktoré obsahujú binárne údaje. Avšak ASP vývojár môže písať vlastné podnikanie objekt alebo súčasť, ktorá pridáva tejto funkcie.

DALSIE INFORMACIE

Časť I stanovuje ASP kód, ktorý dostane a potom zobrazí binárne typ súboru pomocou vhodných MIME, a časť II ukazuje ako vytvoriť Visual Basic 5.0 (alebo novší) ActiveX DLL súčasť, ktorá rozširuje schopnosť ASP čítať binárne údaje.

Časť I: ASP vzorky, ktorý sa otvorí pracovný hárok programu Excel obsahujúci makrá

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

POZNÁMKA: Pre súbory aplikácie Acrobat zmeniť typ MIME pomocou Response.ContentType = "žiadosť/pdf". Pre obrázka typu .gif, použite Response.ContentType = "image/gif".

Časť II: Visual Basic 5.0 ActiveX DLL (MyObject.BinRead)

Vytvoriť zložku, ktorá vykonáva binárne prečítať, vykonajte nasledujúce kroky:
  1. Vytvoriť nový projekt ActiveX DLL v jazyku Visual Basic 5.0 alebo novšej.
  2. Premenovať projekt MyObject.
  3. Premenovať modul triedy BinRead.
  4. Vystrihnite a prilepte nasledujúci kód do sekcie Všeobecné vyhlásenia Modul triedy:
       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. Uložiť projekt.
  6. V ponuke Súbor kliknite na položku urobiť MyObject.dll.
Ak váš Web server je na samostatný stroj z ktorých ste vytvorili komponent, musíte skopírovať komponentu do Web server a zaregistrovať ho pomocou programu RegSvr32.

Začleniť súbor vytvorený v časti I do inej stránke ASP, ktorý má text alebo iné formátovanie, použitie server strane obsahovať vyhlásenie.

Vlastnosti

ID článku: 193998 - Posledná kontrola: 19. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • 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
Kľúčové slová: 
kbcode kbfso kbhowto kbscript kbmt KB193998 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:193998

Odošlite odozvu

 

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