ASPCanvas2

ASPCanvas2

ASPCanvas é um meio de gerar imagens GIF em um servidor baseado em IIS/ASP sem instalar objetos COM do lado do servidor ou mexer com Java do lado do cliente. É uma classe puramente VBScript que gera imagens GIF de qualquer tamanho no servidor e as transmite para o cliente do navegador web.

Uso rápido

Desenhando um círculo.

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

Requisitos

Os requisitos mudaram ligeiramente da versão 1.0.x para esta versão do script, portanto, preste muita atenção antes de substituir a versão anterior.

• IIS 5.0 ou superior
• VBScript 5.6 ou superior
• MDAC 2.6 ou superior

Tudo isso é importante porque o interior do ASPCanvas mudou para utilizar ADO Streams

Observe que esta classe NÃO funcionará com o pacote ASP da ChiliSoft.

Por que isso está aqui? Existem coisas novas e brilhantes?

Não, nada de novo. Isto está aqui porque recebo pelo menos 1 solicitação por semana sobre isso. A última vez que adicionei algo a essa classe foi em 2002, quando os desenvolvedores do ASP clássico começaram a fazer a transição para o ASP.NET. Achei que isso iria desaparecer com o uso, mas acontece que algumas infraestruturas de TI de instituições se enquadram na categoria “Não está quebrado, então não conserte”. Este script não contém um algoritmo de compactação LZW real, ele apenas aumenta a tabela de códigos, por dois motivos:

1. É VBScript. Em 2002 foi lento. Gerar um GIF compactado adequado de qualquer proporção estava além das capacidades de um servidor na época
2. A Unisys deteve a patente LZW até 2003 nos EUA. Em todo o mundo, expirou em 2004. Minha solicitação de pagamento de royalties da Unisys permanece na minha parede.

Ambos os pontos são coisas do passado. Divirta-se!