Weiß jemand aus welchen Grunde die API Funktion auf die Variable vom TYP COMSTAT nix draufschreibt ? Ich kann keinen Fehler finden ? Private Type COMSTAT fCtsHold As Long fDsrHold As Long fRlsdHold As Long fXoffHold As Long fXoffSent As Long fEof As Long fTxim As Long fReserved As Long cbInQue As Long cbOutQue As Long End Type Private Declare Function ClearCommError Lib "kernel32" (ByVal hFile As Long, lpErrors As Long, lpStat As COMSTAT) As Long Public Function InBuffer(ByVal hFile As Long) As Long Dim H1, H2 As Long ' nicht von Interesse Dim ZZZ As COMSTAT ZZZ.cbInQue = 15 'Testen ob mit 0 überschrieben wird H1=ClearCommError(hFile, H2, ZZZ) InBuffer = ZZZ.cbInQue End Function Die Funktion lieferte immer 0 zurück, und seit dem ich sie zum Test vorbelegt habe, immer 15, obwohl Zeichen mit ReadFile aus dem Buffer gelesen werden können. Ich bin etwas ratlos. Gruß Peter
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.