Troca de arquivos

[Claudio Neto 3]

Olá a todos.

 

O Winsock permite troca de arquivos entre usuários conectados entre si?

 

Se sim, como faço isso?

 

Obrigado.

[Marhault 1]

Permite sim...

Mas não existe uma função pronta para especificar o arquivo e ele enviar direto...

O que você tem fazer é "ler" o arquivo e pegar os valores Binários e enviar partes por partes... E no outro computador, na função DataArrival ele vai lendo essas partes Binárias e transformando novamente em um arquivo...

[Graymalkin 0]

Dê uma olhada nos meus tutoriais sobre Winsock (no segundo tem um exemplo de como enviar um arquivo pequeno):

 

http://desenvolvedores.net/modules.php?nam...icle&sid=27

http://desenvolvedores.net/modules.php?nam...icle&sid=26

 

Abraços,

 

Graymalkin

[Claudio Neto 3]

Muito obrigado aos dois.

 

Estou tentando realizar o tópico que me passou Graymalkin, mas está me dando um problema na seguinte linha:

 

"nome = Right(txtArquivo.Text, Len(txtArquivo.Text) - InStrRev(txtArquivo.Text, ""))"

 

"nome" está ficando em branco, ai quando o outro computador recebo o arquivo, dá erro.

 

Vou tentar simplesmente assim: nome = dir(txtArquivo.text) para ver se dá certo, se der ótimo, caso não, aviso aqui para ver se alguém consegue me ajudar.

 

Abraços...

[Claudio Neto 3]

É, isso adiantou sim, pelo menos no teste que fiz. Não entendi porque foi utilizado daquela maneira, se puder me explicar...

 

 

Abraços e muito obrigado.

[Graymalkin 0]

É, isso adiantou sim, pelo menos no teste que fiz. Não entendi porque foi utilizado daquela maneira, se puder me explicar...

Na verdade aquela linha é:

 

nome = Right(txtArquivo.Text, Len(txtArquivo.Text) - InStrRev(txtArquivo.Text, "\"))

Isso é para pegar somente o nome do arquivo, sem o caminho completo (ou seja, de "c:\pasta\arquivo.txt" pegaria apenas "arquivo.txt")

 

É porque o site removeu todas as "\" (contra-barra ou barra invertida) do artigo (note lá no começo também "c:autoexec.bat" ao invés de "c:\autoexec.bat").

 

Certo? ;)

 

Graymalkin

[Claudio Neto 3]

Hum, entendi. Mas de qualquer forma achei mais fácil: dir(text1.text)

 

 

E agradeço muitíssimo a colaboração.

 

 

Abraços...