Object Exchange (OBEX)

void __fastcall TfmMain::btDiscoverClick(TObject *Sender)
{
	TwclBluetoothRadio* Radio = GetRadio();
	if (Radio != NULL)
	{
		// Discover classic devices only.
		int Res = Radio->Discover(10, dkClassic);
		if (Res != WCL_E_SUCCESS)
		{
			MessageDlg("Failed to start discovering: 0x" + IntToHex(Res, 8),
				mtError, TMsgDlgButtons() << mbOK, 0);
		}
	}
}

void __fastcall TfmMain::wclBluetoothManagerDeviceFound(TObject *Sender,
	const TwclBluetoothRadio *Radio, const __int64 Address)
{
	TListItem* Item = lvDevices->Items->Add();
	Item->Caption = IntToHex(Address, 12);
	Item->SubItems->Add("");
}
                        

private void btDiscover_Click(object sender, EventArgs e)
{
	wclBluetoothRadio Radio = GetRadio();
	if (Radio != null)
	{
		// Discover classic devices only.
		Int32 Res = Radio.Discover(10, wclBluetoothDiscoverKind.dkClassic);
		if (Res != wclErrors.WCL_E_SUCCESS)
			MessageBox.Show("Failed to start discovering: 0x" + Res.ToString("X8"));
	}
}

void wclBluetoothManager_OnDeviceFound(object Sender, wclBluetoothRadio Radio, long Address)
{
	ListViewItem Item = lvDevices.Items.Add(Address.ToString("X12"));
	Item.SubItems.Add("");
}
                        

Private Sub btDiscover_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDiscover.Click
	Dim Radio As wclBluetoothRadio = GetRadio()
	If Not Radio Is Nothing Then
		' Discover classic devices only.
		Dim Res As Int32 = Radio.Discover(10, wclBluetoothDiscoverKind.dkClassic)
		If Res <> wclErrors.WCL_E_SUCCESS Then
			MessageBox.Show("Failed to start discovering: 0x" + Res.ToString("X8"))
		End If
	End If
End Sub

Private Sub wclBluetoothManager_OnDeviceFound(ByVal Sender As Object, ByVal Radio As wclBluetooth.wclBluetoothRadio, ByVal Address As Long) Handles wclBluetoothManager.OnDeviceFound
	Dim Item As ListViewItem = lvDevices.Items.Add(Address.ToString("X12"))
	Item.SubItems.Add("")
End Sub
                        

void COppClientDlg::OnBnClickedButtonDiscover()
{
	CwclBluetoothRadio* Radio = GetRadio();
	if (Radio != NULL)
	{
		// Discover classic devices only.
		int Res = Radio->Discover(10, dkClassic);
		if (Res != WCL_E_SUCCESS)
			AfxMessageBox(_T("Failed to start discovering: 0x") + IntToHex(Res));
	}
}

void COppClientDlg::ManagerDeviceFound(void* Sender, CwclBluetoothRadio* const Radio, 
	const __int64 Address)
{
	UNREFERENCED_PARAMETER(Sender);
	UNREFERENCED_PARAMETER(Radio);
	
	int Item = lvDevices.GetItemCount();
	lvDevices.InsertItem(Item, IntToHex(Address));
	lvDevices.SetItemText(Item, 1, _T(""));
}
                        

// In FormCreate:
wclRfCommClient->Service = OBEXObjectPushServiceClass_UUID;

void __fastcall TfmMain::btConnectClick(TObject *Sender)
{
	if (wclRfCommClient->State != csDisconnected)
		MessageDlg("Client is connected", mtWarning, TMsgDlgButtons() << mbOK, 0);
	else
	{
		if (lvDevices->Selected == NULL)
			MessageDlg("Select device", mtWarning, TMsgDlgButtons() << mbOK, 0);
		else
		{
			TwclBluetoothRadio* Radio = GetRadio();
			if (Radio != NULL)
			{
				__int64 Addr = StrToInt64("$" + lvDevices->Selected->Caption);
				wclRfCommClient->Address = Addr;
				int Res = wclRfCommClient->Connect(Radio);
				if (Res != WCL_E_SUCCESS)
				{
					MessageDlg("Failed to connect: 0x" + IntToHex(Res, 8),
						mtError, TMsgDlgButtons() << mbOK, 0);
				}
			}
		}
	}
}
                        

// In fmMain_Load:
wclRfCommClient.Service = wclUUIDs.OBEXObjectPushServiceClass_UUID;

