Oppure

Loading
20/05/08 14:32
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?
aaa
20/05/08 19:39
M@d_Hacker
Se vuoi visualizzare il buffer dell'invio.. 

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 20/05/08 19:44
aaa
20/05/08 20:16
P4p3r0g4
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 20/05/08 20:17
aaa
22/05/08 14:46
acromangelo@libero.it
Postato originariamente da M@d_Hacker:

Se vuoi visualizzare il buffer dell'invio.. 

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: 

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
aaa