ASPCanvas2

ASPCanvas2

ASPCanvas est un moyen de générer des images GIF sur un serveur basé sur IIS/ASP sans installer d'objets COM côté serveur ni manipuler Java côté client. Il s'agit d'une classe purement VBScript qui génère des images GIF de n'importe quelle taille sur le serveur et les transmet au client du navigateur Web.

Utilisation rapide

Dessiner un cercle.

<% Dim objCanvas Set objCanvas = New Canvas objCanvas.GlobalColourTable(0) = RGB(255,255,255) objCanvas.GlobalColourTable(1) = RGB(0,0,0) objCanvas.BackgroundColourIndex = 0 objCanvas.ForegroundColourIndex = 1 objCanvas.Resize 320,240,False objCanvas.Circle 160,120,110 objCanvas.Write %>">

 

<%
Dim objCanvas
Set objCanvas = New Canvas
objCanvas.GlobalColourTable(0) = RGB(255,255,255)
objCanvas.GlobalColourTable(1) = RGB(0,0,0)
objCanvas.BackgroundColourIndex = 0
objCanvas.ForegroundColourIndex = 1
objCanvas.Resize 320,240,False
objCanvas.Circle 160,120,110
objCanvas.Write
%>

Exigences

Les exigences ont très légèrement changé entre la version 1.0.x et cette version du script, alors soyez très prudent avant d'écraser votre version précédente.

• IIS 5.0 ou version ultérieure
• VBScript 5.6 ou supérieur
• MDAC 2.6 ou supérieur

Tout cela est important car les composants internes d'ASPCanvas ont changé pour utiliser les flux ADO.

Notez que cette classe ne fonctionnera PAS avec le package ASP de ChiliSoft.

Pourquoi est-ce ici ? Y a-t-il des nouveautés brillantes ?

Non, rien de nouveau. C'est ici parce que je reçois au moins 1 demande par semaine à ce sujet. La dernière fois que j'ai ajouté quoi que ce soit à cette classe, c'était en 2002, lorsque les développeurs ASP classiques ont commencé à effectuer leur transition vers ASP.NET. Je pensais que cela mourrait d'usage, mais il s'avère que les infrastructures informatiques de certaines institutions entrent dans la catégorie "Ce n'est pas cassé, alors ne le réparez pas". Ce script ne contient pas de véritable algorithme de compression LZW, il augmente simplement la table de codes, pour deux raisons :

1. C'est VBScript. En 2002, c'était lent. Générer un GIF compressé approprié, quelle que soit sa proportion, dépassait les capacités d'un serveur à l'époque.
2. Unisys a détenu le brevet LZW aux États-Unis jusqu'en 2003. Dans le monde entier, il a expiré en 2004. Ma demande de paiement de redevances Unisys encadrée reste sur mon mur.

Ces deux points appartiennent au passé. Amusez-vous!