Troca de componente

[Sheiliemarcos 0]

Olá minha gente.... bem ... tenho um codigo em Persists.Upload com frame de progresso do upload que funciona perfeitamente... gostaria de saber se alguem ja fez com o componente SmartUpload..ou se posso fazer o seguinte... onde esta o componente Persists...

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

trocar pelo componente aspSmartUpload

Set UploadProgress = Server.CreateObject("aspSmartUpload.UploadProgress")

isso é possivel... tentei trocando apenas os nomes... mas nao funcionou... deu o seguinte erro..

Tipo de erro:Objeto Server, ASP 0177 (0x800401F3)Seqüência de classe inválida /final/Default.asp, line 73

onde a linha e justa onde cria o objeto.... se alguem puder me dar uma luz..

[Sheiliemarcos 0]

ja verifiquei.. nao tem nada... achei que pudesse adaptar o outro... tem como fazer como o smart.. ?

[ska_ska 0]

do jeito que tem no persits quase certeza que não... é um "diferencial" do componente, acredito eu... que usa o código do processo atual... e tal.. bem legalzinho por sinal....o que pode ter são scripts que fazem a mesma coisa, porém não baseada no componente em si.. e sim.. no tamanho do arquivo, tempo ocorrido, etc... nada muito seguro, acredito eu... procura nos forums, principalmente em ingles, sobre "progress bar upload", algo assim.. beleza?;)

[Sheiliemarcos 0]

ok.. vou fazer uma busca... achando resposta posto aqui novamente a soluçao.. vlw

[arr 0]

Um exemplo retirado do site.

 

Mais em http://www.aspsmart.com/aspSmartUpload/

 

<%

' Variables

' *********

Dim mySmartUpload

Dim file

Dim intCount

intCount=0

 

' Object creation

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

 

' Upload

' ******

mySmartUpload.Upload

 

' Select each file

' ****************

For each file In mySmartUpload.Files

' Only if the file exist

' **********************

If not file.IsMissing Then

' Save the files with his original names in a virtual path of the web server

' **************************************************************************

file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)

' sample with a physical path

' file.SaveAs("c:\temp\" & file.FileName)

 

' Display the properties of the current file

' ******************************************

Response.Write("Name = " & file.Name & "<BR>")

Response.Write("Size = " & file.Size & "<BR>")

Response.Write("FileName = " & file.FileName & "<BR>")

Response.Write("FileExt = " & file.FileExt & "<BR>")

Response.Write("FilePathName = " & file.FilePathName & "<BR>")

Response.Write("ContentType = " & file.ContentType & "<BR>")

Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")

Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")

Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")

intCount = intCount + 1

End If

Next

 

' Display the number of files which could be uploaded

' ***************************************************

Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

 

' Display the number of files uploaded

' ************************************

Response.Write(intCount & " file(s) uploaded.<BR>")

%>