UPLOAD DE ARQUIVO - ANEXAR DOCUMENTOS NO CADASTRO
bom... a 1 primeira opção é bem mais interessante - Criar um servidor FTP no seu server, ao qual vc vai [Ô]subir[Ô] a imagem ao completar a operação de associação(mais complexo, mas mais seguro).
porém, não tenho a mÃnima idéia como codificar o servidor FTP.. para subir as imagens... em uma pasta
porém, não tenho a mÃnima idéia como codificar o servidor FTP.. para subir as imagens... em uma pasta
Não precisa criar um servidor FTP, existem vários por aà gratuÃtos que vc pode usar, basta procurar no google que vc vai ver centenas deles...
blz, irei da uma procurada,,, muito obrigado pela atenção...
Disponha 
bom dia, a todos.... encontrei na net um exemplo de script FTP mas estou tendo dificuldades de melhorar.. eu consigo enviar uma imagem JPG para o servidor web. agora preciso identificar o tambanho da imagem e colocar uma barra de progresso contando seu estatus de enviou e determinar um tamanho máximo do arquivo. Obrigado a todos.....por enquanto é só.. rsrsr
Private Sub Command1_Click()
Dim I1 As Long
Dim Stemp As String
Dim Done As Boolean
CommonDialog1.Filter = [Ô]All Files (*.*)|*.*|Text Files (*.jpg)|*.jpg[Ô]
CommonDialog1.FilterIndex = 2
CommonDialog1.InitDir = [Ô]C:\ftp\[Ô]
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> [Ô][Ô] Then
Inet1.Protocol = icFTP
Inet1.URL = [Ô]ftp://ftp.xxxxxxxx.com.br/Fotos[Ô]
Inet1.UserName = [Ô]xxxxxxxxx[Ô]
Inet1.Password = [Ô]xxxxxxxxx[Ô]
Stemp = CommonDialog1.FileName
I1 = InStr(1, Stemp, [Ô]\[Ô], vbTextCompare)
While Done = False
If I1 > 1 Then
Stemp = Mid(Stemp, I1 + 1, 256)
Else
Done = True
End If
I1 = InStr(1, Stemp, [Ô]\[Ô], vbTextCompare)
Wend
Inet1.Execute Inet1.URL, [Ô]PUT [Ô] & Stemp & [Ô] [Ô] & Stemp
[ô]Inet1.Execute , [Ô]PUT [Ô] & txtnomearq.Text & [Ô] [Ô] & txtcaminhoftp.Text
While Inet1.StillExecuting = True
DoEvents
Wend
Text1.Text = Inet1.OpenURL(Inet1.URL & [Ô]/[Ô] & Stemp, icString)
If Len(Text1.Text) = 0 Then
MsgBox ([Ô]Não foi possivel enviar este arquivo[Ô])
Else
MsgBox ([Ô]Arquivo enviado com sucesso![Ô])
End If
End If
End Sub
}[Ô]acho que vai servir pra muitos amigos que estão precisando disso também...[Ô]
Private Sub Command1_Click()
Dim I1 As Long
Dim Stemp As String
Dim Done As Boolean
CommonDialog1.Filter = [Ô]All Files (*.*)|*.*|Text Files (*.jpg)|*.jpg[Ô]
CommonDialog1.FilterIndex = 2
CommonDialog1.InitDir = [Ô]C:\ftp\[Ô]
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> [Ô][Ô] Then
Inet1.Protocol = icFTP
Inet1.URL = [Ô]ftp://ftp.xxxxxxxx.com.br/Fotos[Ô]
Inet1.UserName = [Ô]xxxxxxxxx[Ô]
Inet1.Password = [Ô]xxxxxxxxx[Ô]
Stemp = CommonDialog1.FileName
I1 = InStr(1, Stemp, [Ô]\[Ô], vbTextCompare)
While Done = False
If I1 > 1 Then
Stemp = Mid(Stemp, I1 + 1, 256)
Else
Done = True
End If
I1 = InStr(1, Stemp, [Ô]\[Ô], vbTextCompare)
Wend
Inet1.Execute Inet1.URL, [Ô]PUT [Ô] & Stemp & [Ô] [Ô] & Stemp
[ô]Inet1.Execute , [Ô]PUT [Ô] & txtnomearq.Text & [Ô] [Ô] & txtcaminhoftp.Text
While Inet1.StillExecuting = True
DoEvents
Wend
Text1.Text = Inet1.OpenURL(Inet1.URL & [Ô]/[Ô] & Stemp, icString)
If Len(Text1.Text) = 0 Then
MsgBox ([Ô]Não foi possivel enviar este arquivo[Ô])
Else
MsgBox ([Ô]Arquivo enviado com sucesso![Ô])
End If
End If
End Sub
}[Ô]acho que vai servir pra muitos amigos que estão precisando disso também...[Ô]
Pelo que eu pude ver:
Stemp conterá o tamanho do arquivo;
O primeiro loop vai ler o arquivo e criar uma string que vai ser enviada;
O segundo loop, (StillExecuting) vai monitorar se o upload ainda está em andamento;
O que não entendi, é porque vc está fazendo do modo mais difÃcil? Veja este cliente FTP, é bem mais simples...
Stemp conterá o tamanho do arquivo;
O primeiro loop vai ler o arquivo e criar uma string que vai ser enviada;
O segundo loop, (StillExecuting) vai monitorar se o upload ainda está em andamento;
O que não entendi, é porque vc está fazendo do modo mais difÃcil? Veja este cliente FTP, é bem mais simples...
por incrivel que pareça, eu nao conseguir fazer funcionar esse lá do macoratti... e já esse achei mais simples....
olá.. pessoal... alguma ajuda ?
Olá. pessoal... será que alguem possa ajudar.. ? estou dependendo muito desse script FTP..
por favor, obrigado pela atenção de todos..
por favor, obrigado pela atenção de todos..
Armazenando o arquivo numa pasta do servidor, como ficaria a parte de segurança?
Tópico encerrado , respostas não são mais permitidas