Categorias

Convertendo arquivos JPEG para GIF com ASPJPeg em ASP

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