TRANSFERINDO ARQUIVOS
AE galera, to criando um chat multiusuario, e queria que fosse possÃvel compartilhar arquivos. é possÃvel fazer isso por winsock, pode ser bem simples, de um ip para o outro, arquivos como imagens, txt, etc.
VLW
VLW
Abra o Arquivo assim
Dim Dados() as byte
Dim Contador as Double
Redim Dados(1 to 1) as byte
Open Arquivo for binary as #1
For Contador = 1 to Lof(1)
Get#1, , Dados(Contador)
Redim Preserve Dados(Contador + 1) as Byte
next Contador
no winsok:
For X = 1 to ubound(Dados)
Winsock.send Dados(x)
next X
msgbox "Dados Enviados com Sucesso !"
Espero ter Ajudado
Dim Dados() as byte
Dim Contador as Double
Redim Dados(1 to 1) as byte
Open Arquivo for binary as #1
For Contador = 1 to Lof(1)
Get#1, , Dados(Contador)
Redim Preserve Dados(Contador + 1) as Byte
next Contador
no winsok:
For X = 1 to ubound(Dados)
Winsock.send Dados(x)
next X
msgbox "Dados Enviados com Sucesso !"
Espero ter Ajudado
Vlw, mas como eu recebo os arquivos e salvo em algum lugar?
Tópico encerrado , respostas não são mais permitidas