Bluetooth LE Advertisement

void __fastcall TfmMain::btWatcherStartClick(TObject *Sender)
{
	TwclBluetoothRadio* Radio = GetRadio();
	if (Radio != NULL)
	{
		BeaconWatcher->ScanningMode = smActive;
		BeaconWatcher->AllowExtendedAdvertisements = true;
		int Res = BeaconWatcher->Start(Radio);
		if (Res != WCL_E_SUCCESS)
			Trace("Start watcher failed", Res);
	}
}

void __fastcall TfmMain::btWatcherStopClick(TObject *Sender)
{
	int Res = BeaconWatcher->Stop();
	if (Res != WCL_E_SUCCESS)
		Trace("Stop watcher failed", Res);
}

void __fastcall TfmMain::BeaconWatcherAdvertisementFrameInformation(TObject *Sender,
	const __int64 Address, const __int64 Timestamp, const SByte Rssi, const String Name,
	const TwclBluetoothLeAdvertisementType PacketType, const TwclBluetoothLeAdvertisementFlags Flags)
{
	Log("Frame from " + IntToHex(Address, 12) + " Name: " + Name + " RSSI: " + IntToStr(Rssi));
}
                        

private void btWatcherStart_Click(Object sender, EventArgs e)
{
	wclBluetoothRadio Radio = GetRadio();
	if (Radio != null)
	{
		BeaconWatcher.ScanningMode = wclBluetoothLeScanningMode.smActive;
		BeaconWatcher.AllowExtendedAdvertisements = true;
		Int32 Res = BeaconWatcher.Start(Radio);
		if (Res != wclErrors.WCL_E_SUCCESS)
			Trace("Start watcher failed", Res);
	}
}

private void btWatcherStop_Click(Object sender, EventArgs e)
{
	Int32 Res = BeaconWatcher.Stop();
	if (Res != wclErrors.WCL_E_SUCCESS)
		Trace("Stop watcher failed", Res);
}

void BeaconWatcherAdvertisementFrameInformation(Object Sender,
	long Address, long Timestamp, sbyte Rssi, string Name,
	wclBluetoothLeAdvertisementType PacketType, wclBluetoothLeAdvertisementFlag Flags)
{
	Log("Frame from " + Address.ToString("X12") + " Name: " + Name + " RSSI: " + Rssi.ToString());
}
                        

Private Sub btWatcherStart_Click(sender As Object, e As EventArgs) Handles btWatcherStart.Click
	Dim Radio As wclBluetoothRadio = GetRadio()
	If Radio IsNot Nothing Then
		BeaconWatcher.ScanningMode = wclBluetoothLeScanningMode.smActive
		BeaconWatcher.AllowExtendedAdvertisements = True
		Dim Res As Int32 = BeaconWatcher.Start(Radio)
		If Res <> wclErrors.WCL_E_SUCCESS Then
			Trace("Start watcher failed", Res)
		End If
		End If
End Sub

Private Sub btWatcherStop_Click(sender As Object, e As EventArgs) Handles btWatcherStop.Click
	Dim Res As Int32 = BeaconWatcher.Stop()
	If Res <> wclErrors.WCL_E_SUCCESS Then
		Trace("Stop watcher failed", Res)
	End If
End Sub

Private Sub BeaconWatcherAdvertisementFrameInformation(Sender As Object,
	Address As Long, Timestamp As Long, Rssi As SByte, Name As String,
	PacketType As wclBluetoothLeAdvertisementType,
	Flags As wclBluetoothLeAdvertisementFlag) Handles BeaconWatcher.OnAdvertisementFrameInformation

	Log("Frame from " & Address.ToString("X12") & " Name: " & Name & " RSSI: " & Rssi.ToString())
End Sub
                        

