Hi,
Ich benutze ein Nokia Handy als Modem und möchte auf diesem AT Befehle ausführen.
Ich bekomme die Meldung „Error reading Comm Device“. MS kennst das „Problem“ und schreibt das ich andere Modem Treiber brauche /
Die gibt es aber nicht !!
Aussage von MS:
Dieses Problems wird dadurch verursacht, dass MSComm.Input nur die Byte liest, die in dem seriellen Treiber sofort verfügbar sind. Wenn der serielle Treiber beliebige Byte nicht empfangen hat, gibt MSComm.Input beliebige Byte nicht von Entwurf zurück. Wenn das auftritt, gibt MSComm den ComReadError-Fehler zurück, da das MSComm Steuerelement nicht erwartet, die ReadFile Methode ERROR_IO_PENDING zurückzugeben.
http://support.microsoft.com/kb/841700
oder: http://support.microsoft.com/kb/318784/
gibt es eine Alternative ? oder eine Lösung ?
mfg Jonny
Private Sub Form_Load ()
’ Buffer to hold input string
Dim Instring As String
’ Use COM1.
MSComm1.CommPort = 11
’ 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = „9600,N,8,1“
’ Tell the control to read entire buffer when Input
’ is used.
MSComm1.InputLen = 0
’ Open the port.
MSComm1.PortOpen = True
’ Send the attention command to the modem.
MSComm1.Output = „ATV1Q0“ & Chr$(13) ’ Ensure that
’ the modem responds with „OK“.
’ Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, „OK“ & vbCRLF)
’ Read the „OK“ response data in the serial port.
’ Close the serial port.
MSComm1.PortOpen = False
End Sub