Danke dir Flocke
ich habe das Problem lösen können habe aber schon wider ein neus:
Lösung des alten Problems:
die Deklaration sieht nun so aus:
Delphi-Quellcode:
var
btfrp: _BLUETOOTH_FIND_RADIO_PARAMS = (
dwSize: SizeOf(TBlueToothFindRadioParams ));
und die Zuweisung so:
Delphi-Quellcode:
btfrp.dwSize:=sizeof(btfrp);
hFind := BluetoothFindFirstRadio(@btfrp, hRadio );
BluetoothFindFirstRadio erwartet einen Pointer für btfrp dann habe ich einfach ein @ hingemacht
Neues Problem:
nun kann ichs starten und es kommt kein fehler aber es zeigt mir immer noch nichts schlaues an. und es kann noch nicht richtig auf die Infos zugreifen:
Delphi-Quellcode:
radioInfo.dwSize:= sizeof(radioInfo);
if (ERROR_SUCCESS = BluetoothGetRadioInfo(hRadio,radioInfo)) then
begin
memo1.Lines.Add('Radio: '+ radioInfo.szName)
end
else
begin
showmessage('error read RadioInfo');
end;
ERROR_SUCCESS wird zu false ausgewertet und somit wird das error showmessage aufgerufen.
Ich weiss aber nicht wieso denn hfind ist nicht 0 es wenn ich hfind anzeigen lasse hat hfind den wert 4 (den selben wert, welcher auch sizeof(btfrp) zurück gibt) hat jemand eine idee wieso ERROR_SUCCESS zu false ausgewertet wird??
Danke für eure Hilfe
Greetz CTV