private void btConnect_Click(object sender, EventArgs e)
{
	if (wclRfCommClient.State != wclClientState.csDisconnected)
		MessageBox.Show("Client is connected");
	else
	{
		if (lvDevices.SelectedItems.Count == 0)
			MessageBox.Show("Select device");
		else
		{
			wclBluetoothRadio Radio = GetRadio();
			if (Radio != null)
			{
				Int64 Addr = Convert.ToInt64(lvDevices.SelectedItems[0].Text, 16);
				wclRfCommClient.Address = Addr;
				Int32 Res = wclRfCommClient.Connect(Radio);
				if (Res != wclErrors.WCL_E_SUCCESS)
					MessageBox.Show("Failed to connect: 0x" + Res.ToString("X8"));
			}
		}
	}
}
                        

' In fmMain_Load:
wclRfCommClient.Service = wclUUIDs.OBEXObjectPushServiceClass_UUID

Private Sub btConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConnect.Click
	If wclRfCommClient.State <> wclClientState.csDisconnected Then
		MessageBox.Show("Client is connected")
	Else
		If lvDevices.SelectedItems.Count = 0 Then
			MessageBox.Show("Select device")
		Else
			Dim Radio As wclBluetoothRadio = GetRadio()
			If Not Radio Is Nothing Then
				Dim Addr As Int64 = Convert.ToInt64(lvDevices.SelectedItems(0).Text, 16)
				wclRfCommClient.Address = Addr
				Dim Res As Int32 = wclRfCommClient.Connect(Radio)
				If Res <> wclErrors.WCL_E_SUCCESS Then
					MessageBox.Show("Failed to connect: 0x" + Res.ToString("X8"))
				End If
			End If
		End If
	End If
End Sub
                        

// In OnInitDialog:
wclRfCommClient.Service = OBEXObjectPushServiceClass_UUID;

void COppClientDlg::OnBnClickedButtonConnect()
{
	if (wclRfCommClient.State != csDisconnected)
		AfxMessageBox(_T("Client is connected"));
	else
	{
		POSITION Pos = lvDevices.GetFirstSelectedItemPosition();
		if (Pos == NULL)
			AfxMessageBox(_T("Select device"));
		else
		{
			CwclBluetoothRadio* Radio = GetRadio();
			int Item = lvDevices.GetNextSelectedItem(Pos);
			wclRfCommClient.Address = StrToInt64(lvDevices.GetItemText(Item, 0));
			int Res = wclRfCommClient.Connect(Radio);
			if (Res != WCL_E_SUCCESS)
				AfxMessageBox(_T("Error: 0x") + IntToHex(Res));
		}
	}
}
                        

void __fastcall TfmMain::wclRfCommClientCreateProcessor(TObject *Sender,
	const TwclClientDataConnection *Connection)
{
	// Create the OPP client data processor for the connection.
	#if __BORLANDC__ >= 0x0650
	FOpp = new TwclObexOppClient((TwclClientDataConnection*)Connection);
	#else
	FOpp = new TwclObexOppClient(Connection);
	#endif

	FOpp->OnConnect = OppConnect;
	FOpp->OnDisconnect = OppDisconnect;
	#if __BORLANDC__ >= 0x0740
	FOpp->OnGetComplete = OppGetComplete;
	FOpp->OnPutComplete = OppPutComplete;
	#else
	FOpp->OnGetComplete = (TwclObexObjectOperationResultEvent)&OppGetComplete;
	FOpp->OnPutComplete = (TwclObexObjectOperationResultEvent)&OppPutComplete;
	#endif
	FOpp->OnProgress = OppProgress;
}

void __fastcall TfmMain::btOpenSessionClick(TObject *Sender)
{
	if (FOpp == NULL)
		MessageDlg("Not connected", mtWarning, TMsgDlgButtons() << mbOK, 0);
	else
	{
		int Res = FOpp->Connect();
		if (Res != WCL_E_SUCCESS)
		{
			MessageDlg("Open session failed: 0x" + IntToHex(Res, 8), mtError,
				TMsgDlgButtons() << mbOK, 0);
		}
	}
}
                        

