Automation Error

[RecoX]

A veces pasa esto, pareceria que es por que faltan datos de algun paqueter.

Hay que arreglarlo.

[RecoX]

Public Function ReadASCIIString() As String
'***************************************************
'Autor: Juan Martin Sotuyo Dodero (Maraxus)
'Last Modification: 04/27/06
'Reads a variable length ASCII string from the queue and removes it
'***************************************************
    Dim buf(1) As Byte
    Dim Length As Integer
    
    'Make sure we can read a valid length
    If queueLength > 1 Then
        'Read the length
        Call ReadData(buf, 2)
        Call CopyMemory(Length, buf(0), 2)
        
        'Make sure there are enough bytes
        If queueLength >= Length + 2 Then
            'Remove the length
            Call RemoveData(2)
            
            If Length > 0 Then
                Dim buf2() As Byte
                ReDim buf2(Length - 1) As Byte
                
                
                'Read the data and remove it
                Call RemoveData(ReadData(buf2, Length))
                
                ReadASCIIString = StrConv(buf2, vbUnicode)
            End If
        Else
            Call Err.Raise(NOT_ENOUGH_DATA)
        End If
    Else
        Call Err.Raise(NOT_ENOUGH_DATA)
    End If
End Function

Muere en esta funcion.

[RecoX]

#721

deben de estar relacionados.