device_id := hci_get_route ( nil ) if ( device_id < 0 ) then raise Exception. FindBlueToothClick ( Sender : TObject ) var device_id, device_sock : cint scan_info : array of inquiry_info scan_info_ptr : Pinquiry_info found_devices : cint DevName : array of Char PDevName : PCChar RemoteName : array of Char PRemoteName : PCChar i : Integer timeout1 : Integer = 5 timeout2 : Integer = 5000 begin // get the id of the first bluetooth device. The BlueZ libraries plus their development files must be installed.
FREE PASCAL RANDOM 255 MAC OS X
Eventually it will support Windows, Mac OS X and other platforms and will get some platform independent Wrapper functions/classes. The latest stable release can be found on the Lazarus CCR Files page.Īt the moment the package only supports Linux. LGPL (please contact the author if the LGPL doesn't work with your project licensing) It contains examples, like accessing the Wii Remote. The bluetoothlaz package provides bindings and functions to access bluetooth devices under various platforms. 8.1 Identifying reachable Bluetooth devices.
0 kommentar(er)
