Postup čtení a zobrazení binárních dat v souboru ASP (Tento článek může obsahovat odkazy na anglický obsah (dosud nepřeložený).)

Překlady článku Překlady článku
ID článku: 193998 - Produkty, které se vztahují k tomuto článku.
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Tento článek ukazuje, jak číst a zobrazit binární data pomocí Active Server Pages.

Mnoho vývojáři oceňovat snadnosti používání Scripting.FileSystemObject otevřete soubor ASCII a zobrazte její obsah v aplikaci Microsoft Word nebo Microsoft Excel z Internet Explorer. V jeho aktuální inception ASP přímo neposkytuje žádné srovnatelné objekty číst soubory obsahující binární data jako například list aplikace Excel s makra, soubor aplikací Adobe Acrobat (PDF), obrázku GIF nebo soubory, které obsahují binární data. Vývojář ASP lze však zapsat vlastní obchodní objekt nebo součást, která přidá tuto funkci.

Další informace

Zadejte část poskytuje kód ASP, které přijme a zobrazí binární soubor pomocí příslušných MIME a část II ukazuje, jak vytvořit jazyka 5.0 (nebo vyšší) ActiveX DLL komponenty, které rozšiřuje schopnost ASP číst binární data.

Součást I: ukázka ASP se otevře dokument Excel obsahující makra

   <%
   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: soubory pro Acrobat změnit typ MIME pomocí Response.ContentType = "aplikace/pdf". Obrázek GIF použít Response.ContentType = "obrázek/gif".

Část II: The jazyka 5.0 ActiveX DLL (MyObject.BinRead)

Vytvořit součást provádí binární číst, proveďte následující kroky:
  1. Vytvoření nového projektu ActiveX DLL Visual Basic 5.0 nebo novější.
  2. Přejmenovat MyObject projektu.
  3. Přejmenovat modul třídy BinRead.
  4. Vyjmout a vložit do obecné deklarační sekci modulu třídy následující kód:
       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žte projekt.
  6. V nabídce Soubor klepněte na tlačítko Vytvořit MyObject.dll.
Pokud webový server je v počítači samostatné odkud vytvořena součásti, je třeba zkopírovat součást na webový server a zaregistrujte jej použitím RegSvr32.

K začlenění souboru vytvořené částečně I do jiné stránky ASP, který má text nebo jiné formátování do použít server začlenění na straně výkazu.

Vlastnosti

ID článku: 193998 - Poslední aktualizace: 16. března 2005 - Revize: 2.5
Informace v tomto článku jsou určeny pro produkt:
  • 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
Klíčová slova: 
kbmt kbcode kbfso kbhowto kbscript KB193998 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:193998

Dejte nám zpětnou vazbu

 

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