A partir da versão 2.0, o componente ASPJpeg da Persits possui suporte a manipulação de GIF’s.
É possível criar animações e utilizar transparência on the fly.
A código a seguir tem somente a função de abrir um arquivo JPEG e convertê-lo para GIF sem nenhuma manipulação.
Os parâmetros da função são:
– PathJpeg: Caminho relativo do arquivo JPG a ser convertido
– PathGif: Caminho relativo aonde o GIF será salvo
<% '----------------------------------------------------- 'Função: ConverteJPGparaGIF(ByVal PathJpeg, ByVal PathGif) 'Converte um arquivo JPG para GIF utilizando o ASPJPEG 'Parametro: ' PathJpeg: Caminho relativo do arquivo JPG a ser convertido ' PathGif: Caminho relativo aonde o GIF será salvo 'Retorno: String ' "OK" Caso a conversão ocorra sem erros '----------------------------------------------------- Function ConverteJPGparaGIF(ByVal PathJpeg, ByVal PathGif) 'Declarações e Inicializações Dim objJPEG, objGIF Set objJPEG = Server.CreateObject("Persits.Jpeg") Set objGIF = objJPEG.Gif 'Abrindo o arquivo JPEG objJPEG.Open Server.MapPath(PathJpeg) objJPEG.PreserveAspectRatio = True 'Gerando o GIF objGIF.AddImage objJPEG, 0, 0 'Salvando o GIF objGIF.Save Server.MapPath(PathGif) 'Destruição dos objetos Set objGIF = Nothing Set objJPEG = Nothing End Function %>