Teď jste offline a čekáte, až se znova připojí internet.

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ý).)

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

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 193998 - Poslední kontrola: 03/16/2005 20:29:29 - Revize: 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 KbMtcs
Váš názor
&t="> var varAutoFirePV = 1; var varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" &t=">tr-id="{{'language-'+language.locale}}" href="" ng-click="setLanguage(language);" class="ng-binding" id="language-es-es">España - Español
Paraguay - Español
Venezuela - Español
mp;t=">0&did=1&t=">d=1&t=">ipt type="text/JavaScript" async=""> var varAutoFirePV = 1; var varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write(" rotocol) + "//c.microsoft.com/ms.js'><\/script>"); >&t=">