Moin!
Ich habe Buzzer der Playstation 2 an meinem PC angeschlossen
um damit ein kleines Musikquiz-Programm zu unterstützen.
Das funktioniert soweit auch super, insbesondere dank der
HID-Komponente von Robert Marquardt.
Nun haben die Buzzer aber auch die Möglichkeit zu leuchten.
Und ich bekomme nicht heraus, was ich an die Dinger senden
muss, damit das Licht der verschiedenen Buzzer an bzw. aus
geht. Ich hab schon mit einer Schleife jeden Wert zwischen
$00 und $FF rüber gejagt, aber es herrscht das Schweigen im
Walde. Wie man in so ein HID-Device schreibt hab ich aus
einem anderen Thema ebenfalls von Rober Marquardt abgekupfert:
Delphi-Quellcode:
for ch := $00 to $FF do
begin
FillChar(Report, SizeOf(Report), 0);
// das ist ziemlich aufwaendig dafuer das wir nur eine Usage im Report setzen wollen
Report.ReportID := 0;
// wir wollen in einen Output-Report schreiben
Buzzer.ReportTypeParam := HidP_Output;
// das benennt die spezifische Usage die gesetzt werden soll
Buzzer.UsagePageParam := HID_USAGE_PAGE_CONSUMER;
Buzzer.LinkCollectionParam := $01; // CollectionType=Application
Buzzer.UsageParam := HID_USAGE_CONSUMER_CONSUMER_CONTROL;
// den Wert setzen (LED Maximum)
Buzzer.SetUsageValue(ch, Report, Buzzer.Caps.OutputReportByteLength);
// ab damit ans Geraet
Buzzer.WriteFile(Report, Buzzer.Caps.OutputReportByteLength, Written);
ShowMessage('Gesendet: '+IntToStr(ord(ch)));
end;
Kann mir jemand helfen, damit mir ein Licht aufgeht?
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]