Bluetooth Framework and RFCOMM Protocol

void __fastcall TfmMain::btEnumServicesClick(TObject *Sender)
{
  if (lvDevices->Selected == NULL)
    MessageDlg("Select device", mtWarning, TMsgDlgButtons() << mbOK, 0);
  else
  {
    ClearServices();
    TListItem* Item = lvDevices->Selected;
    TwclBluetoothRadio* Radio = (TwclBluetoothRadio*)Item->Data;
    __int64 Address = StrToInt64("$" + Item->SubItems->Strings[0]);
    TwclBluetoothServices Services;
    int Res = Radio->EnumRemoteServices(Address, NULL, Services);
    if (Res != WCL_E_SUCCESS)
      ShowError(Res);
    else
    {
      for (int i = 0; i < Services.Length; i++)
      {
        Item = lvServices->Items->Add();
        Item->Caption = Radio->ApiName;
        Item->SubItems->Add(IntToHex(Address, 12));
        Item->SubItems->Add(IntToHex((int)Services[i].Handle, 8));
        Item->SubItems->Add(Sysutils::GUIDToString(Services[i].Uuid));
        Item->SubItems->Add(IntToStr(Services[i].Channel));
        Item->SubItems->Add(Services[i].Name);
        Item->SubItems->Add(Services[i].Comment);
      }
    }
  }
}

private void btEnumServices_Click(object sender, EventArgs e)
{
    if (lvDevices.SelectedItems.Count == 0)
        MessageBox.Show("Select device", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning);
    else 
    {
        ClearServices();
        ListViewItem Item = lvDevices.SelectedItems[0];
        wclBluetoothRadio Radio = (wclBluetoothRadio)Item.Tag;
        Int64 Address = Convert.ToInt64(Item.SubItems[1].Text, 16);
        wclBluetoothService[] Services;
        Guid g = Guid.Empty;
        Int32 Res = Radio.EnumRemoteServices(Address, g, out Services);
        if (Res != wclErrors.WCL_E_SUCCESS)
            ShowError(Res);
        else
        {
            if (Services != null)
            {
                try
                {
                    foreach(wclBluetoothService Service in Services)
                    {
                        Item = lvServices.Items.Add(Radio.ApiName);
                        Item.SubItems.Add(Address.ToString("X12"));
                        Item.SubItems.Add(Service.Handle.ToString("X8"));
                        Item.SubItems.Add(Service.Uuid.ToString());
                        Item.SubItems.Add(Service.Channel.ToString());
                        Item.SubItems.Add(Service.Name);
                        Item.SubItems.Add(Service.Comment);
                    }
                }
                finally
                {
                    Services = null;
                }
            }
        }
    }
}