void wclRfCommClient_OnCreateProcessor(object Sender, wclClientDataConnection Connection)
{
	// Create the OPP client data processor for the connection.
	FOpp = new wclObexOppClient(Connection);
	FOpp.OnConnect += new wclObexOperationResultEvent(FOpp_OnConnect);
	FOpp.OnDisconnect += new wclObexOperationResultEvent(FOpp_OnDisconnect);
	FOpp.OnGetComplete += new wclObexObjectOperationResultEvent(FOpp_OnGetComplete);
	FOpp.OnPutComplete += new wclObexObjectOperationResultEvent(FOpp_OnPutComplete);
	FOpp.OnProgress += new wclObexOperationProgressEvent(FOpp_OnProgress);
}

private void btOpenSession_Click(object sender, EventArgs e)
{
	if (FOpp == null)
		MessageBox.Show("Not connected");
	else
	{
		Int32 Res = FOpp.Connect();
		if (Res != wclErrors.WCL_E_SUCCESS)
			MessageBox.Show("Open session failed: 0x" + Res.ToString("X8"));
	}
}
                        

Private Sub wclRfCommClient_OnCreateProcessor(ByVal Sender As Object, ByVal Connection As wclCommunication.wclClientDataConnection) Handles wclRfCommClient.OnCreateProcessor
	' Create the OPP client data processor for the connection.
	FOpp = New wclObexOppClient(Connection)
End Sub

Private Sub btOpenSession_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOpenSession.Click
	If FOpp Is Nothing Then
		MessageBox.Show("Not connected")
	Else
		Dim Res As Int32 = FOpp.Connect()
		If Res <> wclErrors.WCL_E_SUCCESS Then
			MessageBox.Show("Open session failed: 0x" + Res.ToString("X8"))
		End If
	End If
End Sub
                        

void COppClientDlg::ClientCreateProcessor(void* Sender, CwclClientDataConnection* const Connection)
{
	UNREFERENCED_PARAMETER(Sender);

	// Create the OPP client data processor for the connection.
	FOpp = new CwclObexOppClient(Connection);
	__hook(&CwclObexOppClient::OnConnect, FOpp, &COppClientDlg::OppConnect);
	__hook(&CwclObexOppClient::OnDisconnect, FOpp, &COppClientDlg::OppDisconnect);
	__hook(&CwclObexOppClient::OnGetComplete, FOpp, &COppClientDlg::OppGetComplete);
	__hook(&CwclObexOppClient::OnPutComplete, FOpp, &COppClientDlg::OppPutComplete);
	__hook(&CwclObexOppClient::OnProgress, FOpp, &COppClientDlg::OppProgress);
}

void COppClientDlg::OnBnClickedButtonOpenSession()
{
	if (FOpp == NULL)
		AfxMessageBox(_T("Not connected"));
	else
	{
		int Res = FOpp->Connect();
		if (Res != WCL_E_SUCCESS)
			AfxMessageBox(_T("Open session failed: 0x") + IntToHex(Res));
	}
}
                        

void __fastcall TfmMain::btSendFileClick(TObject *Sender)
{
	if (FOpp == NULL)
		MessageDlg("Not connected", mtWarning, TMsgDlgButtons() << mbOK, 0);
	else
	{
		if (edFileName->Text == "")
			MessageDlg("Select file", mtWarning, TMsgDlgButtons() << mbOK, 0);
		else
		{
			TFileStream* Stream = new TFileStream(edFileName->Text, fmOpenRead);
			int Res = FOpp->Put(ExtractFileName(edFileName->Text), "", Stream);
			if (Res != WCL_E_SUCCESS)
			{
				MessageDlg("Send file failed: 0x" + IntToHex(Res, 8), mtError,
					TMsgDlgButtons() << mbOK, 0);
				Stream->Free();
			}
		}
	}
}

void __fastcall TfmMain::OppProgress(TObject* Sender, const unsigned Length,
	const unsigned Position)
{
	ProgressBar->Max = Length;
	ProgressBar->Position = Position;
}

#if __BORLANDC__ >= 0x0740
void __fastcall TfmMain::OppPutComplete(TObject* Sender, const int Error,
	const String Description, TStream* const Stream)
#else
void __fastcall TfmMain::OppPutComplete(TObject* Sender, const int Error,
	const String Description, const TStream* Stream)
#endif
{
	lbLog->Items->Add("File sending completed with result: 0x" +
		IntToHex(Error, 8) + ". Description: " + Description);
	ProgressBar->Position = 0;
	ProgressBar->Max = 0;
	// We must destroy the stream object here.
	((TStream*)Stream)->Free();
}
                        

