Persits.Jpeg

[Veronica Gravino 0]

Ola Pessoas, estou desde terça-feira tentando resolver este problema.

é o seguinte,tenho um cadastro de Pessoas que contem o nome da pessoa e a foto para upload.

<tr>
<td>Nome:</td>
<td><input type="text" name="nome_parc" /></td>
</tr>

<tr>
<td>Imagem:</td>
<td><input type="file" name="imagem_parc"></input></td>
</tr>

só que na hora de fazer o upload da foto me aparece um erro, no começo pensei que fosse erro de permissão na pasta aonde eu vou salvar a imagem , mas ela ja tem a permissao de escrita.

 

Persits.Jpeg.1 error '800a0002'

 

The system cannot find the file specified.

 

/veronicatest/santanaativa/sql/transaction_parceiros.asp, line 16

 

o codigo que estou fazendo o upload :

 

ASP

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

'Caminho da Imagem

Path = "e:vhostsvisaobs.com.brhttpdocsveronicatestsantanaativaparceirosfotos" & "teste.jpg"

'Busca a Imagem

Jpeg.Open Path ' Linha 16

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor

Jpeg.Width = Jpeg.OriginalWidth / 2

Jpeg.Height = Jpeg.OriginalHeight / 2

'Esse método é opcional, usado para melhorar o visual da imagem

Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo

Jpeg.Save "e:vhostsvisaobs.com.brhttpdocsveronicatestsantanaativaparceirosfotos" & "teste_mini.jpg"

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:

Response.Write jpeg.SendBinary

Set Jpeg = Nothing

 

end if

 

Alguem sabe o porque deste erro?

[jrcardozo 4]

o caminho está errado, veja que estás concatenando 2 barras \ antes do nome da imagem

 

no site do fabricante vocÊ encontra ótimos exemplos de utilização

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

[Veronica Gravino 0]

ola, já tentei fazer com os exemplos do site e nao estou conseguindo assim mesmo.

alguem tem algum exemplo que esteja funcionando para teste?

[ruinas 0]

ASP

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

Jpeg.Open CAMINHO

Jpeg.Quality = 80

Jpeg.Save CAMINHO2

[jrcardozo 4]

a imagem existe no servidor?

só lembrando que esse compopnente não envia imagens para o servidor e sim manipula um jpg existente no ftp, por isso tem origem e destino do arquivo

 

para enviar imagens é necessario outro componente, depois da imagem no servidor você usa esse componente

[SpectroMan 0]

Eu sempre uso o AspUpload para imagens.. sempre dá certo... seguinte:

 

Cria um BD com a tabela PARCEIROS coloca os seguintes campos:

 

image_blob ----- Objeto Ole

filename ------ Texto

nome ----- Texto

 

Página com o form...

 