void CBeaconsDlg::OnBnClickedButtonWatcherStart()
{
	CwclBluetoothRadio* Radio = GetRadio();
	if (Radio != NULL)
	{
		BeaconWatcher.ScanningMode = smActive;
		BeaconWatcher.AllowExtendedAdvertisements = true;
		int Res = BeaconWatcher.Start(Radio);
		if (Res != WCL_E_SUCCESS)
			Trace(_T("Start watcher failed"), Res);
	}
}

void CBeaconsDlg::OnBnClickedButtonWatcherStop()
{
	int Res = BeaconWatcher.Stop();
	if (Res != WCL_E_SUCCESS)
		Trace(_T("Stop watcher failed"), Res);
}

CwclBluetoothRadio* CBeaconsDlg::GetRadio()
{
	if (!BluetoothManager.Active)
		BluetoothManager.Open();
	CwclBluetoothRadio* Radio = NULL;
	BluetoothManager.GetLeRadio(Radio);
	return Radio;
}

void CBeaconsDlg::BeaconWatcherAdvertisementFrameInformation(void* Sender,
	const __int64 Address, const __int64 Timestamp, const char Rssi,
	const tstring& Name, const wclBluetoothLeAdvertisementType PacketType,
	const wclBluetoothLeAdvertisementFlags& Flags)
{
	UNREFERENCED_PARAMETER(Sender);
	// Store or display the frame data
}
                        

const GUID BEACON_UUID = {0x09039835, 0x4A80, 0x443B, {0x87, 0xAA, 0xDC, 0x56, 0x5D, 0x09, 0xEA, 0x61}};

void __fastcall TfmMain::btAdvertiserStartClick(TObject *Sender)
{
	TwclBluetoothRadio* Radio = GetRadio();
	if (Radio == NULL)
		return;

	LeAdvertiser->Clear();

	// iBeacon
	TwclBluetoothLeiBeaconAdvertisement* Adv;
	Adv = new TwclBluetoothLeiBeaconAdvertisement(-5, 0x0101, 0x0202, BEACON_UUID);
	LeAdvertiser->Add(Adv);

	// Manufacturer specific
	TwclBluetoothLeAdvertisementFrameRawData Data;
	Data.Length = 2;
	Data[0] = 0x12;
	Data[1] = 0x34;
	Adv = new TwclBluetoothLeManufacturerAdvertisement(0x010E, Data);
	LeAdvertiser->Add(Adv);

	// Extended advertisement
	LeAdvertiser->UseExtendedAdvertisement = true;
	LeAdvertiser->Anonymous = false;
	LeAdvertiser->IncludeTxRssi = true;
	LeAdvertiser->PreferredTxRssi = 10;
	LeAdvertiser->Interval = 100;

	int Res = LeAdvertiser->Start(Radio);
	if (Res != WCL_E_SUCCESS)
		Trace("Start advertiser failed", Res);
}

void __fastcall TfmMain::btAdvertiserStopClick(TObject *Sender)
{
	int Res = LeAdvertiser->Stop();
	if (Res != WCL_E_SUCCESS)
		Trace("Stop advertiser failed", Res);
}
                        

private static readonly Guid BEACON_UUID = new Guid("{09039835-4A80-443B-87AA-DC565D09EA61}");

private void btAdvertiserStart_Click(Object sender, EventArgs e)
{
	wclBluetoothRadio Radio = GetRadio();
	if (Radio == null)
		return;

	LeAdvertiser.Clear();

	// iBeacon
	wclBluetoothLeAdvertisement Adv = new wclBluetoothLeiBeaconAdvertisement(-5, 0x0101, 0x0202, BEACON_UUID);
	LeAdvertiser.Add(Adv);

	// Manufacturer specific
	byte[] Data = new byte[2] { 0x12, 0x34 };
	Adv = new wclBluetoothLeManufacturerAdvertisement(0x010E, Data);
	LeAdvertiser.Add(Adv);

	// Extended advertisement
	LeAdvertiser.UseExtendedAdvertisement = true;
	LeAdvertiser.Anonymous = false;
	LeAdvertiser.IncludeTxRssi = true;
	LeAdvertiser.PreferredTxRssi = 10;
	LeAdvertiser.Interval = 100;

	Int32 Res = LeAdvertiser.Start(Radio);
	if (Res != wclErrors.WCL_E_SUCCESS)
		Trace("Start advertiser failed", Res);
}

