5 replies to this topic

[Operador]

Bom pessoal tenho um sistema de fotos que cria automaticamente as miniaturas, e elas ficam totalmente distorcidas quando ficam pequenas. Minhas dúvidas são as seguintes:

1- Para utilizar esse componente devo colocar na página onde aparece as miniaturas alguma váriavel indentificando o componente;

2- Outra dúvida, vou pedir para meu servidor a instalação do componente, qual usar?

ASPIMAGE ou ASPJPEG

Espero uma resposta da galera urgente...

Edição feita por: Operador, 29/11/2004, 16:17.

[Luis Otávio]

Eu acho o ASPJpeg melhor... veja uma demontração dele funcionando

http://support.persi...g/pick_jpeg.asp

aqui vc pode baixa-lo

http://www.aspjpeg.com/download.html


e para funcionar... vc colocara um codigo na sua pagina, que ira fazer o tratamento da imagem....

[Operador]

Iporto como seria esse código? Teria que colocar apenas nas páginas que irão aparecer as miniaturas?

<%
Function FormataData(str)
nDia = Day(str)
nMes = Month(str)
nAno = Year(str)

If Len(nDia) = 1 Then nDia = "0" & nDia
If Len(nMes) = 1 Then nMes = "0" & nMes

FormataData = nDia & "/" & nMes & "/" & nAno
End Function

Set Conexao = Server.CreateObject("ADODB.Connection")
ConnString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/bd-cilc.mdb")
Conexao.Open ConnString

Dim nPagina
Dim nCatId
Dim nLastPage
Dim rsFiguras

nPagina = Trim(Request.QueryString("pagina"))
If nPagina = "" Then
nPagina = 1
End If

'*** Abrindo conexão ao Recordset
Set rsFotos = Server.CreateObject("ADODB.Recordset")
'*** Número de registros na memória
rsFotos.CacheSize = 8
'*** Seleciona a tabela, conexão e o ponteiro
rsFotos.Open "select * from tbl_fotos where EventoID=" & Request.Querystring("ID"), Conexao, 3,3
'*** Definindo número de registros por página
rsFotos.PageSize = 8
'*** Criando variável que indica quantos registros foram mostrados
nLastPage = CInt(rsFotos.PageCount)
'*** Definindo página atual
rsFotos.AbsolutePage = nPagina
%>

Aqui é uma parte apenas de uma página que tem a miniatura de 120x80.

[Luis Otávio]

exemplo basico:

<% ' Creando o objeto
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' caminho da imagem
Path = Server.MapPath("images") & "\clock.jpg"

' abrindo codigo da imagem
Jpeg.Open Path

' Diminuindo a imagem do seu tamanho em 50%
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2


' Creando os thumbs no disco
Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
%>

<IMG SRC="images/clock.jpg"><P>
<IMG SRC="images/clock_small.jpg">

seria mais ou menos assim, para se criar os thumbs....

[Operador]

Só não entendi uma coisa, como colocar no código, pq as imagens são criadas automaticamente e vejo que vc já colocou as imagens, teria como vc me dar uma força de como colocar no código já pronto.

Parte da página que criar as miniaturas:

Sub ImprimeTabelas(rsFotos)
If rsFotos.EOF Then
Response.Write "&nbsp;"
Exit Sub
Else
Set rsContaFotos = Conexao.Execute("select count(*) as Fotos from tbl_fotos where EventoID=" & rsFotos("ID"))
If rsContaFotos("Fotos") <> 0 Then
Set rsMostraFoto = Conexao.Execute("select top 5 * from tbl_fotos where EventoID=" & rsFotos("ID"))
sFoto = rsMostraFoto("Foto")
rsMostraFoto.Close
Set rsMostraFoto = Nothing
   
Response.Write "<table border=""0"" cellspacing=""0"" valign=""top"" cellpadding=""0"" width=""220""><td align=""center"" height=""5"">"
Response.Write "<tr>" & vb script:open('galeria/ver.asp?id=" & rsFotos("ID") & "','chilli','width=674,height=490')""><img src=""galeria/fotos/" & sFoto & """ border=""0"" width=""75"" height=""57""></a></td>"

Edição feita por: Operador, 30/11/2004, 08:24.

[Agente Linhares]

Só não entendi uma coisa, como colocar no código, pq as imagens são criadas automaticamente e vejo que vc já colocou as imagens, teria como vc me dar uma força de como colocar no código já pronto.

Parte da página que criar as miniaturas:

Sub ImprimeTabelas(rsFotos)
If rsFotos.EOF Then
Response.Write "&nbsp;"
Exit Sub
Else
Set rsContaFotos = Conexao.Execute("select count(*) as Fotos from tbl_fotos where EventoID=" & rsFotos("ID"))
If rsContaFotos("Fotos") <> 0 Then
Set rsMostraFoto = Conexao.Execute("select top 5 * from tbl_fotos where EventoID=" & rsFotos("ID"))
sFoto = rsMostraFoto("Foto")
rsMostraFoto.Close
Set rsMostraFoto = Nothing
   
Response.Write "<table border=""0"" cellspacing=""0"" valign=""top"" cellpadding=""0"" width=""220""><td align=""center"" height=""5"">"
Response.Write "<tr>" & vb script:open('galeria/ver.asp?id=" & rsFotos("ID") & "','chilli','width=674,height=490')""><img src=""galeria/fotos/" & sFoto & """ border=""0"" width=""75"" height=""57""></a></td>"

é q no ex. q o iporto passou é com fso e nao usa banco de dados..

o script lista automaticamente td q tem em tal pasta ..q ta especificada no code..
tenta por suas imgs em uma pasta e especifica o diretorio delas certinho la no code