Trasferire file da un pc all'altro mediante MSCOMM (VB)

[cionci]

Questa:

Private Sub SendMsg(num As Long, buf() As Byte) 
    Dim tmp(4) As Byte, I As Long 
    Dim v As Variant 
    tmp(1) = (num And &HFF000000) / &H1000000 
    tmp(2) = (num And &HFF0000) / &H10000 
    tmp(3) = (num And &HFF00) / &H100 
    tmp(4) = num And &HFF 
    v = tmp 
    mscomm1.Output = v 
    'Non so se buf vada ridimensionato comunque lo faccio uguale 
    ReDim Preserve buf(num) 
    v = buf 
    mscomm1.Output = v 
End Sub

[leon84]

Non capisco il perché di queste divisioni

[cionci]

Originally posted by "leon84"

Non capisco il perché di queste divisioni

Perchè un intero è fatto da 4 byte...e io devo assegnare ognuno di questi byte ad una posizione del vettore...
Sai cosa significa fare un AND bit a bit e uno shift (ho utilizzato la divisione al posto dello shift perchè in VB non sapevo come fare) ?

[leon84]

Se non sbaglio AND bit a bit significa che restituisce 1 se entrambi i bit sono 1 e 0 altrimenti giusto ? Lo shift è uno scambio ..... uno spostamento di elementi all'interno del vettore o di una lista dinamica ecc .... se ricordo bene . Ma cmq ancora non riesco a capire perché scomporre i 4 byte . Abbiamo detto che l'invio avviene su di un certo numero di byte , allora perché scomporli . Forse sarò tosto ma proprio non riesco a capirlo

[cionci]

Perchè ho letto che vengono inviati o stringhe o array di byte...ma non un intero e visto che non è convertibile direttamente in un vettore di byte allora lo converto io in un vettore di byte...
Prova a vedere se invia anche l'intero senza metterlo in un vettore di byte...

[leon84]

Originally posted by "cionci"

Perchè ho letto che vengono inviati o stringhe o array di byte...ma non un intero e visto che non è convertibile direttamente in un vettore di byte allora lo converto io in un vettore di byte...
Prova a vedere se invia anche l'intero senza metterlo in un vettore di byte...

Scusa ma ancora non ti seguo . Perché inviare l'intero ? Io apro il file ; leggo tot byte ed invio questi tot byte . Cos'altro devo fare ?

[leon84]

Un'altra cosa . Perché inviare prima la dimensione del pacchetto ? A cosa mi serve ?

[leon84]

Per creare un file in cui scrivere :
CreateFile(nomefile, GENERIC_WRITE, FILE_SHARE_READ, ByVal 0&, CREATE_ALWAYS, 0, 0)
Attento che sovrascrive i file già esistenti...

Scusa ma se io il file lo devo aprire per leggerlo come faccio se la create file me lo sovrascrive ? Siccome la ReadFile ha bisogno dell'handle del file c'è qualche altro modo per ottenerlo ?

[leon84]

Su un'altra cosa non mi trovo :

        Do
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0&
            'Ora richiamo la Sub che invia i dati
        Loop While read > 0

La variabile read che hai utilizzato conta il numero di byte letti giusto ? A meno che il file non sia vuoto queste istruzioni creano un ciclo infinito perché e il file che aprò non è vuoto read risulterà sempre maggiore di 0 . Ed infatti avviandolo con VB il programma si alluppa . Ti trovi ? E come dico io o ho interpretato male ?

[cionci]

Originally posted by "leon84"

Scusa ma se io il file lo devo aprire per leggerlo come faccio se la create file me lo sovrascrive ? Siccome la ReadFile ha bisogno dell'handle del file c'è qualche altro modo per ottenerlo ?

Questo era per la creazione del file in cui mettere i dati che ricevi Nell'esempio il file che apro lo apro normalmente (guarda la differenza fra i due metodi)...

Originally posted by "leon84"

Un'altra cosa . Perché inviare prima la dimensione del pacchetto ? A cosa mi serve ?

A sapere quanti byte leggere dopo !!! Altrimenti come fai a saperlo ?!?!?!?

[leon84]

Ah scusa ho capito queste istruzioni commettevo io l'errore . Ma non sarebbe meglio fare così la condizione di uscita ? Così risparmierei un cilco ti trovi ? Quanto alla CreateFile si ho capito , scusami . Poi un'altra cosa , come stanno le cose e siccome l'integer è di 4 byte non posso inviare un file superiore a 32 K ?

        Do 
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0& 
            'Ora richiamo la Sub che invia i dati 
        Loop While read <BYTE_PER_MSG

[cionci]

Originally posted by "leon84"

Su un'altra cosa non mi trovo :

        Do
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0&
            'Ora richiamo la Sub che invia i dati
        Loop While read > 0

La variabile read che hai utilizzato conta il numero di byte letti giusto ? A meno che il file non sia vuoto queste istruzioni creano un ciclo infinito perché e il file che aprò non è vuoto read risulterà sempre maggiore di 0 . Ed infatti avviandolo con VB il programma si alluppa . Ti trovi ? E come dico io o ho interpretato male ?

