ASP Jpeg

Criando miniaturas de imagem com o ASP Jpeg

O AspJpeg é um componente que permite a manipulação de imagens GIF, JPEG e PNG. Edição do tamanho das imagens, criar thumbnails de alta qualidade e adicionar texto a uma imagem.

Criar Thumbnail de uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Localização da imagem original img_Original = Server.MapPath("imagem.jpg") ' Abre a imagem original AspJpeg.Open img_Original ' Reduz a imagem em 50% AspJpeg.Width  = AspJpeg.OriginalWidth / 2 AspJpeg.Height = AspJpeg.OriginalHeight / 2 ' Salva a imagem reduzida AspJpeg.Save Server.MapPath("imagem_thumbnail.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write "<img src=""imagem_thumbnail.jpg"" />" %>

Adicionar texto a uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Abre a imagem original AspJpeg.Open Server.MapPath("imagem.jpg") ' Escreve o texto AspJpeg.Canvas.Font.Color = &HFF0000 AspJpeg.Canvas.Font.Family = "Courier New" AspJpeg.Canvas.Font.Bold = True AspJpeg.Canvas.Font.Quality = 4 AspJpeg.Canvas.Font.BkMode = "Opaque" AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc." ' Salva a imagem com o texto AspJpeg.Save Server.MapPath("imagem_texto.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write "<img src=""imagem_texto.jpg"" />" %>

Adicionando texto numa imagem com o ASPJpeg
O AspJpeg é um componente que permite a manipulação de imagens GIF, JPEG e PNG. Edição do tamanho das imagens, criar thumbnails de alta qualidade e adicionar texto a uma imagem.
Criar Thumbnail de uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Localização da imagem original img_Original = Server.MapPath("imagem.jpg") ' Abre a imagem original AspJpeg.Open img_Original ' Reduz a imagem em 50% AspJpeg.Width  = AspJpeg.OriginalWidth / 2 AspJpeg.Height = AspJpeg.OriginalHeight / 2 ' Salva a imagem reduzida AspJpeg.Save Server.MapPath("imagem_thumbnail.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write ""imagem_thumbnail.jpg"" />" %>

Adicionar texto a uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Abre a imagem original AspJpeg.Open Server.MapPath("imagem.jpg") ' Escreve o texto AspJpeg.Canvas.Font.Color = &HFF0000 AspJpeg.Canvas.Font.Family = "Courier New" AspJpeg.Canvas.Font.Bold = True AspJpeg.Canvas.Font.Quality = 4 AspJpeg.Canvas.Font.BkMode = "Opaque" AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc." ' Salva a imagem com o texto AspJpeg.Save Server.MapPath("imagem_texto.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write ""imagem_texto.jpg"" />" %>

Adicionando texto numa imagem com o ASPJpeg

AO AspJpeg é um componente que permite a manipulação de imagens GIF, JPEG e PNG. Edição do tamanho das imagens, criar thumbnails de alta qualidade e adicionar texto a uma imagem.
Criar Thumbnail de uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Localização da imagem original img_Original = Server.MapPath("imagem.jpg") ' Abre a imagem original AspJpeg.Open img_Original ' Reduz a imagem em 50% AspJpeg.Width  = AspJpeg.OriginalWidth / 2 AspJpeg.Height = AspJpeg.OriginalHeight / 2 ' Salva a imagem reduzida AspJpeg.Save Server.MapPath("imagem_thumbnail.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write ""imagem_thumbnail.jpg"" />" %>

Adicionar texto a uma imagem

<% ' Cria uma instância do controle Set AspJpeg = Server.CreateObject("Persits.Jpeg") ' Abre a imagem original AspJpeg.Open Server.MapPath("imagem.jpg") ' Escreve o texto AspJpeg.Canvas.Font.Color = &HFF0000 AspJpeg.Canvas.Font.Family = "Courier New" AspJpeg.Canvas.Font.Bold = True AspJpeg.Canvas.Font.Quality = 4 AspJpeg.Canvas.Font.BkMode = "Opaque" AspJpeg.Canvas.Print 10, 572, "Copyright (c) XYZ, Inc." ' Salva a imagem com o texto AspJpeg.Save Server.MapPath("imagem_texto.jpg") ' Tira o objeto da memória Set AspJpeg = Nothing ' Exibe a imagem na tela Response.Write ""imagem_texto.jpg"" />" %>

 

Utilizando o AspJpeg para Criar Thumbnails e mostrá-lo no Browser  

Com este componente você poderá modificar o tamanho das imagens e criar thumbnails de alta qualidade, escolhendo o nível de visualização do mesmo.

Criando o thumbnail:

Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem
Path = "e:\home\xyz\web\teste" & "\teste.jpg"

'Busca a Imagem
Jpeg.Open Path

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "e:\home\xyz\web\teste" & "\teste_mini.jpg"

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:
Response.Write jpeg.SendBinary
%>


Em nosso exemplo foi usado o diretório teste. Substitua pelo diretório em que você deseja gravar o tumbnail. Esse diretório deve necessariamente ter permissão de escrita e essa permissão pode ser cedida através do painel de controle no link Aplicativos/Permissões.

Você também deve alterar, na linha e:\home\xyz\web\teste, o xyz pelo seu usuário dentro da Locaweb.

Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:

<%Set Jpeg = Nothing%>



• Recursos sobre ASP na Internet

Há ainda muita informação na Internet sobre ASP. Além da Microsoft, visite também: 

http://www.aspjpeg.com 



• Utilizando o AspJpeg para Criar Thumbnails e mostrá-lo no Browser - Plano de Revenda 


Com este componente você poderá modificar o tamanho das imagens e criar thumbnails de alta qualidade, escolhendo o nível de visualização do mesmo.

<%
'Criando o thumbnail:
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem
Path = "E:\vhosts\DOMINIO_COMPLETO\httpdocs\teste" & "\teste.jpg"

'Busca a Imagem
Jpeg.Open Path

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "E:\vhosts\DOMINIO_COMPLETO\httpdocs\teste" & "\teste_mini.jpg" 

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:
Response.Write jpeg.SendBinary
%>


Em nosso exemplo foi usado o diretório teste. Substitua pelo diretório em que você deseja gravar o tumbnail. Esse diretório deve necessariamente ter permissão de escrita e essa permissão pode ser cedida através do Plesk conforme o tutorial.

Altere a opção "DOMINIO_COMPLETO" do caminho utilizado neste exemplo pelo seu domínio dentro do Painel de Administração (Plesk).
Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:

<%Set Jpeg = Nothing%>



• Recursos sobre ASP na Internet

Há ainda muita informação na Internet sobre ASP. Além da Microsoft, visite também:

http://www.aspjpeg.com
Utilizando o AspJpeg para Criar Thumbnails e mostrá-lo no Browser  
Com este componente você poderá modificar o tamanho das imagens e criar thumbnails de alta qualidade, escolhendo o nível de visualização do mesmo.

<%
'Criando o thumbnail:
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem
Path = "e:\home\xyz\web\teste" & "\teste.jpg"

'Busca a Imagem
Jpeg.Open Path

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "e:\home\xyz\web\teste" & "\teste_mini.jpg"

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:
Response.Write jpeg.SendBinary
%>


Em nosso exemplo foi usado o diretório teste. Substitua pelo diretório em que você deseja gravar o tumbnail. Esse diretório deve necessariamente ter permissão de escrita e essa permissão pode ser cedida através do painel de controle no link Aplicativos/Permissões.

Você também deve alterar, na linha e:\home\xyz\web\teste, o xyz pelo seu usuário dentro da Locaweb.

Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:

<%Set Jpeg = Nothing%>



• Recursos sobre ASP na Internet

Há ainda muita informação na Internet sobre ASP. Além da Microsoft, visite também: 

http://www.aspjpeg.com 



• Utilizando o AspJpeg para Criar Thumbnails e mostrá-lo no Browser - Plano de Revenda 


Com este componente você poderá modificar o tamanho das imagens e criar thumbnails de alta qualidade, escolhendo o nível de visualização do mesmo.

<%
'Criando o thumbnail:
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem
Path = "E:\vhosts\DOMINIO_COMPLETO\httpdocs\teste" & "\teste.jpg"

'Busca a Imagem
Jpeg.Open Path

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2

'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "E:\vhosts\DOMINIO_COMPLETO\httpdocs\teste" & "\teste_mini.jpg" 

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:
Response.Write jpeg.SendBinary
%>


Em nosso exemplo foi usado o diretório teste. Substitua pelo diretório em que você deseja gravar o tumbnail. Esse diretório deve necessariamente ter permissão de escrita e essa permissão pode ser cedida através do Plesk conforme o tutorial.

Altere a opção "DOMINIO_COMPLETO" do caminho utilizado neste exemplo pelo seu domínio dentro do Painel de Administração (Plesk).
Obs: No final do script é necessário atribuir o valor "Nothing" para os objetos criados. Para o exemplo acima ficaria assim:

<%Set Jpeg = Nothing%>



• Recursos sobre ASP na Internet

Há ainda muita informação na Internet sobre ASP. Além da Microsoft, visite também:

http://www.aspjpeg.com