Its easy. You need 2 components on the form: TBFBluetoothDiscovery and TBFObjectPushClient. Lets say it named as BFBluetoothDiscovery and BFObjectPushClient.
The you must write code like this:
procedure SendSomthing;
var
Devices: TBFBluetoothDevices;
begin
// Discovering devices
Devices := BFBluetoothDiscovery.Discovery(nil, False, False);
// Check is there is at leat one device
if Assigned(Devices) then begin
try
if Devices.Count > 0 then begin
// Get first device, for example, and send fil to it.
ObjectPushClient.BluetoothTransport.Device := Devices[0];
// By default OPP ues Bluetoth transport so we do not need change somthing else
ObjectPushClient.Open;
// Put may cause the exception. Using try/finally.
try
ObjectPushClient.Put('somefilename.ext');
finally
ObjectPushClient.Close;
end;
end;
// The error can appears above so use try/finally block
finally
// Clean up
Devices.Free;
end;
end;
end;
