[Vb6] Gestione porta seriale

[gkcuvb]

Ho realizzato un programma che deve gestire la porta seriale per ricevere dati da un moden GSM ed ho utilizzato il seguente codice:

Private Sub Comm1_OnComm()
Dim posizione As Integer
Dim j As Integer
Dim Buffer As Variant

On Error Resume Next

Select Case Comm1.CommEvent

Case comEvReceive

If (FrmMain.Comm1.InBufferCount > 0) And (FrmMain.Comm1.PortOpen = True) Then

InputData = ""
FrmMain.Comm1.InputLen = 0
While FrmMain.Comm1.InBufferCount > 0
Buffer = FrmMain.Comm1.Input
For j = 0 To UBound(Buffer)
InputData = InputData & Chr(CByte(Buffer(j)))
Next j
Wend


FrmMain.Comm1.InBufferCount = 0
'Chiamata alla funzione di decodifica
If InputData <> "" Then decodifica_com InputData
End If

End Select

Ogni tanto, ma non sempre, compare uno di questi due errori

Errore 92 For Loop not initialized
Oppure
Out of string space

Penso che siano dovuti a questa parte di programma in quanto il ciclo for è soltanto qui, ma non riesco a capire a cosa possano essere dovuti. Ero convinta che avendo messo InBufferCount > 0 avrei potuto tutelarmi da questi problemi ma non è così...
Non so più che pesci prendere.....

[P8257 WebMaster]

Buffer è un'array?
Ho come l'impressione che il problema sia dovuto al fatto che certe volte questo 'buffer' possa essere nullo oppure avere addirittura una quantità di dati che supera lo stesso spazio stringa di Vb...

Fai dei controlli su 'buffer' prima di andare nel ciclo ..

Un consiglio:
Cerca di spostare la definizione del tipo dati 'buffer' da Variant ad un tipo dati definito ... sarà senz'altro più gestibile e comprensibile ...

Variant ...

Bye