none
Como redimensionar imagens e aplicar marca d'agua com ASPJpeg? RRS feed

  • Pergunta

  • Pessoal, preciso fazer o redimensionamento de imagens usando o ASPJPEG, já li varios topicos do forum e de outros foruns também, e também o mannual existente no proprio site aspjpeg.com, mas não consegui fazer funcionar o redimensionamento das imagens. Gostaria que o redimensionamento fosse realizado apenas para visualização, sem ter que salvar os arquivos em disco.
    E tambem, ao ser exibida a imagem redimensionada gostaria que aparecesse um logomarca como marca d'agua em cada imagem no canto inferior esquerdo. alguém poderia me ajudar com esse problema?
    abaixo esta meu codigo:

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

    ' Open source file
    Jpeg.Open "sgw/coberturas/'"&rs("foto")&"'"

    ' Set new height and width
    Jpeg.Width = 735
    Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

    ' Perform resizing and
    ' send resultant image to client browser
    Jpeg.SendBinary

    %>

    no local onde sera exibida a imagem

    <img src="sgw/coberturas/<%= rs("foto")"%> border="0" />


    desde já agradeço a atençao de todos
    Obrigado


    ANDRÉ GUSTAVO
    quinta-feira, 3 de setembro de 2009 16:40

Todas as Respostas

  • Amigo, vide em Perlscript, tb é ASP ..

     

    <%@LANGUAGE="PerlScript" CODEPAGE="65001"%>

    <%

    $Response->{Expires} = 0;

    my $pathimagem = $Request->Querystring("path")->Item();

    my $jpeg = $Server->CreateObject("Persits.Jpeg");

    $jpeg->Open($pathimagem);

    $jpeg->{Progressive} = 1;

    $L = 430;#191 161

    $jpeg->{Width} = $L;

    $jpeg->{Height} = $jpeg->{OriginalHeight} * $L / $jpeg->{OriginalWidth};

    $jpeg->Crop(0, 0, 333, 254);

    $jpeg->{Width} = 57;

    $jpeg->{Progressive} = 1;

    $jpeg->{Height} = 67;

    my $jpeg2 = $Server->CreateObject("Persits.Jpeg");

    $jpeg2->Open("D:\wwwroot\web2.eti.br\imagens\logo.png");

    $jpeg->Canvas->DrawImage(0, 0, $jpeg2, 1);

    $jpeg->Grayscale(1);

    $jpeg->SendBinary;

    %> 

    sábado, 22 de outubro de 2011 00:42
  • pronto, traduzido:
    <%@LANGUAGE="VBScript" CODEPAGE="65001"%>
    <%
    Response.Expires = 0
    dim pathimagem = Request.Querystring("path")
    dim jpeg = Server.CreateObject("Persits.Jpeg")
    jpeg.Open pathimagem
    jpeg.Progressive = 1
    L = 430
    jpeg.Width = L
    jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
    jpeg.Crop 0, 0, 333, 254
    jpeg.Width = 57
    jpeg.Progressive = 1
    jpeg.Height = 67
    dim jpeg2 = Server.CreateObject("Persits.Jpeg")
    jpeg2.Open("D:\wwwroot\web2.eti.br\imagens\logo.png")
    jpeg.Canvas.DrawImage 0, 0, jpeg2, 1
    jpeg.Grayscale 1
    jpeg.SendBinary
    %> 
    sábado, 22 de outubro de 2011 00:45