SendFile tramite Chat[VB]

[BlackDemon]

salve ragazzi ho realizzato una piccola chat ma nn riesco a capire come fare a spedire e a ricevere file di qualsiasi estensioni, consigli in merito???

[Johnny_Depp]

leggi quà:

http://www.winsockvb.com/

[BlackDemon]

ciao Johnny_Depp grazie veramente x l'aiuto mi hai gia risolto grandi problemi grazie ancora
ciao

[jabjoint]

cmq in breve devi aprire il file con OPEN:
ottenere il suo contenuto.
ricorda che massimo puoi inviare 8192 byte alla volta.
quindi se il file sarà di maggiore dimensione dovrai ripetere il ciclo quante volte sarà necessario per inviare tutti i byte.
1 es:

Questo vale per i files di dimensione <= a 8192 bytes:

Dim strBuffer as string
Dim nFile as tring
nFile = "\file"
open nFile for binary as #1
strBuffer = String$(FileLen(nFile)
Get #1,,strBuffer
ws.sendData strBuffer 'invia
close #1

'dall' altra parte riceverai...
Dim strRiceve as string
ws2.getData strRiceve,vbString
Dim nFile as string
open nFile for binary as #1
put #1,,strRiceve
close #1