tamanho da imagem

[AspMan 0]

Boa tarde moçada, a dúvida é a seguinte:

tem como eu saber qual o lado maior de uma imagem quando faço upload??? ou mesmo quando eu vou exibir ela?!

tipo, se é width ou height o maior?!

[Ted k' 126]

usa o componente ASPJpeg, quando faz o upload você pode enviar esses dados para o banco e depois comparar, é uma das melhores e mais fáceis formas!

[AspMan 0]

usa o componente ASPJpeg, quando faz o upload você pode enviar esses dados para o banco e depois comparar, é uma das melhores e mais fáceis formas!

 

beleza, vou dar uma pesquisada no assuntto!!!

[Ted k' 126]

aqui no fórum tem vários exemplos, usa a busca!

[Vagner Bucioli Scala 0]

Eu uso sempe o ASPJPEG pra isso, é muito útil quando você precisar saber se a imagem é de pé ou deitada para mandar salvar uma thumb num tamanho mais adequado!

 

Código

 

<%
 caminho = "e:\home\artearte1\Web\ensaio\images\"&Imagem

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

'Caminho da Imagem

Path = caminho

'Busca a Imagem
Jpeg.Open Path

if Jpeg.Width >= JpegG.Height  then 'Aqui ele faz a comparação, se a imagem for mais larga do quer alta ou igual

Jpeg.Width = 921 'salva de um jeito
Jpeg.Height = 691
Jpeg.Quality = 100

Else 'Senão

Jpeg.Width = 472 'Salva de outro
Jpeg.Height = 700
Jpeg.Quality = 100

End If

Jpeg.Save caminho


%>

[AspMan 0]

Eu uso sempe o ASPJPEG pra isso, é muito útil quando você precisar saber se a imagem é de pé ou deitada para mandar salvar uma thumb num tamanho mais adequado!

 

Código

 

<%
 caminho = "e:\home\artearte1\Web\ensaio\images\"&Imagem

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

'Caminho da Imagem

Path = caminho

'Busca a Imagem
Jpeg.Open Path

if Jpeg.Width >= JpegG.Height  then 'Aqui ele faz a comparação, se a imagem for mais larga do quer alta ou igual

Jpeg.Width = 921 'salva de um jeito
Jpeg.Height = 691
Jpeg.Quality = 100

Else 'Senão

Jpeg.Width = 472 'Salva de outro
Jpeg.Height = 700
Jpeg.Quality = 100

End If

Jpeg.Save caminho


%>

fala fera... estou respondendo, eu estou fazendo upload com o dundas ok? estou fazendo dessa forma, mas não está resolvendo nada...

<%
On Error Resume Next
Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.MaxFileSize = 15000000
objUpload.UseVirtualDir = true
objUpload.UseUniqueNames = False
objUpload.Save "teste"
imagem = objUpload.GetFileName(objUpload.Files(0).Path)
'patch= objUpload.GetFileDirName(objUpload.files(0).Path)
Set objUpload = Nothing
If Err <> 0 Then
if err ="-2147467259" then
response.Write "O tamanho do arquivo excedeu o limite de 150 bytes."
elseif err="6" then
response.Write "Arquivo existente"
else
'Aqui estamos imprimindo na tela do usuário a descrição do erro e seu número.
Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"
end if
Else
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Seus dados foram carregados com sucesso!</b></font><br>"
end if
%>
<%
caminho = "C:\sites\APRENDENDO\teste\"&imagem
Set JpegG = Server.CreateObject("Persits.Jpeg")
Response.Write (""&caminho&"")
'Caminho da Imagem

Path = caminho

'Busca a Imagem
Jpeg.Open Path

if Jpeg.Width >= JpegG.Height  then 'Aqui ele faz a comparação, se a imagem for mais larga do quer alta ou igual

Jpeg.Width = 921 'salva de um jeito
Jpeg.Height = 691
Jpeg.Quality = 100

Else 'Senão

Jpeg.Width = 472 'Salva de outro
Jpeg.Height = 700
Jpeg.Quality = 100

End If

Jpeg.Save caminho
%>

não altera a imagem e não aprensenta erro... afff

[Ted k' 126]

retire o On Error Resume Next da pagina e vamos ver se tem erros ou nao

[xanburzum 169]

você pode usar o AutoImageInfo é um componente que pega as propriedades sobre arquivos de imagem em ASP ou a ASP.NET. Adquire tal informação como largura de imagem, altura, tamanho de arquivo, ultima modificação, etc.

[Vagner Bucioli Scala 0]

Olá AspMan na linha abaixo você está fazendo um teste local correto?

 

caminho = "C:\sites\APRENDENDO\teste\"&imagem

Neste caso não vai funcionar se você não tiver no seu computador o componente instalado. É melhor você fazer este teste direto no seu servidor e checar tb se tem instalado o ASPJPEG.

 

Pega este código abaixo, salva como componente.asp e sobe no seu server, este script é bem legal que verifica quais os componentes que você tem instalado.

 

componentes.asp

 

<%
Dim comList(47)

comList(0) = Array( "AB Mailer","ABMailer.Mailman" )
comList(1) = Array( "ABC Upload","ABCUpload4.XForm" )
comList(2) = Array( "ActiveFile","ActiveFile.Post" )
comList(3) = Array( "ActiveX Data Object","ADODB.Connection" )
comList(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
comList(5) = Array( "ASP DNS", "AspDNS.Lookup" )
comList(6) = Array( "ASP HTTP","AspHTTP.Conn" )
comList(7) = Array( "ASP Image","AspImage.Image" )
comList(8) = Array( "ASP Mail","SMTPsvg.Mailer" )
comList(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )
comList(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
comList(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
comList(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
comList(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
comList(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
comList(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
comList(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
comList(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
comList(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
comList(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
comList(20) = Array( "CDO NTS","CDONTS.NewMail" )
comList(21) = Array( "Chestysoft Image","csImageFile.Manage" )
comList(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
comList(23) = Array( "Dimac JMail","JMail.Message" )
comList(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
comList(25) = Array( "Dundas Mailer","Dundas.Mailer" )
comList(26) = Array( "Dundas Upload","Dundas.Upload.2" )
comlist(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
comlist(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
comlist(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
comList(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
comList(31) = Array( "Dynu HTTP","Dynu.HTTP" )
comList(32) = Array( "Dynu Mail","Dynu.Email" )
comList(33) = Array( "Dynu Upload","Dynu.Upload" )
comList(34) = Array( "Dynu WhoIs","Dynu.Whois" )
comList(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
comList(36) = Array( "File System Object","Scripting.FileSystemObject" )
comList(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
comList(38) = Array( "Last Mod","LastMod.FileObj" )
comList(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
comList(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
comList(41) = Array( "Persits ASPEmail","Persits.MailSender" )
comList(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
comList(43) = Array( "Persits File Upload","Persits.Upload.1" )
comList(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
comList(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
comList(46) = Array( "Image Size", "ImgSize.Check" )
comList(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )


Function TestObject( comIdentity )
On Error Resume Next
TestObject = False
Err.Clear
Set xTestObj = Server.CreateObject( comIdentity )
If Err = 0 Then TestObject = True
Set xTestObj = Nothing
Err.clear
End Function


Public Function CheckCOM()
OKCount = 0
strTxt = "<table border=1 bordercolor=black cellspacing=0 cellpadding=0 align=center width=400>"
For Idx = LBound( comList ) To UBound( comList )
Provider = Idx
strTxt = strTxt & "<tr><td width=200>" & comList(Idx)(0) & "</td>"
'strTxt = strTxt & ""
If TestObject( comList(Idx)(1) ) Then
strTxt = strTxt & "<td align=center><font color=red>Instalado</font></td>"
OKCount = OKCount + 1
Else
strTxt = strTxt & "<td align=center>Não Instalado</td>"
End If
strTxt = strTxt & "</tr>"
Next
strTxt = strTxt & "</table><p align=center><b>" & OKCount & "</b> de "
strTxt = strTxt & UBound( comList ) + 1 & " componentes estão avaliados em seu servidor.</p>"
CheckCOM = strTxt 
End Function

Response.Write( CheckCOM() )
%>

[xanburzum 169]

tem tb o ActiveBitmapSize II um componente que oferece a facilidade de controle de pixel e bytesize de uma imagem. Isto é útil quando você quiser determinar o tamanho e geometria de uma imagem (JPG, GIF, PNG ou BMP).