[VB6] Uitlezen GSM met MSCOMM via infrarood

[Verwijderd]

Hallo allemaal,

we proberen een SMS te verzenden in Visual Basic met het MSCOMM control en met behulp van AT commando's.

Wanneer we alleen commando's naar de GSM toesturen (zonder foutcontrole) gaat het goed! Het probleem wat we hebben (ERROR 8020: ERROR READING COMM DEVICE) treed pas op als we data van de GSM willen ontvangen (voor foutcontrole).

We gebruiken een Nokia 6610 via Infrarood.

Het vreemde is, dat hyperterminal wel data kan ontvangen wanneer we de commando's naar de GSM verzenden.

Hieronder de code die we gebruiken:

Visual Basic:

    MSComm1.CommPort = 3
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True

    buffer = send_command("AT" + vbCr, 10000)

    Function send_command(s As String, waittime As Long) As String
    Dim buffer As String
    Dim starttime As Long
    MSComm1.InBufferCount = 0
        
    MSComm1.Output = s
    
    starttime = GetTickCount
    Do
        DoEvents
    Loop Until msverschil(starttime, GetTickCount) > waittime Or MSComm1.InBufferCount > 0
    
    If MSComm1.InBufferCount > 0 Then
        buffer = MSComm1.Input 'HIER GAAT HET FOUT!
    End If
    
    send_command = buffer
    End Function

Het probleem treed dus pas op wanneer we de Input van MSCOMM proberen uit te lezen. Heeft iemand ervaring met dit probleem? Of is er iemand die succesvol een SMS applicatie heeft gebouwd met Error Handling?!

Alvast bedankt voor de reacties.

[farlane]

Misschien moet je eerst wat handschaking doen ... ?