PDA

Visualizza la versione completa : SendFile tramite Chat[VB]


BlackDemon
13-11-2002, 20:14
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???:D

Johnny_Depp
13-11-2002, 20:28
leggi quā:

http://www.winsockvb.com/

BlackDemon
13-11-2002, 20:58
ciao Johnny_Depp grazie veramente x l'aiuto mi hai gia risolto grandi problemi grazie ancora
ciao

jabjoint
13-11-2002, 21:37
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

Loading