Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rafa-martin

[Resolvido] usando SoftArtisans com aspjpeg

Por , em ASP Clássico

Recommended Posts

rafa-martin    2

rafa-martin
Postado

pessoal como eu posso redimensionar uma imagem com o SoftArtisans? Tem que ser esse componente já que a locaweb trabalha somente com eles para upload.

 

mais se tiver um jeito de trabalhar com ele junto com asojpeg, pode ser também. eu estou tentando trabalhar com os dois. uso SoftArtisans para o upload e o aspjpeg para redimensionar a imagem. porém me dá esse nessa linha jpg.Open dizendo que o caminho não é válido

 

só que eu já printei o caminho e o caminho existe. como faço para usar os dois? mue codigo está abaixo:

 

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>SoftArtisans Product Demos</TITLE>
<LINK rel="STYLESHEET" type="text/css" href="/includes/sastyle.css">
</HEAD>
<%
If Request.ServerVariables("REQUEST_METHOD") <> "POST" THEN 
%> 
	<FORM action="<%=Request.ServerVariables("SCRIPT_NAME")%>" enctype="MULTIPART/FORM-DATA" method="POST"> 
	  <TABLE width="100%"> 
		<TR> 
		  <TD align="RIGHT" valign="TOP" width="40%">Enter
			First File:</TD> 
		  <TD align="LEFT"> 
			<INPUT type="FILE" name="FILE1"> 
		  </TD> 
		</TR> 
		<TR> 
		  <TD align="RIGHT" valign="TOP">Enter
			Second File:</TD> 
		  <TD align="LEFT"> 
			<INPUT type="FILE" name="FILE2"> 
		  </TD> 
		</TR> 
		<TR> 
		  <TD align="RIGHT"> </TD> 
		  <TD align="LEFT"> 
			<INPUT type="SUBMIT" name="SUB1" value="Create Archive"> 
		  </TD> 
		</TR> 
	  </TABLE> 
	</FORM> 
<%
Else
	Set upl = Server.CreateObject("SoftArtisans.FileUp")
	'Set FileMan = Server.CreateObject("Softartisans.Filemanager")
	
	Set jpg = Server.CreateObject("Persits.Jpeg")

	Dim tempFolder
	dim File(2)
	tempFolder = "C:\scripts\ASP\upload\"
	'tempFolder = Server.MapPath("uploads\")

	upl.Path = tempFolder 

	Set oFile1 = upl.Form("FILE1")
	Set oFile2 = upl.Form("FILE2")
	oFile1.Save
	oFile2.Save

	For Each File in upl.Form
		
		Path = tempFolder
  
		 Response.Write Path & "<br>"
   
		 Height = "480"
		 Width = "640"
				
		 jpg.Open Path
		 'jpg.Width = Width
		 'jpg.Height = Height

		 'melhora o visual da imagem usando quando mostra imagem na tela
		 'jpg.Sharpen 1, 150
		 	
		 jpg.Save(Server.MapPath("Temp") & "\" & File.ExtractFileName)   
	Next


	Response.End

	If Err.number <> 0 Then
			Response.Status = "500 Internal Server Error"
						Response.Write Err.Description
			Response.Write "<P><P Align=Center>" & archiveName & " não criado.<BR>"
	Else
		
			Response.Redirect "ArchiveDownload.asp?ARCFile=" & zipfile
	End IF
End IF	
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Public2004    79

Public2004
Postado

A mensagem já diz o erro!

porém me dá esse nessa linha jpg.Open dizendo que o caminho não é válido

jpg.Open Path que é igual a: tempFolder - que é igual a: "C:\scripts\ASP\upload\"

Se estiver rodando na Locaweb, o endereço tem que ser algo como "e:\home\seudominio\etc..."

 

Abs.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rafa-martin    2

rafa-martin
Postado

então eu estou rodando na minha máquina primeiro, por que eu preciso testar. então se é não pode dar erro, pq o caminho existe.

 

eu atribuo o caminho a variavel tempFolder de faço um jpg.open nela. o que está errado?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito