Questo topic e' stato chiuso dal moderatore.
23/06/08 16:50
.:ViRuS:.
salve a tutti ragazzi ho un problema...
vorrei fare un'applicazione che invia e riceve files tramite winsock
ed ho usato questo codice per INVIARE il file:
Ora però ecco il mio problema....
NEl Ciclo For E Next... ci son in mezzo i codici get #1..... e tcp.senddata..
che servono per inviare i dati binari del file...
Ora... quando invio i dati.. devo dare il tempo all'altra parte di leggerli e di scriverli... per poi inviarmi un messaggio di conferma... "Writing Done"
quello che vorrei fare io è... che manda LA PARTE dei dati (la prima) poi... prima di andare a leggere "Next Conteggio" si mette in pausa NON IL PROGRAMMA.. ma il ciclo! che riprenderà il suo cammino SOLO e ripeto SOLO quando l'altra parte invierà "Writing Done" e quindi Data= "Writing Done"
Io ho provato con:
Solo che poi mettendo degli stop (Non so se si chiamano cosi, comunque sono quelle pause che si mettono col mouse per far stoppare il progr)
e ho notato che si ferma sempre su Loop.. e non va avanti..
Qualcuno può darmi qualche aiuto?
Grazie 1000!
vorrei fare un'applicazione che invia e riceve files tramite winsock
ed ho usato questo codice per INVIARE il file:
Open Dialog1.FileName For Binary As #1 DoEvents SentData = Space(30) For Conteggio = 0 To CLng(LOF(1) / 30) Get #1, Conteggio * CLng(30) + 1, SentData TCP.SendData "FileDataLoL" & SentData DoEvents Next Conteggio DoEvents Close #1 TCP.SendData "End Transfer"
Ora però ecco il mio problema....
NEl Ciclo For E Next... ci son in mezzo i codici get #1..... e tcp.senddata..
che servono per inviare i dati binari del file...
Ora... quando invio i dati.. devo dare il tempo all'altra parte di leggerli e di scriverli... per poi inviarmi un messaggio di conferma... "Writing Done"
quello che vorrei fare io è... che manda LA PARTE dei dati (la prima) poi... prima di andare a leggere "Next Conteggio" si mette in pausa NON IL PROGRAMMA.. ma il ciclo! che riprenderà il suo cammino SOLO e ripeto SOLO quando l'altra parte invierà "Writing Done" e quindi Data= "Writing Done"
Io ho provato con:
Do Until data= "Writing Done" Sleep 1000 Loop
Solo che poi mettendo degli stop (Non so se si chiamano cosi, comunque sono quelle pause che si mettono col mouse per far stoppare il progr)
e ho notato che si ferma sempre su Loop.. e non va avanti..
Qualcuno può darmi qualche aiuto?
Grazie 1000!
aaa