Comment faire pour lire et afficher des données binaires dans ASP

Traductions disponibles Traductions disponibles
Numéro d'article: 193998 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Cet article explique comment lire et afficher des données binaires à l'aide d'Active Server Pages.

De nombreux développeurs apprécient la facilité d'utilisation de Scripting.FileSystemObject pour ouvrir un fichier ASCII, puis afficher son contenu dans Microsoft Word ou Microsoft Excel à partir d'Internet Explorer. Dans sa création en cours, ASP ne fournit pas directement les objets comparables pour lire les fichiers contenant des données binaires comme une feuille de calcul Excel avec macros, un fichier Adobe Acrobat (.pdf), une image .gif ou les autres fichiers contenant des données binaires. Cependant, un développeur ASP peut écrire un objet métier personnalisé ou un composant ajoute cette fonctionnalité.

Plus d'informations

Partie I fournit le code ASP qui reçoit et affiche ensuite le fichier binaire à l'aide d'un MIME approprié tapez et partie II montre comment créer le composant Visual Basic 5.0 (ou version ultérieur) ActiveX DLL qui étend les fonctionnalités d'ASP pour lire les données binaires.

Partie I: exemple de code ASP qui ouvre une feuille de calcul Excel contenant des 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
   %>
				

Remarque : fichiers For Acrobat, modifiez le type MIME à l'aide de Response.ContentType = "application/pdf". Pour obtenir une image .gif, utilisez Response.ContentType = "image/gif".

Partie II : The Visual Basic 5.0 DLL ActiveX (MyObject.BinRead)

Pour créer le composant qui exécute le binaire de lecture, effectuez les opérations suivantes :
  1. Créez un projet ActiveX DLL dans Visual Basic 5.0 ou version ultérieure.
  2. Renommez le projet MyObject.
  3. Renommer le module de classe BinRead.
  4. Coupez et collez le code suivant dans la section déclarations générales du module 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. Enregistrez le projet.
  6. Dans le menu Fichier cliquez sur Make MyObject.dll.
Si votre serveur Web se trouve sur un ordinateur distinct dans lequel vous avez créé le composant, vous devez copier le composant sur le serveur Web et l'inscrire à l'aide de RegSvr32.

Pour incorporer le fichier créé dans la partie I, dans une autre page ASP dont texte ou toute autre mise en forme, utilisez un serveur côté instruction include.

Propriétés

Numéro d'article: 193998 - Dernière mise à jour: mercredi 16 mars 2005 - Version: 2.5
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual Basic 5.0 Édition professionnelle
  • Microsoft Visual Basic 6.0 Édition professionnelle
  • Microsoft Visual Basic 5.0 Édition Entreprise
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Active Server Pages 4.0
Mots-clés : 
kbmt kbcode kbfso kbhowto kbscript KB193998 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 193998
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

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