M@d_Hacker (Ex-Member)
Expert
 
Messaggi: 254
Iscritto: 25/02/2008
|
Se vuoi visualizzare il buffer dell'invio..
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim buffer() As Byte Dim lBytes As Long Dim temp As String lBytes = 0 ReDim buffer(FileLen(dlg.FileName) - 1) 'visualizzi nome e dimensione file.. If temp = "OK" Then lBytes = lBytes + bytesSent lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent" 'VISUALIZZI I BYTES INVIATI IN TEMPO REALE..
|
Poi te lo aggiusti te il codice...X farti l'idea..
cIOè aggiungi le label... e poi questo codice prende il nome da 1 commondialog..
Ultima modifica effettuata da M@d_Hacker il 20/05/2008 alle 21:44 |
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
Postato originariamente da acromangelo@libero.it:
nel senso che il server mi invia l'immagine della web cam in modo nascosto...per quello che dicevo web cam nascosta
comunque qualche idea?
|
brutto inizio per farsi aiutare da BigG
Comunque il suo consiglio rimane il vigliore
Invio -->
<-- Conferma
Nuovo invio-->
<-- Conferma
ecc ec ecc.. Ultima modifica effettuata da P4p3r0g4 il 20/05/2008 alle 22:17 |
|
|
acromangelo@libero.it (Normal User)
Rookie
Messaggi: 21
Iscritto: 23/03/2008
|
Postato originariamente da M@d_Hacker:
Se vuoi visualizzare il buffer dell'invio..
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim buffer() As Byte Dim lBytes As Long Dim temp As String lBytes = 0 ReDim buffer(FileLen(dlg.FileName) - 1) 'visualizzi nome e dimensione file.. If temp = "OK" Then lBytes = lBytes + bytesSent lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent" 'VISUALIZZI I BYTES INVIATI IN TEMPO REALE..
|
Poi te lo aggiusti te il codice...X farti l'idea..
cIOè aggiungi le label... e poi questo codice prende il nome da 1 commondialog.. |
Sinceramente ho fatto delle prove...presupponendo che vada messo in Winsock1_SendProgress
ho provato a fare:
Codice sorgente - presumibilmente VB.NET |
On Error Resume Next lBytes = lBytes + bytesSent stato = lBytes & " out of " & UBound(buffer) & " bytes sent" 'VISUALIZZI I BYTES INVIATI In TEMPO REALE.. If UBound(buffer) = lBytes Then Winsock1.senddata "fine"
|
Ma guarda caso non va...
ho messo le altre cose al loro posto comunque options explicit e il redim
come vanno messi nel codice? uffi
ciao |
|
|
