@Dezipaitor:
So löse ich das aktuell ja auch, aber dennoch wartet man so erstmal den TimeOut ab, bevor man sagt "nee, da gibt's nix zu holen".
Ich hätte halt gern die Daten nur abgeholt, wenn überhaupt welche da sind,
anstatt 'ne Weile lang zu probieren, ob ich was rausbekomm.
@sparky:
Ja, ich hab schon einige Codes, leider sind die Meisten für's .net oder sie arbeiten "nur" via ReadFile,
welches zwar über BlueSoleil fast hervoragend arbeitet,
aber unter Windows 7 direkt mit dem Windows Bluetooth-Stack eben nicht.
Aber wiiuse klingt dennoch nett, drum schau ich's mir mal an.
Unter Windows sieben nutze muß statt WriteFile
HidD_SetOutputReport genommen werden, welches auch sehr gut funktioniert.
Statt ReadFile müßte
HidD_GetInputReport benutzt werden.
Damit gibt's zwar noch einige Problemchen, aber ReadFile funktioniert da definitiv garnicht.
Im Prinzip würde lieber komplett auf ReadFile/WriteFile verzichten, aber unter XP geht es nicht ohne BlueSoleil und somit muß ReadFile doch mit rein.
HidD_GetInputReport arbeitet jedenfalls nicht blockierend und somit würde ich auch gern das ReadFile direkt mit in dieser Funktion haben, falls HidD_GetInputReport nicht arbeitet.
Via Overlapped arbeitet ReadFile(Ex) zwar nicht blockierend, aber dennoch muß ich eine gewisse Zeit warten bis ich den Lesevorgang abbrech und mir sage "ok, da gibt es nichts zu holen".
Sieht bestimmt sehr chaotisch aus, aber so ist es halt, wenn man vieles ausprobiert.
Delphi-Quellcode:
Function THIDDevice.Recive(Var Buffer; Len: Integer): Boolean;
Var W, W2: LongWord;
O: TOverlapped;
E: LongWord;
Begin
FLock.BeginWrite;
Try
If not FConnected Then DoConectionError;
WriteLn('* BeginRead');
Byte(Buffer) := 0;
Result := HidD_GetInputReport(FPort, @Buffer, Len);
E := GetLastError;
If not Result Then WriteLn('* GetInputReport - error ', E);
If not Result and (E{GetLastError} in [ERROR_NOT_SUPPORTED, ERROR_CRC]) Then
// Result := ReadFile(FPort, Buffer, Len, W, nil) and (W = Len);
Begin
ZeroMemory(@O, SizeOf(O));
O.hEvent := LongWord(Self);
Result := ReadFileEx(FPort, @Buffer, Len, @O, @DummyReadCompletion)
and (SleepEx(50, True) = WAIT_IO_COMPLETION)
and GetOverlappedResult(FPort, O, W, False) and (W = Len);
If not Result Then CancelIO(FPort);
End;
E := GetLastError;
If not Result Then WriteLn('* ReadFile - error ', E);
WriteLn('* EndRead');
WriteLn;
// Begin
// ZeroMemory(@O, SizeOf(O));
// O.hEvent := LongWord(Self);
// If ReadFile(FPort, Buffer, Len, W, @O) Then Begin
// Result := SleepEx(10, True) = WAIT_IO_COMPLETION;
// If not Result Then CancelIo(FPort);
// End Else Result := False;
// ShowMessage(SysErrorMessage(GetLastError));
// End;
Finally
FLock.EndWrite;
End;
End;