Private Sub btEnumServices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnumServices.Click
    If lvDevices.SelectedItems.Count = 0 Then
        MessageBox.Show("Select device", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Else
        ClearServices()
        Dim Item As ListViewItem = lvDevices.SelectedItems(0)
        Dim Radio As wclBluetoothRadio = CType(Item.Tag, wclBluetoothRadio)
        Dim Address As Int64 = Convert.ToInt64(Item.SubItems(1).Text, 16)
        Dim Services() As wclBluetoothService = Nothing
        Dim g As Guid = Guid.Empty
        Dim Res As Int32 = Radio.EnumRemoteServices(Address, g, Services)
        If Res <> wclErrors.WCL_E_SUCCESS Then
            ShowError(Res)
        Else
            If Services IsNot Nothing Then
                Try
                    For Each Service As wclBluetoothService In Services
                        Item = lvServices.Items.Add(Radio.ApiName)
                        Item.SubItems.Add(Address.ToString("X12"))
                        Item.SubItems.Add(Service.Handle.ToString("X8"))
                        Item.SubItems.Add(Service.Uuid.ToString())
                        Item.SubItems.Add(Service.Channel.ToString())
                        Item.SubItems.Add(Service.Name)
                        Item.SubItems.Add(Service.Comment)
                    Next Service
                Finally
                    Services = Nothing
                End Try
            End If
        End If
    End If
End Sub

void CBluetoothManagerDlg::OnBnClickedButtonEnumServices()
{
	POSITION Pos = lvDevices.GetFirstSelectedItemPosition();
	if (Pos == NULL)
		AfxMessageBox(_T("Select device"));
	else
	{
		ClearServices();
		int Item = lvDevices.GetNextSelectedItem(Pos);
		CwclBluetoothRadio* Radio = (CwclBluetoothRadio*)lvDevices.GetItemData(Item);
		__int64 Address = StrToInt64(lvDevices.GetItemText(Item, 1));
		wclBluetoothServices Services;
		int Res = Radio->EnumRemoteServices(Address, NULL, Services);
		if (Res != WCL_E_SUCCESS)
			ShowError(Res);
		else
		{
			if (Services.size() > 0)
			{
				try
				{
					int ndx = 0;
					for (wclBluetoothServices::iterator i = Services.begin(); i != Services.end(); i++)
					{
						LPOLESTR Guid;
						StringFromCLSID((*i).Uuid, &Guid);
						lvServices.InsertItem(ndx, Radio->GetApiName().c_str());
						lvServices.SetItemText(ndx, 1, IntToHex(Address));
						lvServices.SetItemText(ndx, 2, IntToHex((int)(*i).Handle));
						lvServices.SetItemText(ndx, 3, Guid);
						lvServices.SetItemText(ndx, 4, IntToStr((*i).Channel));
						lvServices.SetItemText(ndx, 5, (*i).Name.c_str());
						lvServices.SetItemText(ndx, 6, (*i).Comment.c_str());
						CoTaskMemFree(Guid);
						ndx ++;
					}
				}
				finally(
					Services.clear();
				)
			}
		{
	}
}

public struct wclBluetoothService
{
    public UInt32 Handle;
    public Guid Uuid;
    public Byte Channel;
    public String Name;
    public String Comment;
};

typedef struct
{
	unsigned long Handle;
	GUID Uuid;
	unsigned char Channel;
	tstring Name;
	tstring Comment;
} wclBluetoothService;

void __fastcall TfmMain::btConnectClick(TObject *Sender)
{
  if (lvDevices->Selected == NULL)
    MessageDlg("Select device", mtWarning, TMsgDlgButtons() << mbOK, 0);
  else
  {
    TwclBluetoothRadio* Radio = GetRadio();
    if (Radio != NULL)
    {
      wclRfCommClient->Address = StrToInt64("$" + lvDevices->Selected->Caption);
      wclRfCommClient->Authentication = cbAuthentication->Checked;
      wclRfCommClient->Encryption = cbEncryption->Checked;
      wclRfCommClient->Timeout = StrToInt(edTimeout->Text);
      wclRfCommClient->Channel = 0;
      wclRfCommClient->Service = SerialPortServiceClass_UUID;
      bool Connect = false;
      if (cbServiceName->Checked)
      {
        TwclBluetoothServices Services;
        TGUID Service = wclRfCommClient->Service;
        int Res = Radio->EnumRemoteServices(wclRfCommClient->Address,
          &Service, // Se are looking for specified services only!
          Services);
        if (Res != WCL_E_SUCCESS)
          MessageDlg("Service enumerating error: 0x" + IntToHex(Res, 8), mtError, TMsgDlgButtons() << mbOK, 0);
        else
        {
          if (Services.Length == 0)
            ShowMessage("Services not found");
          else
          {
            for (int i = 0; i < Services.Length; i++)
            {
              if (Services[i].Name == edServiceName->Text)
              {
                wclRfCommClient->Channel = Services[i].Channel;
                Connect = true;
                break;
              }
            }
            if (!Connect)
              ShowMessage("Service not found");
          }
        }
      }
      else
        Connect = true;
      if (Connect)
      {
        int Res = wclRfCommClient->Connect(Radio);
        if (Res != WCL_E_SUCCESS)
          MessageDlg("Error: 0x" + IntToHex(Res, 8), mtError, TMsgDlgButtons() << mbOK, 0);
      }
    }
  }
}

private void btConnect_Click(object sender, EventArgs e)
{
    if (lvDevices.SelectedItems.Count == 0)
        MessageBox.Show("Select device", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning);
    else
    {
        wclBluetoothRadio Radio = GetRadio();
        if (Radio != null)
        {
            Client.Address = Convert.ToInt64(lvDevices.SelectedItems[0].Text, 16);
            Client.Authentication = cbAuthentication.Checked;
            Client.Encryption = cbEncryption.Checked;
            Client.Timeout = (UInt32)Convert.ToInt32(edTimeout.Text);
            Client.Channel = 0;
            Client.Service = wclUUIDs.SerialPortServiceClass_UUID;
            Boolean Connect = false;
            if (cbServiceName.Checked)
            {
                Guid Service = Client.Service;
                wclBluetoothService[] Services;
                Int32 Res = Radio.EnumRemoteServices(Client.Address,
                    Service, // Se are looking for specified services only!
                    out Services);
                if (Res != wclErrors.WCL_E_SUCCESS)
                    MessageBox.Show("Service enumerating error: 0x" + Res.ToString("X8"));
                else
                {
                    if (Services == null || Services.Length == 0)
                        MessageBox.Show("Services not found");
                    else
                    {
                        foreach (wclBluetoothService s in Services)
                        {
                            if (s.Name == edServiceName.Text)
                            {
                                Client.Channel = s.Channel;
                                Connect = true;
                                break;
                            }
                        }
                        if (!Connect)
                            MessageBox.Show("Service not found");
                    }
                }
            }
            else
                Connect = true;
            if (Connect)
            {
                Int32 Res = Client.Connect(Radio);
                if (Res != wclErrors.WCL_E_SUCCESS)
                    MessageBox.Show("Error: 0x" + Res.ToString("X8"), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }
    }
}

Private Sub btConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConnect.Click
    If lvDevices.SelectedItems.Count = 0 Then
        MessageBox.Show("Select device", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Else
        Dim Radio As wclBluetoothRadio = GetRadio()
        If Radio IsNot Nothing Then
            Client.Address = Convert.ToInt64(lvDevices.SelectedItems(0).Text, 16)
            Client.Authentication = cbAuthentication.Checked
            Client.Encryption = cbEncryption.Checked
            Client.Timeout = Convert.ToInt32(edTimeout.Text)
            Client.Channel = 0
            Client.Service = wclUUIDs.SerialPortServiceClass_UUID
            Dim Connect As Boolean = False
            If cbServiceName.Checked Then
                Dim Service As Guid = Client.Service
                Dim Services As wclBluetoothService()
                Dim Res As Int32 = Radio.EnumRemoteServices(Client.Address, Service, Services)
                If Res <> wclErrors.WCL_E_SUCCESS Then
                    MessageBox.Show("Service enumerating error: 0x" + Res.ToString("X8"))
                Else
                    If Services Is Nothing Or Services.Length = 0 Then
                        MessageBox.Show("Services not found")
                    Else
                        Dim s As wclBluetoothService
                        For Each s In Services
                            If s.Name = edServiceName.Text Then
                                Client.Channel = s.Channel
                                Connect = True
                                Exit For
                            End If
                        Next s
                        If Not Connect Then
                            MessageBox.Show("Service not found")
                        End If
                    End If
                End If
            Else
                Connect = True
            End If
            If Connect Then
                Dim Res As Int32 = Client.Connect(Radio)
                If Res <> wclErrors.WCL_E_SUCCESS Then
                    MessageBox.Show("Error: 0x" + Res.ToString("X8"), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            End If
        End If
    End If
End Sub

void CRfCommClientDlg::OnBnClickedButtonConnect()
{
	POSITION Pos = lvDevices.GetFirstSelectedItemPosition();
	if (Pos == NULL)
		AfxMessageBox(_T("Select device"));
	else
	{
		int Item = lvDevices.GetNextSelectedItem(Pos);

		CwclBluetoothRadio*  Radio = GetRadio();
		if (Radio != NULL)
		{
			wclRfCommClient.SetAddress(StrToInt64(lvDevices.GetItemText(Item, 0)));
			wclRfCommClient.SetAuthentication(cbAuthentication.GetCheck() != 0);
			wclRfCommClient.SetEncryption(cbEncryption.GetCheck() != 0);
			CString s;
			edTimeout.GetWindowText(s);
			wclRfCommClient.SetTimeout(StrToInt(s));

			wclRfCommClient.SetChannel(0);
			wclRfCommClient.SetService(SerialPortServiceClass_UUID);
			
			bool Connect = false;
			if (cbServiceName.GetCheck())
			{
				GUID Service = wclRfCommClient.GetService();
				wclBluetoothServices Services;
				int Res = Radio->EnumRemoteServices(wclRfCommClient.GetAddress(), &Service, Services);
				if (Res != WCL_E_SUCCESS)
					AfxMessageBox(_T("Service enumerating error: 0x") + IntToHex(Res));
				else
				{
					if (Services.size() == 0)
						AfxMessageBox(_T("Services not found"));
					else
					{
						for (wclBluetoothServices::iterator s = Services.begin(); s != Services.end(); s++)
						{
							CString str;
							edServiceName.GetWindowText(str);
							tstring strs(str);
							if ((*s).Name == strs)
							{
								wclRfCommClient.SetChannel((*s).Channel);
								Connect = true;
								break;
							}
						}
						
						if (!Connect)
							AfxMessageBox(_T("Service not found"));
					}
				}
			}
			else
				Connect = true;
			
			if (Connect)
			{
				int Res = wclRfCommClient.Connect(Radio);
				if (Res != WCL_E_SUCCESS)
					AfxMessageBox(_T("Error: 0x") + IntToHex(Res));
			}
		}
	}
}

void __fastcall TfmMain::wclRfCommClientConnect(TObject *Sender, const int Error)
{
  if (Error == WCL_E_SUCCESS)
  {
    lbEvents->Items->Add("Connected");
    GetBuffers();
  }
  else
    lbEvents->Items->Add("Connect error: 0x" + IntToHex(Error, 8));
}

void Client_OnConnect(object Sender, int Error)
{
    if (Error == wclErrors.WCL_E_SUCCESS)
    {
        lbEvents.Items.Add("Connected");
        GetBuffers();
    }
    else
        lbEvents.Items.Add("Connect error: 0x" + Error.ToString("X8"));
}

Private Sub Client_OnConnect(ByVal Sender As Object, ByVal [Error] As Integer) Handles Client.OnConnect
    If [Error] = wclErrors.WCL_E_SUCCESS Then
        lbEvents.Items.Add("Connected")
        GetBuffers()
    Else
        lbEvents.Items.Add("Connect error: 0x" + [Error].ToString("X8"))
    End If
End Sub

void CRfCommClientDlg::wclRfCommClientConnect(void* Sender, int Error)
{
	if (Error == WCL_E_SUCCESS)
	{
		lbEvents.AddString(_T("Connected"));
		GetBuffers();
	}
	else
		lbEvents.AddString(_T("Connect error: 0x") + IntToHex(Error));
}

void __fastcall TfmMain::btSendClick(TObject *Sender)
{
  AnsiString Ansi = AnsiString(edText->Text);
  unsigned int Sent = 0;
  int Res = wclRfCommClient->Write(Ansi.c_str(), Ansi.Length(), Sent);
  if (Res != WCL_E_SUCCESS)
    MessageDlg("Error: 0x" + IntToHex(Res, 8), mtError,
      TMsgDlgButtons() << mbOK, 0);
  else
    MessageDlg("Sent: " + IntToStr((int)Sent) + " from " + IntToStr(Ansi.Length()),
      mtInformation, TMsgDlgButtons() << mbOK, 0);
}

private void btSend_Click(object sender, EventArgs e)
{
    Byte[] Ansi = Encoding.ASCII.GetBytes(edText.Text);
    UInt32 Sent = 0;
    Int32 Res = Client.Write(Ansi, out Sent);
    if (Res != wclErrors.WCL_E_SUCCESS)
        MessageBox.Show("Error: 0x" + Res.ToString("X8"));
    else
        MessageBox.Show("Sent: " + Sent.ToString() + " from " + Ansi.Length.ToString());
}

Private Sub btSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSend.Click
    Dim Ansi As Byte() = System.Text.Encoding.ASCII.GetBytes(edText.Text)
    Dim Sent As UInt32 = 0
    Dim Res As Int32 = Client.Write(Ansi, Sent)
    If Res <> wclErrors.WCL_E_SUCCESS Then
        MessageBox.Show("Error: 0x" + Res.ToString("X8"))
    Else
        MessageBox.Show("Sent: " + Sent.ToString() + " from " + Ansi.Length.ToString())
    End If
End Sub

void CRfCommClientDlg::OnBnClickedButtonSend()
{
	CString s;
	edText.GetWindowText(s);
	CStringA Ansi(s);
	unsigned long Sent;
	int Res = wclRfCommClient.Write(Ansi.GetBuffer(), Ansi.GetLength(), Sent);
	if (Res != WCL_E_SUCCESS)
		AfxMessageBox(_T("Error: 0x") + IntToHex(Res));
	else
		AfxMessageBox(_T("Sent: ") + IntToStr(Sent) + _T(" from ") + IntToStr(Ansi.GetLength()));
}

void __fastcall TfmMain::wclRfCommClientData(TObject *Sender,
      const Pointer Data, const DWORD Size)
{
  if (Size > 0)
  {
    AnsiString Str = AnsiString((AnsiChar*)Data, Size);
    lbEvents->Items->Add("Received: " + String(Str));
  }
}

void Client_OnData(object Sender, byte[] Data)
{
    if (Data != null && Data.Length > 0)
    {
        String Str = Encoding.ASCII.GetString(Data);
        lbEvents.Items.Add("Received " + Data.Length.ToString() + " bytes: " + Str);
    }
}

Private Sub Client_OnData(ByVal Sender As Object, ByVal Data() As Byte) Handles Client.OnData
    If Data IsNot Nothing And Data.Length > 0 Then
        Dim Str As String = System.Text.Encoding.ASCII.GetString(Data)
        lbEvents.Items.Add("Received: " + Str)
    End If
End Sub

void CRfCommClientDlg::wclRfCommClientData(void* Sender, void* Data, unsigned long Size)
{
	if (Size > 0)
	{
		CStringA Str((PCHAR)Data, (int)Size);
		CString s(Str);
		lbEvents.AddString(_T("Received: ") + s);
	}
}