Работа с Bluetooth в Delphi

Code:

procedure TfmMain.acDiscoverableUpdate(Sender: TObject);

var

SelectedItem: TListItem;

SelectedNode: TTreeNode;

begin

SelectedNode := TreeView.Selected;

SelectedItem := ListView.Selected;

with TAction(Sender) do

begin

Enabled := Assigned(SelectedNode) and Assigned(SelectedItem) and (SelectedNode.ImageIndex = -1);

if Enabled then

if StrToBool(SelectedItem.SubItems[5])

then Caption := 'Not disc.'

else Caption := 'Discoverable';

end;

end;

Code:

procedure TfmMain.acConnectableExecute(Sender: TObject);

var

SelectedItem: TListItem;

begin

SelectedItem := ListView.Selected;

if Assigned(SelectedItem) then

if not BluetoothEnableIncomingConnections(Integer(SelectedItem.Data), TAction(Sender).Caption = 'Not conn.')

then MessageDlg('Unable to change Radio state', mtError, [mbOK], 0)

else TreeViewChange(TreeView, TreeView.Selected);

end;

Code:

procedure TfmMain.acConnectableExecute(Sender: TObject);

var

SelectedItem: TListItem;

begin

SelectedItem := ListView.Selected;

if Assigned(SelectedItem) then

if not BluetoothEnableDiscovery(Integer(SelectedItem.Data), TAction(Sender).Caption = 'Not disc.')

then MessageDlg('Unable to change Radio state', mtError, [mbOK], 0)

else TreeViewChange(TreeView, TreeView.Selected);

end;