private void btSendFile_Click(object sender, EventArgs e)
{
	if (FOpp == null)
		MessageBox.Show("Not connected");
	else
	{
		if (edFileName.Text == "")
			MessageBox.Show("Select file");
		else
		{
			FileStream Stream = new FileStream(edFileName.Text, FileMode.Open);
			Int32 Res = FOpp.Put(Path.GetFileName(edFileName.Text), "", Stream);
			if (Res != wclErrors.WCL_E_SUCCESS)
			{
				MessageBox.Show("Send file failed: 0x" + Res.ToString("X8"));
				Stream.Close();
				Stream.Dispose();
			}
		}
	}
}

void FOpp_OnProgress(object Sender, uint Size, uint Position)
{
	ProgressBar.Maximum = (int)Size;
	ProgressBar.Value = (int)Position;
}

void FOpp_OnPutComplete(object Sender, int Error, string Description, System.IO.Stream Stream)
{
	lbLog.Items.Add("File sending completed with result: 0x" + Error.ToString("X8") +
		". Description: " + Description);
	ProgressBar.Value = 0;
	ProgressBar.Maximum = 0;
	// We must destroy the stream object here.
	Stream.Close();
	Stream.Dispose();
}
                        

Private Sub btSendFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSendFile.Click
	If FOpp Is Nothing Then
		MessageBox.Show("Not connected")
	Else
		If edFileName.Text = "" Then
			MessageBox.Show("Select file")
		Else
			Dim Stream As FileStream = New FileStream(edFileName.Text, FileMode.Open)
			Dim Res As Int32 = FOpp.Put(Path.GetFileName(edFileName.Text), "", Stream)
			If Res <> wclErrors.WCL_E_SUCCESS Then
				MessageBox.Show("Send file failed: 0x" + Res.ToString("X8"))
				Stream.Close()
				Stream.Dispose()
			End If
		End If
	End If
End Sub

Private Sub FOpp_OnProgress(ByVal Sender As Object, ByVal Size As UInteger, ByVal Position As UInteger) Handles FOpp.OnProgress
	ProgressBar.Maximum = Size
	ProgressBar.Value = Position
End Sub

Private Sub FOpp_OnPutComplete(ByVal Sender As Object, ByVal [Error] As Integer, ByVal Description As String, ByVal Stream As System.IO.Stream) Handles FOpp.OnPutComplete
	lbLog.Items.Add("File sending completed with result: 0x" + [Error].ToString("X8") + ". Description: " + Description)
	ProgressBar.Value = 0
	ProgressBar.Maximum = 0
	' We must destroy the stream object here.
	Stream.Close()
	Stream.Dispose()
End Sub
                        

void COppClientDlg::OnBnClickedButtonSendFile()
{
	if (FOpp == NULL)
		AfxMessageBox(_T("Not connected"));
	else
	{
		CString s;		
		edFileName.GetWindowText(s);
		if (s == _T(""))
			AfxMessageBox(_T("Select file"));
		else
		{
			tstring FileName = tstring(s);
			CwclFileStream* Stream = new CwclFileStream(FileName, OPEN_EXISTING, GENERIC_READ,
				FILE_SHARE_READ);
			size_t last_slash_idx = FileName.find_last_of(_T("\\/"));
			if (tstring::npos != last_slash_idx)
				FileName.erase(0, last_slash_idx + 1);
			
			int Res = FOpp->Put(FileName, _T(""), Stream);
			if (Res != WCL_E_SUCCESS)
			{
				AfxMessageBox(_T("Send file failed: 0x") + IntToHex(Res));
				delete Stream;
			}
		}
	}
}

void COppClientDlg::OppProgress(void* Sender, const unsigned long Size, 
	const unsigned long Position)
{
	UNREFERENCED_PARAMETER(Sender);

	ProgressBar.SetRange32(0, Size);
	ProgressBar.SetPos(Position);
}

void COppClientDlg::OppPutComplete(void* Sender, const int Error, const tstring& Description,
	CwclStream* const Stream)
{
	UNREFERENCED_PARAMETER(Sender);

	lbLog.AddString(_T("File sending completed with result: 0x") + IntToHex(Error) +
		_T(". Description: ") + CString(Description.c_str()));
	
	ProgressBar.SetPos(0);
	ProgressBar.SetRange32(0, 0);
	
	// We must destroy the stream object here.
	delete Stream;
}
                        

