Suporte
Redimensionar Imagens
Copie o código abaixo para dentro de sua Home Page.
<%
sImagem = "/teste/imagem.jpg" ' Imagem a ser redimensionada
sNovaImagem = "/teste/imagem_mini.jpg" ' Imagem já redimensionada para ser salva
sLargura = 150
sAltura = "" ' Deixamos em branco para a dll definir automaticamente a altura da imagem de acordo com a largura
sCompressao = "" ' Deixando em branco a dll utiliza a compressão padrão: 80
Redimensionar sImagem, sNovaImagem, sLargura, sAltura, sCompressao
Sub Redimensionar(Imagem, NovaImagem, Largura, Altura, Compressao)
strImagerDLL = "http://www.netwizard.com.br/cgi-bin/Imager.dll"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "POST", strImagerDLL & "?Image=" & Server.Mappath(Imagem) & "&Width=" & Largura & "&Height=" & Altura & "&Compression=" & Compressao, False
xml.Send()
bData = xml.ResponseBody
Set xml = Nothing
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 1 'adTypeBinary
oStream.Mode = 3 'adModeReadWrite
oStream.Open
oStream.Write bData
oStream.Position = 0
oStream.SaveToFile Server.Mappath(NovaImagem) ' Salva a imagem redimensionada
oStream.Close
Set oStream = Nothing
End Sub
%>
Em caso de dúvidas, entre em contato conosco. Teremos o maior prazer em atendê-lo.
Nossos Serviços
-
Acesso Discado
Qualidade superior de acesso: Velocidade com conexão digital, acesso rápido com economia.
Saiba mais -
Banda Larga
Trata-se da nova geração de acessos à internet em alta velocidade, várias vezes mais rápido do que a conexão...
Saiba mais -
Link Dedicado
A netWIZARD, voltada para o foco corporativo, implementou serviços de conectividade perma-nente...
Saiba mais -
Registro de domínios
É extremamente importante que você registre seu domínio na Internet (sua_empresa.com.br)...
Saiba mais
Netwizard Informática Ltda. © 2010 | Todos os direitos reservados
Caiac