Nenhuma resposta neste tópico

[Agente Linhares]

Utilizando o componente SaFileUpload

Pessoal, dias atrás tive a necessidade de utilizar este componente, devido a ausência de outros do mesm o gênero no server.
Sendo assim, fui à procura de conteúdo e documentações sobre o mesmo e depois de muita busca na web, fui pegando o jeito e as propriedades do mesmo ateé conseguir montar o que queria. Apesar do que eu precisava ser bem básico, não encontrava conteúdo sobre este componente...portando, vou passar apenas algumas propriedades-chave e um exemplo do uso do SaFileUpload:

Este componente até que é bem parecido c/ o ASPUpload. Veja como ele é usado:

Ex.:

<%
Pasta = "c:/SuaPasta/"

Set Upload = Server.CreateObject("SoftArtisans.FileUp") 
Upload.Path = Pasta 
        
Foto1 = Upload.Form("campoFoto1").ShortFileName 'campoFoto1 equivale ao nome do seu campo da foto1, no qual usamos 2 campos p/ fotos
Foto2 = Upload.Form("campoFoto2").ShortFileName 'campoFoto2 equivale ao nome do seu campo da foto2, no qual usamos 2 campos p/ fotos


	If Not Foto1 = "" Then
  vFoto1 = Foto1
  Upload.Form("Foto1").Save
	Else
  vFoto2 = "sem imagem no campoFoto1"
	End If
          	
	If Not Foto2 = "" then
  vFoto2 = Foto2
  Upload.Form("Foto2").Save
	Else
  vFoto2 = "sem imagem no campoFoto2"
	End If
	
	response.write vFoto1 &"<br>"&vFoto2
%>

Explicando:

- especificamos a pasta no qual serão salva as imagens

Pasta = "c:/SuaPasta/"

- setamos a criação do componente

Set Upload = Server.CreateObject("SoftArtisans.FileUp") 

- expecificamos a pasta no qual ussaremos p/ salvar as imagens (a que foi digitada no início)

Upload.Path = Pasta 

- pegamos os valores dos campos "campoFoto1" e "campoFoto2" e o colocamos nas respectivas variáveis
OBS Importante: a propriedade "ShortFileName" é responsável por pegar apenas o nome da foto ao invés de trazer o caminho da mesma junto c/ ela. Muito útil, principalmente em caso de gravação da mesma no bd

Foto1 = Upload.Form("campoFoto1").ShortFileName	
Foto2 = Upload.Form("campoFoto2").ShortFileName	

- nesta parte, apenas é feita uma validação, p/ caso não haja imagens, p/ exibir a mensagem de que não há, ja se houver, as mesmas são salvas na pasta que especificamos no início do code
OBS: neste exemplo, apenas foi exibido o nome das imagens ao fim do code, porém poderia ser feito uma inserção no banco de dados, já que as imagens já foram gravadas na pasta e também já pegamos o nome da mesma e colocamos em uma variável.

	If Not Foto1 = "" Then
  vFoto1 = Foto1
  Upload.Form("Foto1").Save
	Else
  vFoto2 = "sem imagem no campoFoto1"
	End If
          	
	If Not Foto2 = "" then
  vFoto2 = Foto2
  Upload.Form("Foto2").Save
	Else
  vFoto2 = "sem imagem no campoFoto2"
	End If

- exibimos os nomes das fotos se as mesmas existem, se não exibimos a mensagem de que nao há imagens nos respectivos campos

	response.write vFoto1 &"<br>"&vFoto2

Espero que tenha sido útil.

valeu
t+


----------------------
Para uma maior organização desta seção, todas as duvidas relacionadas a este tutorial devem ser tiradas na seguinte sala:-
http://forum.wmonlin...p?showforum=113

Edição feita por: Agente Linhares, 13/09/2005, 16:25.