void __fastcall TfmMain::btGetvCardClick(TObject *Sender)
{
	if (FOpp == NULL)
		MessageDlg("Not connected", mtWarning, TMsgDlgButtons() << mbOK, 0);
	else
	{
		TFileStream* Stream = new TFileStream("vcard.vcf", fmCreate);
		// Request default vCard object.
		int Res = FOpp->Get("text/x-vCard", Stream);
		if (Res != WCL_E_SUCCESS)
		{
			MessageDlg("GetvCard failed: 0x" + IntToHex(Res, 8), mtError,
				TMsgDlgButtons() << mbOK, 0);
			Stream->Free();
		}
	}
}

#if __BORLANDC__ >= 0x0740
void __fastcall TfmMain::OppGetComplete(TObject* Sender, const int Error,
	const String Description, TStream* const Stream)
#else
void __fastcall TfmMain::OppGetComplete(TObject* Sender, const int Error,
	const String Description, const TStream* Stream)
#endif
{
	lbLog->Items->Add("File receiving completed with result: 0x" +
		IntToHex(Error, 8) + ". Description: " + Description);
	ProgressBar->Position = 0;
	ProgressBar->Max = 0;
	// We must destroy the stream object here.
	((TStream*)Stream)->Free();
}
                        

private void btGetVCard_Click(object sender, EventArgs e)
{
	if (FOpp == null)
		MessageBox.Show("Not connected");
	else
	{
		FileStream Stream = new FileStream("vcard.vcf", FileMode.CreateNew);
		// Request default vCard object.
		Int32 Res = FOpp.Get("text/x-vCard", Stream);
		if (Res != wclErrors.WCL_E_SUCCESS)
		{
			MessageBox.Show("GetvCard failed: 0x" + Res.ToString("X8"));
			Stream.Close();
			Stream.Dispose();
		}
	}
}

void FOpp_OnGetComplete(object Sender, int Error, string Description, Stream Stream)
{
	lbLog.Items.Add("File receiving completed with result: 0x" +
		Error.ToString("X8") + ". Description: " + Description);
	ProgressBar.Value = 0;
	ProgressBar.Maximum = 0;
	// We must destroy the stream object here.
	Stream.Close();
	Stream.Dispose();
}
                        

Private Sub btGetVCard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGetVCard.Click
	If FOpp Is Nothing Then
		MessageBox.Show("Not connected")
	Else
		Dim Stream As FileStream = New FileStream("vcard.vcf", FileMode.CreateNew)
		' Request default vCard object.
		Dim Res As Int32 = FOpp.Get("text/x-vCard", Stream)
		If Res <> wclErrors.WCL_E_SUCCESS Then
			MessageBox.Show("GetvCard failed: 0x" + Res.ToString("X8"))
			Stream.Close()
			Stream.Dispose()
		End If
	End If
End Sub

Private Sub FOpp_OnGetComplete(ByVal Sender As Object, ByVal [Error] As Integer, ByVal Description As String, ByVal Stream As System.IO.Stream) Handles FOpp.OnGetComplete
	lbLog.Items.Add("File receiving completed with result: 0x" + [Error].ToString("X8") + ". Description: " + Description)
	ProgressBar.Value = 0
	ProgressBar.Maximum = 0
	' We must destroy the stream object here.
	Stream.Close()
	Stream.Dispose()
End Sub
                        

void COppClientDlg::OnBnClickedButtonGetVcard()
{
	if (FOpp == NULL)
		AfxMessageBox(_T("Not connected"));
	else
	{
		CwclFileStream* Stream = new CwclFileStream(_T("vcard.vcf"), CREATE_ALWAYS,
			GENERIC_WRITE, FILE_SHARE_WRITE);
		// Request default vCard object.
		int Res = FOpp->Get(_T("text/x-vCard"), Stream);
		if (Res != WCL_E_SUCCESS)
		{
			AfxMessageBox(_T("GetvCard failed: 0x") + IntToHex(Res));
			delete Stream;
		}
	}
}

void COppClientDlg::OppGetComplete(void* Sender, const int Error, const tstring& Description,
	CwclStream* const Stream)
{
	UNREFERENCED_PARAMETER(Sender);

	lbLog.AddString(_T("File receiving completed with result: 0x") +
		IntToHex(Error) + _T(". Description: ") + CString(Description.c_str()));
	
	ProgressBar.SetPos(0);
	ProgressBar.SetRange32(0, 0);
	
	// We must destroy the stream object here.
	delete Stream;
}