Aspjpeg

[smez]

como eu uso a função AspJpeg para dar um crop em uma foto e aparecer no site

<%

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

set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = StringdeConexao

rs.Source = "SELECT * FROM fotos ORDER by RND(INT(NOW*id_foto)-NOW*id_foto)"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

%>

<% If Not rs.EOF Or Not rs.BOF Then %>

<%

startrw = 0

endrw = HLooper1__index

numberColumns = 3

numrows = 2

while((numrows <> 0) AND (Not rs.EOF))

startrw = endrw + 1

endrw = endrw + numberColumns

%>

<% While ((startrw <= endrw) AND (Not rs.EOF))%>

<%

path = "&rs(foto).Value&"

Jpeg.Open(path)

Jpeg.Crop 0,0,1,1

%>

<a href="cobertura.asp?codigo=<%=rs("codigo")%>#<%=rs("id_foto")%>" onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=rs("nome")%>';return true;"><img src="<%=Jpeg%>" border="0" alt="<%=rs("nome")%>"></a>

<%

startrw = startrw + 1

rs.MoveNext()

Wend

%>

<%

numrows=numrows-1

Wend

%>

<% End If ' end Not rs.EOF Or NOT rs.BOF %>

<% If rs.EOF And rs.BOF Then %>

<% End If ' end rs.EOF And rs.BOF %>

<%

rs.Close()

%>

O arquivo não esta aparecendo a imagem????

Como que eu fãço

[fercosmig]

Crop(x0, y0, x1, y1)

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

[fercosmig]

dá algum erro?

path = "&rs(foto).Value&"

tenta assim

path = rs("foto")

[smez]

path = "rs(foto)"

Jpeg.Open(path)

coloquei assim dao seguinte erro

Persits.Jpeg.1 (0x800A0002)

O sistema não pode encontrar o arquivo especificado

e quando coloco assim

path = rs(foto)

Jpeg.Open(path)

da o seguinte erro

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

[fercosmig]

path = "rs(foto)"

Jpeg.Open(path)

coloquei assim dao seguinte erro

Persits.Jpeg.1 (0x800A0002)

O sistema não pode encontrar o arquivo especificado

e quando coloco assim

path = rs(foto)

Jpeg.Open(path)

da o seguinte erro

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

path = rs("foto")

coloca as aspas

qqer coisa posta aí!

abraços

[smez]

Persits.Jpeg.1 (0x800A0002)

O sistema não pode encontrar o caminho especificado.

[fercosmig]

verifique o caminho da foto que esta salvo no banco

coloque a foto na mesma pasta da página e em vez de usar o recordset use o nome da foto para testar ou uma variavel com o nome dela!

abraços