private void btAdvertiserStop_Click(Object sender, EventArgs e)
{
	Int32 Res = LeAdvertiser.Stop();
	if (Res != wclErrors.WCL_E_SUCCESS)
		Trace("Stop advertiser failed", Res);
}
                        

Private Shared ReadOnly BEACON_UUID As New Guid("{09039835-4A80-443B-87AA-DC565D09EA61}")

Private Sub btAdvertiserStart_Click(sender As Object, e As EventArgs) Handles btAdvertiserStart.Click
	Dim Radio As wclBluetoothRadio = GetRadio()
	If Radio Is Nothing Then Return

	LeAdvertiser.Clear()

	' iBeacon
	Dim Adv As wclBluetoothLeAdvertisement = New wclBluetoothLeiBeaconAdvertisement(-5, &H101, &H202, BEACON_UUID)
	LeAdvertiser.Add(Adv)

	' Manufacturer specific
	Dim Data As Byte() = New Byte() {&H12, &H34}
	Adv = New wclBluetoothLeManufacturerAdvertisement(&H10E, Data)
	LeAdvertiser.Add(Adv)

	' Extended advertisement
	LeAdvertiser.UseExtendedAdvertisement = True
	LeAdvertiser.Anonymous = False
	LeAdvertiser.IncludeTxRssi = True
	LeAdvertiser.PreferredTxRssi = 10
	LeAdvertiser.Interval = 100

	Dim Res As Int32 = LeAdvertiser.Start(Radio)
	If Res <> wclErrors.WCL_E_SUCCESS Then Trace("Start advertiser failed", Res)
End Sub

Private Sub btAdvertiserStop_Click(sender As Object, e As EventArgs) Handles btAdvertiserStop.Click
	Dim Res As Int32 = LeAdvertiser.Stop()
	If Res <> wclErrors.WCL_E_SUCCESS Then Trace("Stop advertiser failed", Res)
End Sub
                        

static const GUID BEACON_UUID = { 0x09039835, 0x4A80, 0x443B, { 0x87, 0xAA, 0xDC, 0x56, 0x5D, 0x09, 0xEA, 0x61 } };

void CBeaconsDlg::OnBnClickedButtonAdvertiserStart()
{
	CwclBluetoothRadio* Radio = GetRadio();
	if (Radio == NULL) return;

	LeAdvertiser.Clear();

	// iBeacon
	CwclBluetoothLeAdvertisement* Adv;
	Adv = new CwclBluetoothLeiBeaconAdvertisement(-5, 0x0101, 0x0202, BEACON_UUID);
	LeAdvertiser.Add(Adv);

	// Manufacturer specific
	wclBluetoothLeAdvertisementFrameRawData Data;
	Data.resize(2);
	Data[0] = 0x12;
	Data[1] = 0x34;
	Adv = new CwclBluetoothLeManufacturerAdvertisement(0x010E, Data);
	LeAdvertiser.Add(Adv);

	// Extended advertisement
	LeAdvertiser.UseExtendedAdvertisement = true;
	LeAdvertiser.Anonymous = false;
	LeAdvertiser.IncludeTxRssi = true;
	LeAdvertiser.PreferredTxRssi = 10;
	LeAdvertiser.Interval = 100;

	int Res = LeAdvertiser.Start(Radio);
	if (Res != WCL_E_SUCCESS)
		Trace(_T("Start advertiser failed"), Res);
}

void CBeaconsDlg::OnBnClickedButtonAdvertiserStop()
{
	int Res = LeAdvertiser.Stop();
	if (Res != WCL_E_SUCCESS)
		Trace(_T("Stop advertiser failed"), Res);
}