Ich möchte ein tool coden welches anhand der Qualität der Verbindung von Hany zu PC bei abnehmender Qualität des Signales den pc lockt. Dies über Bluetooth, damit soll erreicht werden, dass wenn ich mich mit meinem Handy vom PC entferne dass der automatisch glockt wird.
Ich hab diese
API gefunden welche ich nun anzuwenden versuche:
JwaBluetoothAPIs
Mein Problem ist nun dass es mir irgendwie immer falsche werte zurück liefert ich habe in erster Lienie mal versucht überhaupt Informationen eines Bluetooth Geräts welches in der nähe ist zu bekommen. und zwar so:
Delphi-Quellcode:
function HexB(b: Byte): string;
const
HexChar: array[0..15] of char = '0123456789ABCDEF';
begin
HexB := HexChar[b shr 4] + HexChar[b and $0F];
end;
function btadresstostr(adr:_BLUETOOTH_ADDRESS):string;
var i:integer;
begin
result:='';
for i:=0 to 4 do
begin
result:=result+HexB(adr.rgBytes[i])+':';
end;
result:=result+HexB(adr.rgBytes[5]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
pbtsp: BLUETOOTH_DEVICE_SEARCH_PARAMS;
pbtdi:BLUETOOTH_DEVICE_INFO;
r:HBLUETOOTH_DEVICE_FIND;
begin
r:= BluetoothFindFirstDevice(pbtsp,pbtdi);
showmessage(btadresstostr(pbtdi.address));
showmessage(pbtdi.szName);
showmessage(inttostr(pbtdi.Address.ullLong));
end;
pbtdi.address enthält die MAC adresse in eimem array of byte diesen teil konvertiere ich wider zu hex um
ich kriebe werte jedoch stimmen die nicht mit den wirklichen überein und jedes mal wenn ich neu compieliere erhalte ich wider andere werte ich vermute irgend was ist noch nicht iniialisiert hat jemand eine idee was ich noch machen muss damit es klappt?
danke für eure hilfe
greetz Cy