Strano che ti vada in loop...a meno lo fa...
La ReadFile cerca di leggere BYTE_PER_MSG byte dal file... Il numero di byte letti finisce in read... La posizione da cui si andrà a leggere dopo è quella successiva all'ultimo byte letto...quindi se il file ha una qualsiasi dimensione prima o poi read varrà zero (cioè nel ciclo successivo dopo che hai letto gli utlimi byte presenti nel file)...

[cionci]

Originally posted by "leon84"

Ah scusa ho capito queste istruzioni commettevo io l'errore . Ma non sarebbe meglio fare così la condizione di uscita ? Così risparmierei un cilco ti trovi ? Quanto alla CreateFile si ho capito , scusami . Poi un'altra cosa , come stanno le cose e siccome l'integer è di 4 byte non posso inviare un file superiore a 32 K ?

        Do 
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0& 
            'Ora richiamo la Sub che invia i dati 
        Loop While read <BYTE_PER_MSG

No perchè anche quando read è < di BYTE_PER_MSG quei byte letti li devi comunque inviare...
Inoltre è utile inviare anche un messaggio di lunghezza zero epr far capire al programma che sta dall'altra parte che il file è finito

[cionci]

Originally posted by "leon84"

        Do 
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0& 
            'Ora richiamo la Sub che invia i dati 
        Loop While read <BYTE_PER_MSG

Così poi non va bene...se il file è di dimensione superiore a BYTE_PER_MSG byte ti uscirebbe al primo ciclo
Se lo vuoi fare così lo devi scrivere in questo modo :

        Do 
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0& 
            'Ora richiamo la Sub che invia i dati 
        Loop Until read <BYTE_PER_MSG

In ogni caso valgono le considerazioni fatte sopra...

[leon84]

Si scusa ho dimenticato la funzione SendMsg read,buffer . Così andrebbe bene ?

        Do
            ReadFile f, buffer(1), BYTE_PER_MSG, read, ByVal 0&
            'Ora richiamo la Sub che invia i dati
            SendMsg read, buffer
        Loop While read < BYTE_PER_MSG

[cionci]

No serve Until al posto di While... Inoltre come ho già detto dovresti inviare anche un messaggio di lunghezza zero per far capire al programma che riceve il file che il file è terminato...

[leon84]

Originally posted by "cionci"

No serve Until al posto di While... Inoltre come ho già detto dovresti inviare anche un messaggio di lunghezza zero per far capire al programma che riceve il file che il file è terminato...

Ah si scusa che stupido , ci vuole Until . Un'altra cosa : ma l'istruzione int(data) a cosa serve ? A convertire da binario a decimale ?

[cionci]

Originally posted by "leon84"

Ah si scusa che stupido , ci vuole Until . Un'altra cosa : ma l'istruzione int(data) a cosa serve ? A convertire da binario a decimale ?

Dire "convertire da binario a decimale" non è esatto...perchè binario e decimale sono due rappresentazioni diverse dello stesso numero...ed in ogni caso qualsiasi numero nel PC è rappresentato solamente in binario...
Serve per covertire dal tipo Byte al tipo Integer....

[leon84]

Si ma implicitamente avviene quella conversione giusto ? Cmq guarda il codice che ho modificato della SendMSg

Private Sub SendMsg(num As Long, buf() As Byte)
Dim tmp(4) As Byte, I As Long
    Dim v As Variant
    tmp(1) = (num And &HFF000000) / &H1000000
    tmp(2) = (num And &HFF0000) / &H10000
    tmp(3) = (num And &HFF00) / &H100
    tmp(4) = num And &HFF
    v = tmp
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
    MSComm1.Output = v
    'Non so se buf vada ridimensionato comunque lo faccio uguale
    v = buf
    MSComm1.Output = v
    MSComm1.PortOpen = False
End Sub

Il ridimensionamento del buffer l'ho eliminato perché mi ha dato problemi . A proposito il ridimensionamento che io sapevo si faceva impostando la proprietà outbuffersize o inbuffersize dell'oggetto Mscomm . Quella istruzione che hai postato è valida lo stesso ? Cmq adesso mi è tutto chiaro . Leggo 16 byte alla volta che posso anche aumentare , ed invio sulla seriale i primi 4 byte che convertiti in integer mi danno 16 e successivamente i 16 byte del file . Fccio questo fino a quando read risulta minore del numero buffer . Ora mi chiedo : nell'evento Oncomm() dell'oggetto MSCOMM una proprietà cambierà a seconda se sono presenti elementi o meno sul buffer . Quando dovrò leggere dal buffer quali operazioni dovrò compiere ? In teoria dovrei leggere il numero 16 in questo caso e leggere i 16 byte e così via , ma in pratica nel buffer questi pacchetti come saranno disposti ?

[leon84]

Ah cionci , mi spieghi nel dettaglio l'operazioni si scomposizione dell'intero in 4 byte differenti ? Ci tengo particolarmente .