[color= #009900;][url="http-~~-//december.com/html/4/element/form.html"][color= #0000BB;]<form[/url] action="upload.asp" method="post" enctype="multipart/form-data" name="form1">
[url="http-~~-//december.com/html/4/element/input.html"]<input[/url] name="file" type="file" id="file" size="35">
[url="http-~~-//december.com/html/4/element/input.html"]<input[/url] name="nome" type="text" id="nome" size="35">

 

 

na página upload.asp...

 

ASP

<%[/color]

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

' we use memory uploads, so we must limit file size

Upload.SetMaxSize 100000, True

Upload.Save "D:InetpubClientesdominio.com.brhtmlimagens"[/color]

' Obtain file object

Set file = Upload.Files("file")

   ' Build ADO connection string

   Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:InetpubClientesdominio.com.brDatabd.mdb"

   ' Use ADO Recordset object

   Set rs = Server.CreateObject("adodb.recordset")

      ' Reopen recordset to insert file

   rs.Open "PARCEIROS", Connect, 2, 3

   rs.AddNew

   rs("image_blob") = file.Binary

   rs("filename") = file.FileName

   rs("nome") = Upload.Form("nome")

   rs.Update

%>

 

Só muda os caminhos da pasta e da conexão com BD, coloque os seus caminhos..

[Veronica Gravino 0]

OLa bom dia,muito obrigado pelo exemplo, maseu acho que no meu caso eu nao tenho o componente ASPUpload instalado no servidor de Revenda da locaweb, por isso ele me mostrou essa mensagem:

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/veronicatest/santanaativa/sql/transaction_parceiros.asp, line 12

 

800401f3

 

é isso?

[Veronica Gravino 0]

Certo o unico componente para upload de arquivos que tenho instalado no meu dominio é o SA-FileUp, por isso creio que nao estava conseguindo fazer o upload :(

Agora vou tentar fazer um teste com esse componente.

Obrigada!

[Ted k' 126]

é realmente se ñ está intalando é melhor usar esse que você tem o SA-FileUp

[Veronica Gravino 0]

Com o SaFileup nao funcionou , estou usando o dundas, mas ele me da a seguinte mensagem de erro:

Failed to get the boundary.

[Ted k' 126]

qual foi o erro que deu com o SaFileup?

[Veronica Gravino 0]

Ola continuo sem conseguir fazer o upload das fotos , estou recebendo uma mensagem de "Failed to get the boundary."

 

'RECUPERA o valor da acao do formulario
acao= Request("action")


'INSERINDO DADOS 
If acao = "novo" then
 'On Error Resume Next, passa por cima de possíveis erros
 On Error Resume Next
 Dim objUpload, objUploadedFile
 Dim lstFiles, strPath, str1File
 Dim strNome, intItem, strMsg
 'Cria uma instancia do objeto Upload e atribui a variável objUpload.
 Set objUpload = Server.CreateObject("Dundas.Upload.2")
 ' Seta a não necessidade de alteração de configurações no servidor.
 objUpload.UseVirtualDir = False
 'Existe a variável UseUniqueNames, que recebe valor booleano. Estando TRUE
 '(default), ela vai anexar ao arquivo um número identificador. Estando FALSE,
 'ela conserva o nome do arquivo original.
 objUpload.UseUniqueNames = False
 'Deve ser utilizada antes do método 'SaveAs' utilizado logo abaixo
 objUpload.SaveToMemory
 'Pega algumas variaveis importantes que estão presentes no form-html que
 'chama esse script
 '(é fundamental que estas atribuições só sejam feitas depois de rodar o SaveToMemory
 strNome = "Teste"
 'Redireciona para o caminho físico onde serão guardados os docs. dependendo
 'do módulo
 strPath = "e:\vhosts\visaobs.com.br\httpdocs\veronicatest\santanaativa\parceiros\fotos\"
 For Each objUploadedFile in objUpload.Files 
 str1File = objUpload.GetFileName(objUploadedFile.OriginalPath)
 '' Acrescenta como prefixo ao arquivo a chave do item em questao
 'entre chaves
 ' --- Trocamos o nome do arquivo ---
 objUploadedFile.SaveAs strPath & str1File
 Next
 'Limpa a instância criada na memória do servidor.
 Set objUpload = nothing
 ' Vericamos se existe algum erro no codigo acima
 If Err <> 0 Then
 ' Mensagem de erro
 response.write err.description
 Else
 response.write "Arquivo gravado com sucesso com a referencia " & intItem
  End If 
End if

Aqui esta o codigo , alguem sabe o porque desta mensagem????

[Veronica Gravino 0]

consegui!!!

era um enctype="multipart/form-data" no <form> que eu não havia colocado, agora esta funcionando perfeitamente, mas.. tenho outro problema :(

 

eu tenho 3 imagens, mas quando eu vou editar a pagina acontece o seguinte:

Tenho um:

sql = "SELECT * FROM Estrutura  WHERE id_est="&id

e retorno :

 

1 campo text :

<textarea name="desc_est" cols="70" rows="10" class="formulario" id="textarea"><%=rs("desc_est")%></textarea>

3 imagens,

<input name="file1" type="file" class="formulario" value="<%=rs("foto1_est")%>" />
<input name="file2" type="file" class="formulario" value="<%=rs("foto2_est")%>" />
<input name="file3" type="file" class="formulario" value="<%=rs("foto3_est")%>" />

as imagens eu estou mostrando na pagina, mas quando clico salvar e alterar novamente , o textarea salva normalmente mas eu perco os dados do rs das imagens e elas vem vazias, nao tenho como colocar um value em um input file tb?????

alguem sabe porque isso acontece??