From 983390512a31fab8420c65d65eac1a7a056ebb7d Mon Sep 17 00:00:00 2001 From: hjcfilho-embt Date: Thu, 21 Nov 2024 00:21:15 -0300 Subject: [PATCH] Syncing the internal and public repositories --- .../EMS/NotesResource/NotesResourceU.cpp | 2 +- .../ClBluetooth.dproj | 1293 +++++++++++------ .../Classic Bluetooth Basic app/Unit1.fmx | 616 ++++---- .../Classic Bluetooth Basic app/Unit1.pas | 73 +- 4 files changed, 1187 insertions(+), 797 deletions(-) diff --git a/CPP/Multi-Device Samples/EMS/NotesResource/NotesResourceU.cpp b/CPP/Multi-Device Samples/EMS/NotesResource/NotesResourceU.cpp index 164779f..38f507f 100644 --- a/CPP/Multi-Device Samples/EMS/NotesResource/NotesResourceU.cpp +++ b/CPP/Multi-Device Samples/EMS/NotesResource/NotesResourceU.cpp @@ -145,7 +145,7 @@ void TNotesResource1::PutItem(TEndpointContext* AContext, TEndpointRequest* AReq String GetModuleDirectory(void) { - return ExtractFilePath(StringReplace(GetModuleName((unsigned int)HInstance), "\\\\?\\", + return ExtractFilePath(StringReplace(GetModuleName(reinterpret_cast(HInstance)), "\\\\?\\", "", TReplaceFlags() << System::Sysutils::rfReplaceAll)); } diff --git a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/ClBluetooth.dproj b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/ClBluetooth.dproj index dba2580..1d79938 100644 --- a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/ClBluetooth.dproj +++ b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/ClBluetooth.dproj @@ -1,13 +1,13 @@  {3371BB16-3DD6-4A3D-A3CC-4BE7854BE398} - 18.8 + 20.2 FMX ClBluetooth.dpr True Debug - OSX32 - 36887 + Android64 + 167955 Application @@ -28,18 +28,18 @@ Base true - - true + + true Base true - - true + + true Base true - - true + + true Base true @@ -70,14 +70,14 @@ true true - - true + + true Cfg_1 true true - - true + + true Cfg_1 true true @@ -135,7 +135,7 @@ $(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png Debug $(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png - package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34 true $(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png $(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png @@ -143,9 +143,17 @@ $(BDS)\bin\Artwork\Android\FM_NotificationIcon_48x48.png $(BDS)\bin\Artwork\Android\FM_NotificationIcon_72x72.png $(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + true + true + true + 1 + #FFFFFF + #000000 + #000000 - package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey= + package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=34 Debug true true @@ -161,128 +169,72 @@ $(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png $(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png $(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png + $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png + true + true + true + 1 + #FFFFFF + #000000 + #000000 - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png Base fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage);$(DCC_UsePackage) - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png true $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes= true - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png true - $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png iPhoneAndiPad $(MSBuildProjectName) - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png Debug - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_120x120.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_828x1792.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1136x640.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2688.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1334x750.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1792x828.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2688x1242.png $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_167x167.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1668x2224.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1668x2388.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_2048x2732.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2224x1668.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2388x1668.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2732x2048.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_2x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_3x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_3x.png + $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImage_2x.png + $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageDark_2x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_87x87.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_58x58.png + $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png - - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png - fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage) - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png + + CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes= + iPhoneAndiPad + true $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png + fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage);$(DCC_UsePackage);$(DCC_UsePackage) + $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png + true $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png - $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png - true - $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png - CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes= - iPhoneAndiPad - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png - $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_120x120.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_828x1792.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1136x640.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2688.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1334x750.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1792x828.png - $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2688x1242.png $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_167x167.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1668x2224.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1668x2388.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_2048x2732.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2224x1668.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2388x1668.png - $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2732x2048.png - - - fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapServer;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;FireDACInfxDriver;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage) - CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSContactsUsageDescription=The reason for accessing the contacts;CFBundleShortVersionString=1.0.0;NSLocationUsageDescription=The reason for accessing the location information of the user - true + $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_2x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_3x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_3x.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_58x58.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_87x87.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png + $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png + $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImage_2x.png + $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageDark_2x.png + $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface @@ -293,6 +245,13 @@ true fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapServer;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;FireDACInfxDriver;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage);$(DCC_UsePackage) + + CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface + Debug + true + true + fmxhrh;FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;tethering;DataSnapClient;DataSnapServer;DataSnapCommon;DBXInterBaseDriver;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;CloudService;IndyIPCommon;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;FireDACInfxDriver;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindcompdbx;bindengine;soaprtl;emsclient;FireDAC;DBXInformixDriver;FireDACMSSQLDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;DataSnapIndy10ServerTransport;dbexpress;IndyIPClient;$(DCC_UsePackage);$(DCC_UsePackage);$(DCC_UsePackage) + true true @@ -330,6 +289,9 @@ 1 center true + #FFFFFF + #000000 + #000000 true @@ -341,14 +303,15 @@ center true - - Debug - true Cfg_1 true + + true + true + false Debug @@ -369,10 +332,6 @@
Form1
 - - Cfg_2 - Base - Base @@ -380,6 +339,10 @@ Cfg_1 Base + + Cfg_2 + Base + Delphi.Personality.12 @@ -390,209 +353,534 @@ ClBluetooth.dpr - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + true - + true - - - - - - true - - - - - - - - - 1 - - - Contents\MacOS - 1 - - - 0 - - - + + - classes - 1 + ic_launcher.png + true + + - classes - 1 + ic_launcher.png + true - - + + - res\xml - 1 + ic_launcher.png + true + + - res\xml - 1 - - - - - library\lib\armeabi-v7a - 1 + ic_launcher.png + true - - + + + - library\lib\armeabi - 1 + ic_launcher.png + true + + - library\lib\armeabi - 1 + ic_launcher.png + true - - + + + + + ic_launcher.png + true + + + - library\lib\armeabi-v7a - 1 + ic_launcher.png + true - - + + + - library\lib\mips - 1 + ic_launcher.png + true + + - library\lib\mips - 1 + ic_launcher.png + true - - + + + - library\lib\armeabi-v7a - 1 + ic_launcher.png + true + + - library\lib\arm64-v8a - 1 + ic_launcher.png + true - - - - library\lib\armeabi-v7a - 1 + + + + ic_notification.png + true - - + + - res\drawable - 1 + ic_notification.png + true - - res\drawable - 1 + + + + ic_notification.png + true - - + + - res\values - 1 + ic_notification.png + true - - res\values - 1 + + + + ic_notification.png + true - - + + + - res\values-v21 - 1 + splash_image.png + true + + - res\values-v21 - 1 + splash_image.png + true - - + + + - res\values - 1 + splash_image.png + true + + - res\values - 1 + splash_image.png + true - - + + + - res\drawable - 1 + splash_image.png + true + + - res\drawable - 1 + splash_image.png + true - - + + + - res\drawable-xxhdpi - 1 + splash_image.png + true + + - res\drawable-xxhdpi - 1 + splash_image.png + true - - + + + + + libClBluetooth.so + true + + + + - res\drawable-ldpi - 1 + libClBluetooth.so + true + + - res\drawable-ldpi - 1 + libClBluetooth.so + true + + + + + + libClBluetooth.so + true + + + + + libClBluetooth.so + true + + + + + + + true + + + + + colors.xml + true + + + + + true + + + + + libClBluetooth.so + true + + + + + true + + + + + true + + + + + styles.xml + true + + + + + true + + + + + + true + + + + + colors.xml + true + + + + + true + + + + + + libClBluetooth.so + true + + + + + + true + + + + + true + + + + + styles.xml + true + + + + + + true + + + + + + + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-anydpi-v21 + 1 + + + res\drawable-anydpi-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values-v31 + 1 + + + res\values-v31 + 1 + + + + + res\drawable-anydpi-v26 + 1 + + + res\drawable-anydpi-v26 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-anydpi-v33 + 1 + + + res\drawable-anydpi-v33 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-night-v21 + 1 + + + res\values-night-v21 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 @@ -725,6 +1013,56 @@ 1 + + + res\drawable-anydpi-v24 + 1 + + + res\drawable-anydpi-v24 + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-night-anydpi-v21 + 1 + + + res\drawable-night-anydpi-v21 + 1 + + + + + res\drawable-anydpi-v31 + 1 + + + res\drawable-anydpi-v31 + 1 + + + + + res\drawable-night-anydpi-v31 + 1 + + + res\drawable-night-anydpi-v31 + 1 + + 1 @@ -748,6 +1086,11 @@ 1 .framework + + Contents\MacOS + 1 + .framework + 0 @@ -761,7 +1104,7 @@ 1 .dylib - + 1 .dylib @@ -775,6 +1118,11 @@ 1 .dylib + + Contents\MacOS + 1 + .dylib + 0 .dll;.bpl @@ -789,7 +1137,7 @@ 1 .dylib - + 1 .dylib @@ -803,6 +1151,11 @@ 1 .dylib + + Contents\MacOS + 1 + .dylib + 0 .bpl @@ -821,7 +1174,7 @@ 0 - + 0 @@ -830,455 +1183,431 @@ Contents\Resources\StartUp\ - 0 - - - 0 - - - - - 1 - - - 1 - - - 1 - - - - - 1 - - - 1 - - - 1 - - - - - 1 + 0 - - 1 + + Contents\Resources\StartUp\ + 0 - - 1 + + 0 - - - 1 - - + + 1 - + 1 - - - 1 - - + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 - + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 - - + + + ..\ 1 - + + ..\ 1 - + + ..\ 1 - - + + + Contents 1 - + + Contents 1 - + + Contents 1 - - + + + Contents\Resources 1 - + + Contents\Resources 1 - + + Contents\Resources 1 - - - 1 - - + + + library\lib\armeabi-v7a 1 - + + library\lib\arm64-v8a 1 - - 1 1 - + 1 - - - + 1 - + + Contents\MacOS 1 - + + Contents\MacOS 1 - - - + + Contents\MacOS 1 - - 1 + + 0 - + + + + library\lib\armeabi-v7a 1 - - + + 1 - + 1 - + 1 - + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 - + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF 1 - + + ..\ 1 + ..\ 1 - + + ..\ 1 - + 1 1 - + 1 - - - 1 - + - 1 + ..\$(PROJECTNAME).launchscreen + 64 - - 1 + + ..\$(PROJECTNAME).launchscreen + 64 - + 1 1 - + 1 - - - 1 - - + + + Assets 1 - + + Assets 1 - - - 1 - - + + + Assets 1 - + + Assets 1 - - - 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - - ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF - 1 - + - ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - - ..\ + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 + + - ..\ + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - 1 - - - - - ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - ..\ + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - ..\ + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - - Contents + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - Contents + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - - Contents\Resources + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - Contents\Resources + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - - - library\lib\armeabi-v7a - 1 - - - library\lib\arm64-v8a + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - Contents\MacOS + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - Contents\MacOS + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - 0 - - - - - library\lib\armeabi-v7a + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - Assets + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - Assets + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - - Assets + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - Assets + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset 1 - - + + - + + + - - - + + + + True True False - False - True + False True + True True True diff --git a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.fmx b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.fmx index 5159099..73a7757 100644 --- a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.fmx +++ b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.fmx @@ -27,11 +27,17 @@ object Form1: TForm1 TabIndex = 0 TabOrder = 1 TabPosition = Bottom + Sizes = ( + 358s + 498s + 358s + 498s) object TabItem1: TTabItem AutoSize = False CustomIcon = < item end> + TextSettings.Trimming = None IsSelected = True Size.Width = 179.000000000000000000 Size.Height = 49.000000000000000000 @@ -55,6 +61,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 0 Text = 'Discover devices' + TextSettings.Trimming = None OnClick = ButtonDiscoverClick end object ButtonPair: TButton @@ -66,6 +73,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 1 Text = 'Pair' + TextSettings.Trimming = None OnClick = ButtonPairClick end object ComboBoxDevices: TComboBox @@ -102,6 +110,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 0 Text = 'Paired Devices' + TextSettings.Trimming = None OnClick = ButtonPairedDeviceClick end object ButtonUnPair: TButton @@ -113,6 +122,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 1 Text = 'UnPair' + TextSettings.Trimming = None OnClick = ButtonUnPairClick end object ComboBoxPaired: TComboBox @@ -141,6 +151,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 0 Text = 'Services' + TextSettings.Trimming = None OnClick = ButtonServicesClick end object AniIndicator2: TAniIndicator @@ -172,6 +183,7 @@ object Form1: TForm1 CustomIcon = < item end> + TextSettings.Trimming = None IsSelected = False Size.Width = 179.000000000000000000 Size.Height = 49.000000000000000000 @@ -196,6 +208,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 0 Text = 'Clear' + TextSettings.Trimming = None OnClick = Button2Click end object Edit1: TEdit @@ -217,6 +230,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 2 Text = 'Free Client Socket' + TextSettings.Trimming = None OnClick = FreeSocketClick end object LabelNameSarver: TLabel @@ -242,6 +256,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 5 Text = 'Send text to ->' + TextSettings.Trimming = None OnClick = ButtonConnectToRFCOMMClick end end @@ -261,6 +276,7 @@ object Form1: TForm1 Size.PlatformDefault = False TabOrder = 0 Text = 'Start Text Service' + TextSettings.Trimming = None OnClick = ButtonOpenReadingSocketClick end object LabelServer: TLabel @@ -2150,31 +2166,52 @@ object Form1: TForm1 Left = 256 Top = 472 end + object PanelLock: TPanel + Align = Contents + Padding.Left = 16.000000000000000000 + Padding.Top = 16.000000000000000000 + Padding.Right = 16.000000000000000000 + Padding.Bottom = 16.000000000000000000 + Size.Width = 358.000000000000000000 + Size.Height = 570.000000000000000000 + Size.PlatformDefault = False + TabOrder = 17 + object LabelLock: TLabel + Align = Client + Size.Width = 326.000000000000000000 + Size.Height = 538.000000000000000000 + Size.PlatformDefault = False + TextSettings.HorzAlign = Center + Text = + 'To use Bluetooth features in app you have to obtain permissions.' + + #13#10#13#10'To manage permissions manually, go to "Security && Privacy" ' + + '-> "Privacy" -> "Permission manager"' + TabOrder = 1 + end + end object ImageList1: TImageList Source = < item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 016449444154484BEDD6BD2F04411CC6F1F516145E12054744A8A8895E541428 - 545EFE01AD44E38F5152E9141A91884294E22551685C8220518878F77D6E5F32 - D99B99BB0B9B28F6493ED9DDC9EECECDCC667E17E4C93275D1D1961634E11B2F - F8842F0DE8809ED37B5FF1847738538F0236A08ED2AEB0885698E9C2166CCFC8 - 1E065036C051D81E7039441B6E8CB64A9ED18B2445D86EFC6BB7284D693A3BE8 - 473BB43E9ACE4E4CE011B6DC631C5AD3E68866621847B0C61CE9901A3C3985F9 - EB4FE0CB3CE27B9D23B5B599D15769C6FB7592B2F755EA2093E49D669ABCD34C - F36F3AFDC21A8EA1ED4DD56513D3F06501DBB8C0195479E690DE4C9254BBE17F - 403B50BACDBCF6716E83BEA8503786A749D45653E2C2AA919AB56E1F07B8862A - C60866D0075734A5BBB8849668109318439C3B7487A7E1DA9D63B674E54E0FD6 - 114FD71B56A092E68AFEF22C41037B50439CA9E8586D3443ABE1694D598E8E79 - F2FC3641F00387E68F4657BBDD3E0000000049454E44AE426082} + 0F0000000473424954080808087C08648800000147494441544889EDD5392F45 + 4118C6F1DFB5048525D1582242454DF4A2A240A1B27C01AD44E3C328A9740A8D + 4844214AB1240A0D09091285885D3117D771967B89EEFC93B73833F3BCCFCCBC + 27EF90F38F1452E6EA518B37DCE3252357359A8BBA021E708BA7345115DAB15C + 348AC62966D010D1B5623541F3864D74C71D70204514173B68C445059A3B7494 + 9A9E5768FADBB8FCB8D228EBE84293509F06B460183731EBE10A43424DEB8AD1 + 883EEC2668BE9DB43769519183C8EEF733D64F29E3A47163A53C44BE53FFCEB8 + 7C5906FF426E9A9BE6A67F367DC522F684F6768A158C65E49AC61A8E7128BC3C + 937E36934FCA6DF8CF42078A8E55D4F06B32761FA5BACCB154924CB7B08D33E1 + C5E8C7383A53721D62032742897A3082C124C1158E3091B1C9362CF9BAAE47CC + 0B4F5A12B598154A785D3A319A6116A580850A3530F70B4D4E4E3CEFB4378D47 + 9762354C0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2185,42 +2222,39 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 036549444154484BD5964B6B5341188627B6518C78C70B2A68681B41A2564145 - A82B2FE0C68554847AA59B42145149514821284ADD887FC020FD01E2C6DBCA85 - 0A8AE842F182BA5044F18E37D4C4A41EDF6732A3CDB16D9A2A882F3C993397CC - 77BE996FBE39E67F5144D4971FAB6A84F86D6C9D2B872A0CAE17EBC43DF1550C - 24C66E146BC56D5110C3D22E11088CADA621A471628588091C7A2018BF550C4B - 07C437C124EFC41A11D636F1563016ED168C3F2926D2508B0E09BC63026FD47B - 7A41DC1463054BFF49F4BA7A5CBC1145315F0C59FB85F530954A05C964326CF4 - B560D283827DBC2C18931604D109574F09026B50F1871D22884422413A9D0E50 - 43438337EA97778FA0EDBAAD958DE3E95D5B2BEF27FD67C4281A106FD724B688 - 4D62B323238268341A6432196B309FCFF767748CF82E5E899562B1A09F71D3C4 - 3241DF67C158ABA8382A1854412C160BB2D96C502C16ADD142A110343636D2D7 - D7283A2768DF676BC63C15788B13D3C555413FCED935C65342DDB4B4B498F6F6 - 76D3DADA4AD5C4E371D3D6D666EAEBABE682F3AE4CB8F28E60EE25E285782ED0 - 227EFCC6F216D6602E9733DDDDDDB611635A5EFB5C457882660A96F096AD1933 - CF954430B22F55114D7575E504E5CB1AF4D89553C478F1C8D6CA2F81DEBB7216 - 3F5543788862FF582DCEE668E13D1BE9CA8FAE9CC0CFDF328A41722B7BC19C9C - 6B44BCA0922BED5ED56C5467D63D558846BC62728E8F3F8F3656241F892491BF - E62941C05C1FC417315920EF31CB8E386A95467B7BD99A5F650D9AED4A923DFB - 37C7D68C79E64A9FEC6DDD1BB56BD6D3D3633A3A3A4C5757976D2C954A4689C1 - 3E5711E7119114C83C0B6DAD7CE7A249AE7CE84ABBB9C704EB5F417F19299148 - D017CE48A705ED3E233D112C17A995547845D0EF9387F572AEE02E6410097ABB - C80A9B7BE5F96046B9B009206E9B55022F7DEE9D21968A97A222F70E2456C07E - 2970CB7476765AC34D4D4D61A33B056D37040EF0B2BCC47D81B83CE83F2B7EDE - 32D5C46DC3C6DAFBB4B9B9396C94DC8A91C3B666CC25C118969AA372DCD571A0 - A6547744E4057F0E1BCD896B824B830F368E0D63A813C55C6B9CDD05A266E109 - 1E858DF61546F918E322477EE94F091FC1356BAF6012BCEECF28719014EC1DC7 - F1A2603C81396C31D106C13E4FA561101154CB05A7C2DED77F2226AB7AABF751 - 45D6FB4732E6070EF01DC2A8ECCE2C0000000049454E44AE426082} + 0F0000000473424954080808087C08648800000331494441544889D596CF4B54 + 5114C73FAF995734623FE9071594E81884150515814190056D5C84115896CCD2 + 222A94028529290C2482F616FE01D1A61FAE5A4490442D8A7E502D8A28FA2966 + 618DBD994E8BFB7DEAE8A833639B0E3CBE9C7BCE3BDF7BEE3DF7DC0BFF897840 + 344FDF19B97C234510EE016A81E7C0AF297CF701BB8127C050815CC372143091 + EDCC619F036C0362B8845ECAFF60B1846780DF0AD20FECCAE17308E8932FC031 + F95F05E6174A7816979D8D220D33BD0D3C024A714BFF03C8482F03BE0201B0B6 + 10C25328C3A6A626ABAAAA1A4BFA4541DB71FB7857136BC615D115E94DB8C29A + 54A2C061C03CCFB3E6E66633332B2F2F1FBBBCC715F481F47665FA4CFA41D96F + 00B3C2E01E10071A80FDC0017DAD80F9BE6FADADAD6666964AA5729196007F80 + CFC00E60A3EC062C01B6C836285F007CE00223FB35FCC562314B269316048199 + 990D0D0D59454545AE42BAA57F4E4A7FA76CF7034B815ED9E3688D3D5CA9535D + 5D4D2291A0AEAE0E80B2B232EAEBEB8946A7EC053DC24AE153C5DE047C043E68 + 7C43488A66412291A0ABAB8B8E8E0E00A2D128BEEF4F45883201588E5BC2C7D2 + D708BF8E9E5456354522912C2C40DE0817017381D7A32601F04DB8621CE93424 + 835BAD5260362399CD147E17CEFB97A486EBADBE62FED6B8274C0BFDA2483DCF + CB398CCB2A8D3B3EE179346158894151A4134844B106809FC0428D8719970AFB + C7916632992C2C40560AFB70FBB74AFA7BE1FCD17A98B607D0DDDD4D6F6F2F03 + 030300A4D3698220C8877493F01DAEF3AC97FE5CB840F82AFCC1072E926747AA + ACACCCD591AE93DD91DEE22ABA01D70AEFC91E360F3C6035EE2E6CC035E84620 + 897A6F5B5BDB64A4315C017D016A9465D87B97019B814F8CE9BD13898F5E0A9E + E7594B4B8B9999C5E3F1B1A44744F0500924358917B21F90FD26AAEAC99A6A00 + 5C024ACDEC7467676774707090929271936DC32D658F82D7E0AAF9B2E26F975F + 0F23E7352F390FA4C87E3984997601F77197462DEED898F455B86BED0FB0AE10 + C250CE69A693BD916A718FB176E9E1D25F63A4820B96130A929A80D407AA707B + 3703B823FFC6620951A0BDB857C5E2297C3D602BEE54CC990E69182CDF173EFC + BB563B3DF90BD23A21EB2CF17F7C0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2231,38 +2265,36 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 02DC49444154484BD5554BAB5251143EBE5FF9402525F1C13591821CE4C05148 - 8E04B9C3C6459081DD4983FA0141835E8346610F721004D6A049348B841C1442 - B320888B087750A8C5CD50D23C7D6BB93C1468441E6FF4C1667D672DDCCBB5F6 - B7D756FE3B54AB554B2C163B2A9F7B039BCDF60666E476BB1FCD3C6B46A954DA - 8051E72B140A9D23FFDAE170385EC0705293C9B49B4C260F72609D405B53168B - A50BCA89ED767B95037A219D4E1FF0783C35AC1BF178DC276EC5E5725D86E1A4 - 66B37907F12407F40044F304863747A2ABB046F2A752A90DB4B64F7E83C1A07A - BDDE33E4D705D2BA7945D34C26B39F0380D3E924F5CEFFD02B76EA8172B9EC35 - 1A8D5F4179739FCF778D0340341A3D06C37E54AD562A957D1CD0038140E0120C - 6F0E010DD829C0F7188663E170F8043B9780CFE54F512C16AFA312E6E3F1D895 - 482472FC01A0FD2F852AC3E1902AFF3BE4F379B3500D38BF77305C5130183CCF - 4E00AA2571B11F57E9393B976069A568D1E166B3791715DCC475718B5B8142DF - 0AA56AB5EB0101ED085526934944E8422C4C4A15F67ABDB3F8F1C9D168B4D56E - B74F498836FF2654190C060EA174A6DA19A3BD06A10BB13069A3D19858ADD66D - 543582623FA15DEF254489B4DFC03F114A1DD0BA410A16BA104BDB8BA9730BE7 - B789CBBED9ED769F895B994EA729A194685BA8D2EFF7FD42A91B341AF501BD9F - 5205AF4824729C030084F414662EA4DBECD40378BEB66078639CE12F2DC498DC - 85E118547D9A9DABA2D56A218FE503286F8C89749F0300D47D0486FDD0805A28 - 14421C581568D9CFAF898AC110E70080D6DE81E118DE58ED4AAD0C247D0CC31B - 4328F7607970E07A0571CE1FE73108EF22F97501E66E1A553C40C21A06875625 - 147E012AFE0E4AC3FEB3DFEF3F348BE8846C366BA1259F74354268750794AB84 - 981ED6EBF5D9705E17709635184E08017D81BAB507602DE8743A0EB495124EB1 - 48CD5738B06EA0BDAF615454AC3D6B7B825C2E9711FADB21FF8FA1283F00A046 - CC57DB52F6F10000000049454E44AE426082} + 0F0000000473424954080808087C086488000002D2494441544889D596BF6B13 + 6118C79FF7DE7B73B97B73EF9BDAABB91A4AD2C6705530831932154E3A74E8EC + AC0856A85D1CF40F101CAC3A3849FC811D04A1757071950C2DA2149C2C08525A + 4B076D1B25B12498D873689E5C5A696AF45AF10B070FCFF7BDE773EFEF03F8DF + 94CFE7592291387DA8504DD3DE0240D534CD9943018E8E8E0E0080878F6DDB97 + 0F05ACEB7A01A194D2522A953A7EE05021449A31B68EE070389C0F14E038CE31 + 21C49410E24E32998C623E1289DC40A8AAAAAB52CA5460504DD39E6371CEF924 + 00280000E9747A80525A04008F10E249292F06066D0C1DF6682B93C91C45CF30 + 8C99960F7A1D18746C6C4C2A8AB289C5BBBABA6EA1D7D7D73704FE82F2C6C7C7 + 2381812DCBBA8EC51963DF5A3DC6580DFCED73B65D1DA513E8C8C8C86D4A2900 + 00D46A359E4C2673E885C3E1598CABD5EA50277577C8755D75778E73FE1E1A3D + B22CEB0AE6A5949398374DF365BBBA7BF6D4B6ED937373730F755DBFEB388E89 + 7942C802C6F57ABDB93D0CC3586DC9C73B86BAAEAB6E6C6C5CAAD56AE72A95CA + C4D2D2D279F438E7DF312E97CB3AC6A150A839C7954A85740C2D140AF55028B4 + 4808A92A8AF24508F1A105D47C470851C79810D21C0D5555BD76D05FE60C9548 + 24EE2D2F2FBFD3346D736D6DED15E63DCF4BB7345BC4A0582C1EC1D8308CF552 + A9D48EFBFBCAE7F38C52DABC59E2F1F819F484102FC05F48F7832102806DDB13 + E0EFD31D43A8695A09BD9E9E9E0B8100E7E7E71963EC13168E46A38FD11B1C1C + 3C85794551BCE1E1E1582050D3345B6F13AFBFBF3F819E94F2017A86612CEC55 + E34FA0CFC03FD41F416311BAAE6B514A3FA327A5BC1618D4B22C47D7F5279CF3 + A9DEDEDE662F39E75709213F60FBB0FFDADDDD7D2230280040369B65D96C96B5 + 00638CB18FE0FF393C9D9E9EA68142774B083105FE022AC762B1DC3EAFFC9D56 + 565674428807005BB07DBFDE3C50208A73FE06003C21C4ECBE8D83542E97CB34 + C2B687FC3FD74FB8AFD32A7A20ACF70000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2273,35 +2305,32 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 027249444154484BED96CBAB4E511887B7FB25976320B914910CD189524C50EE - B994928191A9FC0BFE01CA492E91981025840C8C1898C850624288A2DC2FE5FE - 3CFBDB6FBD9F8EB3F7F1392703BF7A5A7BADBDF7FAADCBBBDEBD8B7F5D436054 - 5576A46155D944D360377C80A7360C8616C17778094B6D180C75C35BF8012F60 - 05FC350D8511ADCB3669FA0E349567B0163A967BBC0AF6C15C1B92B2A9CB6CF9 - 08364147D2E80ED8E1799809A16C7A009E57D70F610BFCB1BAC059DA995C84E9 - A0B2E97A580DCE348CB743D62CD80F23CB5A8D26C25E08E3CBE060E6433655D7 - 219E3B04C643C801DBBE061A9DEDF1D003D1E125580911BD1BE0187CADEA0E6C - 0A6479DF7B17A07142190387218CEF4198DC856FD5F53598046A748572869E69 - DF319335D6703801619031826FC0385066AC53B0ADAC15C504780C3EBBD086FE - C8A5B1B32F900D6F82ABA1A6C269F0DE2E1B2ADD07DB3697B54A79E37F275FDA - 090FCA5A4B1F612B7C02A37307C40C9D79F4EB732A0657AA89A97B6450790442 - 63E138B8979FE12C5C01A5912BA1C2EC4D553692517C042203FDCA5588A89D0D - E76063596BBDFB047C6E9E0D4DE4D93C0861781B625F6F410497C7650628671E - 916CF4BE82D76040D6CA174D75D1F1195807714EDD4FB34DDC3711CC81AC93E0 - BDA3507B4E9D613674BF26C302085307603CE48CE43B39468C78DB1797B53EE4 - FE9849F20C63E972EEF54B649237E75AB7742FB3A9FBE8F1E9ED33D92623D4FD - B2236718862A9BBA74FEB2786DB03888DED4E877C8919A63F740FEACA96CEAF9 - B4F4F3B61C3A96A36B3BCC95B2A91895CB6040954DDFC312187069AA9919A736 - 22FB527FFE7BFD3C799C8C4883EDBF6A54143F01B182B90E1321120C00000000 - 49454E44AE426082} + 0F0000000473424954080808087C08648800000252494441544889EDD6CD4B55 + 411CC6F14F5A99A1A58B884C488A70591105416D2AB057AC408816ADDA46FF42 + FF404121BD90446E8C8428C968D1AA166DA265446D928A02037B33855EEE6D31 + 733BE3C1EB3DA2458B1E38CC39F3F2FB9E9979E6770EFFB816A021967352FD2C + FAB6E114BEE2ED5CC145B505258C61FBDF826EC66794F11EBBE633781D165581 + 7E89D032DE61DF7C00EBD185B3583F03B414CB57383457E87A3C8D016F614D15 + 682F46E3FD088ECC05DA22CCB2B28443583D0DF400F60833AD808FE56275E01C + 1617012FC799043C1C5F66430E0A0F927E17053F543414EBF72A78B69B713E09 + 7807BB65EE3D883EFC485E6C652E465F6CBB5D140A8DB894809F279067F819EF + EFA3358E59122F718663714C4351282CC4B504905E253C4453ECDB86011C8DCF + CBF03AF6DD341B28616906F03D077C24AC06ACC2F5D8763219FB22D61D4E03A6 + 1B5F4D659CC0CBA46E023D9814DC795C36C3A624EE442C1B93B185A04B045375 + 24754B7155D8CB6F18C4DD0454CAC13E15E0FC56332ECB3250FEBA2773ED5ADC + 447732F64DECD75914D8820B09F0896C5F1FCBCC358CF638A655E6E4BDF8808F + 82216BAA55487595C037B05F764E7B846C53691FC2BA5C8CFED876458173DA92 + 030E62053626D0FD821FD28CD46BAA470662FDD65AC095422649675859BA34F7 + 7609497E44967BBB73D04EE1F84CF7999CA20E61BF2A336C4FDA5268BFF0CB52 + 16CCD255255EA1DFA13A21C79E36F5B396874EC672143B8B04AEA57AB9C33C0D + B42CB872C77C0067520A1DC7B63F0DAC40C7858C53D391336936FFBD0DC2713A + 2998EDBF6AEA17B182B90E10ED3B7B0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2312,41 +2341,39 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 033949444154484BA59631485B5114864FD2080E0E690CC4801AA9E052500483 - 7155113A7429B8A94317298E2A38E824B8E8D2D216A74283B18353DBA58BAEAD - 930E45D1B13AD4C44470281483B7FF7F725F1AE34BF2F2FCE0E4BCDCFBDEFBEF - B9F7DC739F34414F2010F80E6FFC189EFD059F8449803F1E48C1BEC2A26D6D6D - 924AA5E4F6F6563BBC0041D9DDDDE5651EF68C178D7802CBC274C4D168D4909B - 9B1BCF46B6B7B72B23AE4D4B4BCB53B802CC2C2F2F9BC9C9497DD02F636363FA - 7C103FB548168B45CEC9E38D8D0D595D5D95CECE4EED383A3A52DF0C781747AB - D7B544BB60DF70536C616141E6E7E7B5B1AFAF4FFDC1C1817ABFB88932C30E61 - 91B5B535595F5FD746D2D5C5B1A0F390DDFEB923CA35C442334B55706969A9D4 - 61894422D2DADAFAE0482B61966AD2604A75E1AB39393931B158CC747474D816 - EF308B47474735912846B80F755B2069EC6DF7C9E572A6B7B7D784C361737D7D - 6D5BBD512DDA03CBF1CFCACA8ABDA5360303030605C21C1F1FDB166FDC11C51A - 7ED10B9FB6B9B9695F5B9F4AD110447FA0ED39FEC8C4C48460BD3C95B8603028 - E9745AE6E6E6F4FFECECAC7AAF3C827006DE0C0E0E9AABABABD2D03C80AD538E - B8116E89C4883FC29BE1E1614D18AFCCCCCCE88BB8C6F592AB52D4D9A745B4BF - 84F0BBFDFD7D191A1A92CBCB4BDB551F672992C9A47477774B3C1E97F1F17159 - 5C5C944C26532E99A1504897C40D46BC036FF012737171511A661DA6A6A674F4 - CC6A6E27EE631410671ACBC6D38959CF6BB7F394C26FF0BE57FDFDFDB2B7B727 - EDEDEDB6EB3ED3D3D3B2B5B5A5C59CB3532814249FCFAB3F3B3B93D3D353393F - 3F979D1DC6A2672B3F045C61727D80D7D167B3598DCA0D27D27AF058E43D30D6 - 03D6859A30E24FF0666464A4A67023515638F6C358F158F91AC2885FC36BC498 - 3EFBAAFFD413650D671F8C359DB5DD3314D688B1C6F792CB4D14196D704A693B - 9EFD6DBF409A8653AD6BCCACAEDCC76EA28E208C1F62FA05E81746FC1EDE2412 - 89B270B568C59452B074EA3F90F23E66E562C9742A12719286530AFFA008ABA1 - F05B78ADD538245488C7223DACE0770D1BC1A9D65A5D65DC164D6569B330623D - 9DAC71E37BDB87D6FB8195FE338AF85FF83FB017B09FB00688FC03B059773694 - DB8B440000000049454E44AE426082} + 0F0000000473424954080808087C0864880000032A494441544889AD963F486B + 571CC73FE7E41232DCC1EA8564507CBC0B0E068C012FD15531D0A14BC1A1200E + 5DA4389AC1214E4216B3144A712A54A81D9CDAB7BC45D75751F00EC5A0637578 + E62F5828941BEEAF43727DC933313749BF70B67BF89CEFEF7C7FBF7B20BCDE28 + A53E0032CA524AFD0538002A247019780758A669B2BCBC8CEFFBA14FAB94E2EC + EC0CA0067C1966CF5BA01C9CD8B22C1111F13C2FF41211393939E974DC5FD168 + 3409D401C9E7F3B2B1B121808CAAB5B5350144BFC2743CCF3B03BE28168B1C1C + 1C303D3D0DC0CDCD4D980A75A9D96C222200F483CE00EF45249ECBE5D8DDDD05 + 606E6E0E80EBEBEBA1A19DEA05750017982C140A1C1E1E7E3AC9CC0C00AEEBFE + 7FD068349A544ABD0B807B7B7B5D1F4F4E4E128BC5C676DAA9B7B44393CBE57A + 06E1F6F656E2F1B8241289A143E4799EACAEAE067D0BB4FAB00C48B158ECBBB1 + 52A9886DDB323131214F4F4F6341DF001540F6F7F7076E4EA552629AA6944AA5 + D1A14AA9DF1971B4017274743434D4504AFD21225F0164B359128944A811A7B5 + E6F8F8989D9D1D00B6B7B7870A50446BFD0B20E9745A1A8D46E892B9AEFBEC78 + A8F2B66568AD7F062493C948A552090DDEDADA12404AA5D2ABE1EA2A6F1BDAF4 + 7DFF5BADF5DF1717173B4B4B4B5C5D5D6159D6C0320557E1380E8661108BC548 + 2693A4D36916171749A7D3CCCFCF6318065AF71E808652EA1410C771E4F1F171 + A0D3CDCD4D0124954A896DDB128FC725168BBD089C6559629A6697D3404D11F9 + 466B5DB9BCBCFC6E7D7D9DF3F373A6A6A6063A765D976AB54ABD5EA756AB51AF + D7B9BFBFE7EEEE8E8787074E4F4F01683F047A2AA2B5FE0910DBB6A55C2E0F74 + FA9AF2F97CE0B8426B2EF495A1B5FE1590959595BEE041D062B11800CBB426DF + 4045B4D6DF078EABD5EA50D05C2E1700EBB4667B684502C70B0B0B2FC2D50BEA + FBBE140A85E079F2B1FD02195A4670C78EE374F5712F6800A4F510734601763A + FE1190D9D9D967F0E7D08E92D668BD40C6D6731F67321969341ACF13A933344A + A98F8CE9F005586BFD03ED599DCD6685F66F91766846BDC3418A04B3FAB35566 + C8940E2B23F83BF1A9F1C3F5E118505F447ED35AFF0BFC037C0DFC1966E37F66 + 3A77624FAF9E740000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2357,58 +2384,60 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 056549444154484B9D566D48645518BE1F3A8E69E3076AEA62C98C092AF4435D - 0BCA1C583212238A34D88208D960F15F542C2198F6A9BB6E44251BB524FDD81F - EA9F402C3537B545695B63C18F2D69FCFCE1577EE0B8A68E73A7E7B9DE33DCB9 - CECC560FBC9C73DE73EEFBBCEF7BDE73EE91A528A8A9A951D7D6D642D6ECEEEE - EAE3C4C4C480AE3021232323D0D5D5A5A17B62CE0CC5684FA0B1B15111843436 - 3434E4A7902C1C219D999D9D55E0286D460D26EC240941A0B8DD6EADA9A9899E - 4B76BBFD214DD3EC79797973D3D3D387D4555454C4B0B5467FAF88C391CA30A6 - 322A10390F0F0F2FC8B2FC1CF4A90100AD1FF2B3A2282D7EBFFFC7929292587E - F45FD26D2595999E919111FBFAFAFA3970B44247929F403C84760FBA22B4B590 - 54C8B5CCCCCC73F9F9F97AE46698A31F1E1EA68D2071C89E22AD727F7FBF037B - 7905C63F81EAFBD8D8D847D0AF426A5B219FA37FBEB8B838137397E148EDEAEA - EA0F939393F1DC0A46463BD6745BF73924D2A4A4A4949D9D9D6FD17D1A06DF07 - 4933F5DC3B1A651FFBA97F83B4F991E2D7E0C4971876A07D9DD5CE62E2BC35DD - E6540749B3B2B2EE5B5959B98AEE8B207C13849F928C7B5B5A5A1A03B207A0B3 - A5A7A72FD7D5D51DF4F4F4A8D5D5D5FEE6E6E6CBF8E6ACAAAA55474747B7B8C7 - E1F65744EF743A357628019BCDF6B0CFE7EB07E15730FE213F1E1F1FF7317AAF - D75B8B489EC1BA44C8AF587BF5E0E0E04F3A353A3A5A00B25FF0DDBBF8AE5554 - B4152415CEA84C49515191B2B5B57517F8ADBCBCFC5A6E6EAE525959A9793C1E - FBC6C6463D08DBB0B600869D689F40D51661AF6F2395CB70C00E3266671DEB7A - F92D0D0B900C27204848E81700C5E572F960ECBA2806A66F7979B90A86DEC150 - 8551AA05CE20BA6F626262CA41BA8B31F64ACF5A08AC052510F40A640A534A07 - 483C3131E14204DCAFFB0DC26D38C0A2F900B2022986935FC3F0ABE8A7040232 - 757AC1B08D4448289CA4804C130BC6C6C66C88E459741F34087D900BA9A9A96F - A5A5A57D8C082B313EC45C3EDAF7E0CC2EFAA35C48A7A3111221F9174091A830 - 744AA414FD3BA8CE5BD85F6F6161E13E0A6E0273E3C65C021A075A17C7029108 - E950D833858AF5998CB2C944AA53D861FA587CE83A8D392219FD569CDBF3F5F5 - F5617F0884C8808A2BEC44B40E87238034AD20A2020C99C2044682B47A666666 - 6CB881AE40779A6B4D8883A34F7577776F62ED6DD8F5E3341CA70A30A7FC0421 - 2729F860353939F965A82E42B6208F23DA21ECF5EFE8BF000901B7026436C867 - 4B4B4BF583838309918A2A84D43C896B4FDDDCDCDC8191B791B65760F406A6FC - 18738905C1807460CD259CFB37FAFAFA9204B139E5AA38CC566F888E8E0E85F3 - 7373737FE037378028A9E605C19B49076BCD88D2D004E1C6FAF8F9F9F99B6565 - 657F9B53AD930A420287DDE81D8373D9D9D9EAE2E2E23686FDA8620F08F85B73 - 918C515A083720F198E3E4A3B88D0253535303223846AEE2DCB1127598A324CC - D1F323782CA388EEC4C5C58D627FFFC2542908E3B846005C1F41BE83FE310CE3 - 21A7F1DAB808D1186D6F6FAFA6F0D6A7D16884BA02E0C1E785BEBFBF3F979393 - 7309C69F877AE078F618203BA3AA9217DDBBC71A29E894F17B0C88B4EA4F14A3 - 1F965040CCD1595C14819696965348E1599035C10912A01B60B53B20FCE3DCC0 - B89C679BFF608CA520D1C2C2829EC27F43C839A60A4522E315E1C50D76133FFF - EB30CE5746369630ADDCC36DFC8DAA1B1A1AB6DBDBDBF547002122150889D88C - 68CE106EB724B5B58D27EFEDEDBD04E227A1F2A0E2BF401DAC5ADF4856521DE2 - 096A0CEF49684E796767A78634EBEB8C94EAFBC8B140585282C47C0F457AF308 - 4472887A3E67C4BBD98C88A48435622BA211326A51385644253520F3696A25FF - BF84922449FF00E6C344E5A0AFF9710000000049454E44AE426082} + 0F0000000473424954080808087C086488000005B94944415448899D966F685B + 5518C69FF79EDBE4D62D4DD7ED62A9B085A4EB9082B065618253CE18220E8B28 + DE095310712ACE6F2222C220CEA9EC8F135187A243E78781CBBE4861BACE2D61 + 8E0E7505B14D55E6DAAEC89AEEEE4FD7DB662637F7BC7E586E779BA675FA7E4B + DE73CEEF3CCF79CF3D2F6181B02C4BD8B64DC1FF1CC721008844225C3BDE344D + CE64320AC09C5C30B4F912E9745AF381A66972369BF5B2D9AC178944B81ED071 + 1C1A1A1AD22CCBD200D09C05035137994EA7B55C2EA74929553A9D56006018C6 + 0A66361289C4F0E0E0601900A494BA0F046EA9FF37C5F5A024A514D96CD6330C + 23EEBAEEEB001E05D0C2CC0CC003F083106257A552F93E994C360481C1980F5E + 0B25CBB2B453A74E19B66D3FCFCCBBAB902C11E50014017432F366002D4474A8 + B5B5F5F98E8E8E722D30A83E97CB7941F0AC334DA7D3D4D3D3D364DBF627CCFC + 3E806F43A1D03DCCBC4929B55B29F59152EAA5356BD6B412D13E009BC7C7C7BF + 1B18186894522AD334B99EDDB5E73C4B69341A5D323939F91580878868A7526A + 0770F3ECA4940A00F2F93C01402693F18410CF2AA53E25A22F95522F58962586 + 8686B47A7607AD9E81B6B5B5DD5128140E30F31344F4AA52EA0329A59ECD66BD + B56BD7EA83838377327368D9B265635BB76E2D7577778BAEAE2E6FC78E1DFB98 + 798BAEEB9B5CD73D9B4C261BE6AB6E0088C7E38AAA6A391C0EAF2C97CB3D44F4 + 9952EA9D6432D9D0D7D7E746A3D1258EE36C66E687012C26A29F1B1A1A0E944A + A53FA5947A6F6FEFDDAEEBFE484469A5D46EBFA2EB41FDCDE855BF71E6CC99BF + 0A85C273EBD7AF3F054097527AE3E3E38D172F5E7C9199770210440466DE582E + 9753A150E8955C2EF7AB6118D789A840442BE683D5DAADD9B64DB66D537B7BBB + 5BA9544EFAC5D0DDDD2DC6C6C63631F31B3E30101B5DD7FD42D7F5FB43A1D014 + 00153CAA858040A07A4DD3D492C964836DDB649A26F7F7F7279452FB0044AAC0 + 09009F12D1DB000A00D6789EF7F9D4D4D433009630A3505DA76E050743F79300 + 54241241D5EA50A552E902B0BC0A7401BCDED2D2728888F8FAF5EB5FBBAE7B96 + 883A00BCC5CC578410BD4A29D8B64D0B0167290D46A9541200EEF22D65E6DF84 + 10672F5FBEEC747676FE5D2E97FB354DEBABE6160168524A25826BCC07741C87 + EADEA96834EA1291BF2800B432F312DF3ECBB20433C7AB39006866E6DD9AA6BD + B46DDBB6BA0F820F0400B16AD5AA396A9B9A9AF8D2A54B05D775EF06D0016011 + 3327745D3F7FEEDCB9507F7FFF27005235D3C244F4E0912347AE32F32F2B57AE + F48AC5E24C71052D9F03741C871CC7A1A9A9A9F1E6E6E6A788680F806B00EE53 + 4AE55CD7FD1DC0E3B5F3AAD729C4CC1F8E8E8EBE7CE2C48945F315D52C6830B9 + 61C30671F5EAD549A5D46B9AA63DAD69DA69005EC0D22072D62F66DE3B3131F1 + CAB163C7A23E3868B988C5625ABDDD00C0C18307B5582CA60D0F0FFF6118C671 + CFF300200E60F12D85332A6B77223DCF6BBC70E1C24FA954EA46D06A118BC5B4 + C0B541381C9E63775B5B9B181D1D9D60E61E21C479666E0190B859DD73805700 + 34121131F33AD775399FCF1FF7C599A6C962E9D2A5C21F5D5B7541F5B1584C4B + A552343030F09B6118BD4AA9CB00D632F3AC5D12D1BB44F40D33DF0BA01140AA + BDBD7D4F229150C562918E1E3DAAB4783CAEEAF53DF5ECB66D9BA494FA8D1B37 + 86972F5FBE57D3B4C7001C0FCE63E68D42900360DA376FC6EF9BCFE3CCF792A4 + 94338A17FAA2049FA8CECE4EDEB56BD75DA552690B33BF4944E19B5CBE06A009 + 800EE03433DF6F5996C864321E00CC804646463878BE0B01239108178B451A19 + 19A1D5AB573BA552E9A7C9C9C993CC7C0F33B7556DD5004C8442A147B66FDF3E + B17FFF7E35730435EBCE523C1FB05E5E4AE0BDF7FA9AA7A7A79F04F00080F3E1 + 70F8E375EBD68DD7F6480BB6A0B70B0C5A7EF8F06145447E6F246EA71B9C05CE + E7F3345FCFF36F1B721C87BABABA3CBF6FBE2DA80F0E2AFE2FC0783CAEFCC2F9 + 4F507F4C3A9DA65AF8FF0502C03FE4D244716D102F1E0000000049454E44AE42 + 6082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2419,38 +2448,37 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 02E949444154484BB5D649C8CC711CC7F1B164C9962D59CAC11A42A1942D515C - 4438282207177B925CECC241C9451C6C511217073B277B09D945C892907DDFBD - DF33F39B7EFD9FFF3333CFC8A75ECDFF3FCFF39BEF7F7EEBD4CA948EFFD3188D - D01EEDF2EF7DC18BBCAFF884EFF8E774C4629CC59F22EE622B26A02E2ACE0C3C - 415A913D988D99D8977F4F7EFB0BE88F1A67097E212EE4FD31B44132BDF01CE1 - 7F3F623CCA19BE6C262159D0315B8E6219809788DB8D43C9B4C57BC40D7F601A - CAC93CC46DCFA3640E226EF41B2B5193DC46686F97174D37C4057515F550930C - 4668FFCD378A6503E2821A814A1296D89BEC5D9138D5E382D750699CB97EC6B9 - EC5D22B5F3AF2DD134775988E35B692EC10DC389B92AFF5A489DFCABB16833B4 - 860FD31C9B506E6CD30F7D3006CE85BDE88485388ED4EE76DB7B8DD0C593514E - DC04D6E2157EC265E6F2097105ACCB5D568D0D576314DCBC1FC06F5C2A53101E - 3476033E500F9C446A1CF8B1B9CBCC52D8703D5AA03B92E36EFC5077ACB7D885 - C7880BEF80A7D40964132652887BA64798B14B3EC38D7D118663375C8771A6A2 - 3E1CBF47F9FB38A3311257B2772971A685BEDF8CF0B49E1E476037BE434F84EC - 877F5F03CF548728DED9DC206EA22F5263DFBBB007C1310D0D832DD889787BBB - 0567E532B86D3EC40284364EAAB92824D9BD3E911BFE76A41DC69E4087D10AB3 - 7C83385E16F364727C5D01CF1062D1F8BE4A51B30D5D9076163A91DCA35D7376 - B5F121FD1C8523315EFF16BD97BBCC25ADE853B8D6AA8B67A493A6036C7F1D0D - D0108EB745E3CF75D65ECE5DE69256D40F28F63BC709711116710D1F806D9AC0 - 43DC65D71B21F3F3AF45330C611254C75F851670FDFAE01FE0834C879330EC6A - A75056DC3B933F3B92ECDAFB0809A7CA1D383CE1FFBAA2ACD86567101A26F9AD - 866023429C742BE0A47243714995BB6F17E2A99056504731077EDB643C6526C2 - D95F514E23ADA8BF753BE3BFE5102CE4FA7319B9DECA1EA7EA92B60124331403 - E161E043B8CDFD433299BF919B01F6B35D9A910000000049454E44AE426082} + 0F0000000473424954080808087C086488000002DA494441544889A5D64B8896 + 551C06F0DF7C891AD9C464115E60165989850A1608DD1083DA44522D84A270E1 + C6F28248B4494BA56911889BC845A51444D4A68576D1565D26212A4AAD482CBA + 202699A63963E3F4B5F89F6FE6F8CEF77EEF3B330F1CDECB39CF79CE39FFDBE9 + 528D2ECCC0159883D9E9DF00FE486D10FFE0DF1AF355A2174FE333343BB41FF1 + 0A1EC294C908AEC66F25226FE249ACC1DBD9FF011CC4AD13117C06C305A1617C + 88EBDA8CBF0527B2B1E7F0A030432DAC6C233888672B78B7E16481B7A28EE02C + FC5D200EE1F19A0B5E5FE07E5E87B4B740FA0F5B6B0AB6F07DC63F5135F82663 + 1DE61B4C1DA7E81D19FF42D5E01D6D44978F53B0855688FD5535F06041F0DB09 + 0A129EDB447FBBCE467ACE4477A16FEF2444BF14096316B6A5E7082ECBDEBB71 + 15AE4D8BE9C14BE3106A600916E17EE10B6FE17A6CC27E25C7DD8B53468FF891 + 9A825DE8C39FB828C26C7DD6BF152F9491FBB01DF78AE4FD93D871151E35D609 + 9B389C16B4001F9591FBF1407ADF9C882FE26ACC37D6EED2A483388DD7F16B41 + 78B7A852075A8446618273A2841147725E24F6A7B00C6F8838CCF118A609FBFD + 92BE73DC877BF075D94EB7193DFB97B3D50EE07D718C677073C67927F53F2F6A + 6A9F4B33DB051CC1E232D10522B06F17362DDA6817F6B834BD7D27BC728B489B + 3F6363C619C2BA5CA478BC4744C27F4DFB62BC12EFE11A3C91FECD4862C3C2BE + BD389E71860ADF6344E155DCA07D2DEC16397ABF386A69918DD45A25318FFF21 + 1CAD12FD5DC45A195608A7999BF887301D970B7B370BF31EC05755A2D375BEE7 + 2CC61749A407EF26CE95A288F76361367E4387B94670B7CE97B0A6B8159E14F1 + DBC0D9B49055C2095B59EDE33A8244EE2C5E3B8A6D2E8E659C5655F94198A735 + EEC6BAA23DF8B483E059DC899D19A70BCF09A73A2F42AA6EDE1EC1A60EA21F60 + ADD86D114BF0B0F0FE09E19312D1359837D149EB609FD13BEF45116FB5ED5486 + 3A97E1BBB05414837D22CD4D0AFF03919B01F685F1911C0000000049454E44AE + 426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2461,35 +2489,33 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 028649444154484BED564F881251187FCE20D2906896582406DA1C8C22FC8387 - 05092222E8B6205DBA047BEAD8A54B1EC23A74EBB2A7CE5D92E8B68BEC650F4B - 11A5225450AC837BD84528075D10CDD4E9F78D6FC5D5194B476FFB838FEF7DDF - 7BF37EEF7BEF7BDF3C1BB3886834FA10EA85A669A7079E49A04FB1D96CF78AC5 - E267B22D914622914B50957038CC7C3E1F4D3EE81843A15060CD66B39ECFE7CF - 906D89341E8FDF68B7DBDBE9749A058341EE3D0E87C3C132990C5314858154E7 - 13F41E8BC0D64D95712C8474569C902E150B2115048189A2A8EB7121FF783259 - BA328944E24AA7D3F99A4C2659201030BDA7B95C4EABD7EB7465F4202D910202 - 2A520E91DCE2B629B0A0E728124FA86D9594A55229B15C2EDFC1A44E90FF865E - 5355F5B6C7E3798AEEDDC128B67B5402970294C6079043EC4088BB263035D258 - 2C760E4A6AB55AAACBE53ADBEBF5E84C6A88E8142292BADD6E1BBE9624492E9C - 2D1DE82FC85DF43D83FF66A954DA873D81A9D98B8F7F42EDD9EDF62D4C5AC144 - 0A88DE43AAD446DF01B2F323F5D1388CFF0EFDA656AB0591B917D036C4BF22D5 - FAFDFE1608EE23BA154C24C2CE83E83C082EC2A7620115E8EB18FE07C5FD1B7E - 005731EE5096E59D6C36DB1BCC3403702E9B207EC4CD85E158A420892182CBD4 - C6EA45C86BD89F60BE84EE5304B86B1BD46F05435210AE81E415374D81EDFD82 - F4BFC6CDB93024A53477BBDD4EBFDF6FF80F24204158B55AA5045BC5457FC7DD - 336398BD207282547F0118492814D29F24B4206CB3FEEC98171357065198CA08 - 8C8BEC7F62EA3D5D164E48970A4352A3243A924560B438FCC0DF42F67ABDA6F7 - B4D168307A01A040ACA0407CE0EE99314A4A55E62D44D61D06C0629A88F6310A - C33A77CD01C6FE02D80C2EE53C99A2660000000049454E44AE426082} + 0F0000000473424954080808087C08648800000270494441544889ED95316814 + 411486FF37B349F030DC6615A278A05C2E4250919B69C45A245D400B1B1B2195 + A58D8D8D85859DD6D69662A788552A056F778BA888C64D021E26DCED618297BD + E576F7D95CC424BB172F7B56F12FE7FD6FBE99E1BD37849CD25ADF66E687CC7C + 34CBC3CC1E11DD705DB70600940758AD564F0358999999C1E4E4249839D5E738 + 0EDAEDF60FDBB62700C0C803350CE34C1004989B9B43B95C4EF58C8D8DA15EAF + C3F33CF3775E1EE8B6880844E98F96B62E86011D54FFA1FF544329242104A494 + A92D23A5DC534CB9A04288866118585858C0F2F272669FFABEBF23906B380010 + 4AA9574474653F23333F701CE71E90FF7993A9A9A959CFF36693241927A29099 + E75BADD655CBB2EE0358EAF996B6472090FFA67BA494BA05E03111556DDBFE9A + E6E97B53ADF571008520085AA6691E8BA24810910FE0083317E238EEC4711C14 + 0A856218860CA009E02780EF511475B2F6ED0B65E60611616464E46D1886977A + CB1F009CEBC521A5FC1C86E1D95EEC1B8052B3D98C2CCB3A09A03E3094889024 + C96B66BE19C7F1652292CC6C0B214E30F3292144ABDBEDAE08212E02E88E8E8E + 7EEC743AE72DCBDAAC542AAEEBBAFDB64F9752EAA5D6FACEE099FDB5A3909452 + 1A40050088480278CACCEF88E8519224899472B356ABBD181A546B3D0FE0C97E + 09CCFCDE719C0B43812AA5368BC5E278A954CAFC1B7DDFC7DADA1A98F99AE338 + CF0F0AFDB390C64DD344B95C4E8512110CC3C0FAFA3A8868E2A0C0DD5000C89C + 9FBB0EB0BFA98F0ECF7F7A78A0A96330AB98FEA6C806857E69341AD38B8B8B99 + 7DBAB1B10166461CC79F860225A2EB5B5B5BCF565757A7B3CC44D466E6BBAEEB + BEC903FD053BD6FEC77BDEFDAD0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2500,41 +2526,38 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 033549444154484BCD9679A8CE5918C77FD6C16898716F32631A4B4A4496ACD3 - 306A14658932CD1FA448E98E254A49CA12C91225453335F38712337FC88C32D9 - D7EC245B6409E56617268C31339FCFF9FD4EDE77EEBDEE7DF1966F7DDEF73CE7 - B73CE79CE739CFF9D54A0A536DA80FF5203EFB37BCC8A8916AEAB433F4828F83 - 95241FC0636800FF8083790AE7615FD6AE52D539FD12E6C325D80257E101FC09 - CFA10E3482A6D01CFAC070F81D164241F245EBE024B4B7A30039EB45701A3ADA - 5113B98CBB6172B0DE5C5DE1284C0373A04AB93C07A067B0DE5E8D6139AC0043 - 51419FC33D6815AC772793EE27181BAC1CD5858360E2144366FD596819AC4CE3 - 606EDA2C9A06C0E1B499241FC21AE800CE3852590CCCCC78FDFFDBCDFBEDF79E - 28EFC9BD7F3D0CB6F1192C8187A01D5F668539076BC17DA9CAA04BDA4C76C086 - B41934053AC12D986D07EA0EE3E109AC0607B4189261300BFECDB0C2C4B6E834 - 2AB7FFB61D39DA09F1DA4C3BD077A06D41E90DCE78A39E1DDD71D099F201677B - 2858E936B2DE4E08563AEBBFA0190CB223D3CBEC5FCD01C3655D56FEC70195EB - F453B80151562067FF49B05207323158695C4E81CF8EB1A3125993DD9F1F05EB - 959CD8351BABC0BDE948E368727100167C636E21370B8D99D72EC217A0B6817D - BFC023D081DBD0BE3B60A57305CB1CADB3B06047FD0ADFC2506808BFC1486802 - 66E854D0B16A07264BAEEE82CFEAC038E6CABE529DDE84B6F66432BE3ADE0CCF - C0014527CA38F68518C311D97F94C9B2077E0C56BEF4D7CA9F23E0D46D2BE391 - AB36D02F6D2633C0BADC03DCDB6A34183B934DC5E23E0FAEA7CDB062BEDF6B25 - 2E977BC8D4DE041EC0DB21DEAC8C99DB633F2C85F2CC3E0166A5CF5C06FB2F80 - B135D61EF2AE9AEFF29D1E249E3C2D20785F09CEB6D87250AE5CD037F073DA2C - 9AA6C30F69F3952C691EB8C550373806150E73CFBDADF07DB0DE9D4AC0385BD9 - 2A95278E419F14ACB797497305DCE7AF951F657FC032B014C653A710F98E5160 - E6BAA7F3F4BA173ADBFEE0F1665532FDAB939FA143E06BB80F0BC01298A7EA66 - 510A1603EBAF05612FEC0253DF7DE987576B305E03C16F615749FC468E27579E - 0A5DBAAF40E71E5B56187109CF8083A930ABF74449F21F4296ADFDE2D2020700 - 00000049454E44AE426082} + 0F0000000473424954080808087C086488000002FA494441544889CDD67BA8DF + 731807F0D7EF7BCE76CECEC4195B6B2E19526B22A39933B915A29828DA1F24A4 + C410A596944B249728FF10C51FA22D7FC8288BB96ECBF590DC9A30A39CCC656A + E6B21D67FE789EAF7DFAEEB7EDFC38BFF2AEA73ECFF3B9BC3FCFE7793ECFE7D3 + D2192A4CC624B4D2368A6D29E3426BCF43C051588069A9F76133FA31969BF91D + 9F6175B6FF35E909B81D5FE005ACC7266CC19FE8C100063113433817CFE1CE71 + 3AF40F06F0143EC09C0EE756B80B1FE188F14E5A80D7704D87644DCCC3BBB85E + E4C02E3184B538EE3F12D6D80BF7E301118A9D70107EC2EC0922ACD187C77049 + B3A3176F8AC4E906A6E1131C581A2FC3AD5D22AC712ADEAE95A978187385C7B5 + B48B4155F437AF5B4FDAABC2D66A8C5F86B35A3800F7E097ECA817DB864FF184 + B89770158ECEF6CB585E105C8B23F13D6E4EDBB1B81CBFE2A1DCD0DDB0083761 + 7BCA58D1DE9EA4354AFBC686A7AF147D4BD3B638F54D383E3D7EA6CADD0D2799 + 9CD0C25BA90F897A7B45EA5BB015FBE1CC82F4AFA27D8B08D768EAA3C586462A + EC8F6F8B0973D2FB7D53DF9A7265EACBF0A138AA8BB547BFB89F7B37EC63D8D0 + 9BECBF151D97A6D4582A0AFE61F8034FE26BCC4F39181B8AF14F8B133803FBB4 + D9D0E62ABD186C4CBA10E7600A56E0FC5CA007D789F487C345B294F831E7B644 + 1C4BB430A3C277E9458DE1247E3E3D1B2C48A4170BED88E1798D857BF13A1E6D + E36585D915DE1145BEBE5FFD8D8187E2A46CDF28EAF27C71B7E12211BBC9A9D7 + C5FD367C93ED29B9FE244CEF117768319E150FF0AA623011B38D58837B3192FA + FB222B57E3CBB4AFC34BF85C3CF2C3B9D62AF190CCC3AC7A670FA6B7DDC63A71 + 72E0343CDE65C21BF048D3B85C3CB8DDC031784F9BC7BC0F2FE2EA09269C2EE2 + 3CB4AB015345D0974C10E12C7C25EEF96E318095B84F94C2F17E539B6B5C2032 + 7761B373770B2EC1C9E2795B21D27F4F9889B3710A7EC61DF8A1135298218AC1 + 225110DEC0AB22F547C4C7EB1011AFD3C55F7865CA7A3B5EAE8E489B3831C9E7 + 8A0A538923FC3837B39357FF1BFC0DA0F4A4388CC273C40000000049454E44AE + 426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2545,42 +2568,43 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 035449444154484BE5574B28AD51145EE778860106DE2962204A31108532501E - 9950183023194B6426658012133191D7D83BC24432C0409299944794779E797D - 77AD75FFB3EFD5BDD7759CC3E0DEAF767BADFDEF7F7DFFDAEBB1CFB181415F0C - BB357F29FE4DD2FEFE7EBABBBBB3340B12D3CFC0CDCD0DCACACA245F50525262 - AD7EC7A7787A797949B7B7B7B4B6B6A6BA9F9F1FF147A82C702BE9E1E1219596 - 9652656525CDCFCF93979797AE27262692BFBFBFCA0ACB6397F1F4F484FCFC7C - 3D4E19DEDEDE46AEABABC3E0E02056565674AFCB752A49525151410F0F0FC486 - A9A8A8888E8E8EE8F1F191767676748FDD6E270F0F0FF2F4F4A49E9E1ED73C9D - 9D9D457878B8F188C9707F7F8F9393138C8F8F838F17515151484D4D357B7458 - EF3B0539CAEAEA6A6324272707E7E7E7989C9C5462415B5B9B3E0B0909C1FEFE - 3E38CE888C8C444D4DCDC7483B3A3A0C61434303AEAFAFC109A4BA7825282E2E - 565D623B3A3AAA2524E402A748C7C6C6B0B1B1A1724A4A8A1ACDC8C8009784CA - BEBEBE7AAC82E9E9695D93313131A16B0EBC8B74757515C9C9C9E0B447505010 - EAEBEB717070608CCA28282800271506060660B3D9707C7C8CDADA5A4C4D4D59 - 567EE0AFA44D4D4DC6B0C447E6B8B8389C9E9EA2ABAB4BF5808000CCCDCD2137 - 37D7EC6D6D6DB52CFC8ADF92BEBCBCE8974647471B23CDCDCDEA716C6C2CC2C2 - C2505858A809959999A9CFC53B99030303350C6FE14D4FE548C59014BDC43222 - 22C27C848CAAAA2A2D0F872EC973757565BDFD67BC22E53686F5F5756C6D6DA9 - 2ED9F633890CC9CEF6F676F52C3E3E1E171717E8EDEDD558BE1786B4BBBB5B0B - 5DBC1183E5E5E5E0868DA1A12143D8D2D282E7E767530EE9E9E95A2ECE42DA17 - 1A1B1B8DE1A4A424ED22220707076B46E6E5E5A92EF10B0D0D55995B1B464646 - 2C33CE81CECECE909696A62D6B787858DBD8F6F6B669DE92F67284F25C741959 - 5959A6D03F02DADCDC54437CFD607777D75A06969696C04D5A8F52D0D7D7A7FB - 3A3B3B557705B4B0B0A0C7181313A325E000DF064A929D9D0D09814012CD1D20 - A9C98484042590262E719A9999D1B8F255E45456BE179ABDCBCBCBEAAD10FBF8 - F8E8ECF0726F6F4F37BA13E612E71E494C4E8B8B8BC43703F17545DC02E591DB - F1EA9783885C87C45D85B8B15BABEEC7FFF2B782E81B580FBCE5FF45FF2F0000 - 000049454E44AE426082} + 0F0000000473424954080808087C086488000003A3494441544889DD963D48BA + 6B18C6AFD78F0A6D4807339386A8210C841CA2C002872093168372A8A9249C1A + 228AB6081A2A885AA296D06A4ECB28DA221CCA2122DA22284343FBC24F4CBBCE + 70CE790FD2FFFCFBEEC0B9A6F77D9F87EBF7DCF7F3DCEFFD0824891F96E4A781 + FF5FE8CACA0AD2E974E1477E9392C9247B7A7A08805D5D5D0563DF12E9E3E323 + 52A91482C1200040A15020994C8AE3B2AF8485C3610C0D0D2193C9C0E170402E + 9703000C0603944AE53F13BF2A9DB95C8E56AB95000880454545E2F3F0F0303D + 1E0F0F0F0F499202F9B93A4DA7D3E8EDED45369B85C7E3416767272291089E9E + 9E7071710100904824904AA590C964585C5CFC5CA4BBBBBBACA8A810238A4422 + CC64328CC562F4F97C94CBE5D4EBF534994CE21C00FC103497CBD1E9748A2616 + 8B85F7F7F7DCDADA62241221494E4F4F1300351A0D43A110FBFAFA585959C9C1 + C1C18F4167676745E0E8E828138904BBBBBB09802693892469B7DBC5BDDDD8D8 + 60329964281422C9F741BD5E2F4F4E4E48920D0D0D04C0E6E6662A140A026049 + 49097D3E1F49727B7B5B5CD8E6E66681CF9BA0474747341A8D542A9554A9541C + 1919E1F5F575C13E757474309D4ED3ED7653100446A351BA5C2EFAFDFE177EAF + 42C7C7C745638D464300ACA9A9E1EDED2DE7E7E70980A5A5A5DCDBDB635B5B9B + 38776A6AEA5F3D7F097D7E7E66341A6555559568323131C1A3A32356575753AB + D5D266B33197CBD16C36130005412000969595D1EBF5FE3690DF466A341A0980 + 56AB95272727D4E97405291D1818602C1613DFED763BE3F1F86BC92B8486C361 + 1E1F1FF3ECEC8C24190A850AEBEBAFD3393333434110585B5BCB8787072E2D2D + D1ED76BF0A7B015D585860454505753A1D0541A0C3E1603018E4EAEAAA089C9C + 9C643E9F17CBA1A9A9898944E2CD30119ACD66393636261AD7D7D753AFD71300 + D56A35D3E934DBDBDB098066B399E5E5E504408944C2F5F5F577034912777777 + 6C6C6CA45C2EE7DADA1A33990CCFCFCFC59FB7CBE5E2C3C303E572B9B8B09696 + 16B1D03F043D3D3D25001A0C065E5E5E8A03070707944AA5B4DBED24C9E5E565 + 02E0DCDCDC87617F4B76737303B55A8D542A059D4E27768FD3D353E4F379C462 + 313C3D3DA1BFBF1F369B0D5AADF6334DE94F3D3F3FB3AEAE8E00E8743AB9BEBE + CE9D9D1DEAF57ACA64B2779DCAB70A24190804A856AB0980C5C5C5E2DEB5B6B6 + F2EAEAEACBA16213F7FBFD080402D8DFDF475151112C160BC6C7C73F9FCA5FA8 + E0E64012F97C1EF1781C2A95EA5B802FA03FA5FFE486FF070EBD6AE92133FBD8 + 0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + @@ -2591,33 +2615,31 @@ object Form1: TForm1 item MultiResBitmap.Height = 29 MultiResBitmap.Width = 29 - MultiResBitmap.LoadSize = 2 MultiResBitmap = < item Width = 29 Height = 29 PNG = { 89504E470D0A1A0A0000000D494844520000001D0000001D0806000000569367 - 0F000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000 - 024949444154484BEDD64B884F5100C7F14B43F28E4263311E296143B254B298 - 8526256123A514AB59C846528A9585501E91486658104A4A6924A5B0F05A1119 - 0A796C2822AFEFF7FEE7E4743BEEFDCFCCFF2F0BBFFAD4FF9E7BEF39E79E7BCE - B9FFEC7FEA4C0B86D77E36370B7016CFF0055FD18EA6651CDEE267C2214C41C3 - 730DA90683E7588D866513BE23D558D17E8CC2A0D28A974835F027F730A8777D - 15A98AAB38C90EA3DFE944A8642166E04154568F17988DBA320F1FE18DBB2DE8 - CB68EC44B1F2320F311EA571E15F8237D8531B8AD3833B788A62032957609DA5 - 598F70C33E0BA26C842330313FCAB263F884B89198E72A87D75DE707BCC1457F - 003B60A6E20396E447BFB302C5C6823528CD48DC8717DFC0184CC023DC8543BE - 0771866017ECC841C40D9E4465B6C08B9DEE8B2D207BD18D9BE8C564C499832E - B8F9DB013B6B1DAF300DA59985D0C3ED16905570636FC31BD881621EC3F36629 - 421DEB2CA8CA6B78F1EDFCA8B613396136E44759761CF6DE271B6A013983B5B5 - 9FF993DA41EB386F4155E27577020E93437A1A21CBE0F977707F3D029793BFE7 - E2323CEF322A2EB16466C20ABCE91B9C380E5B787F4E281BDB8AE9B8081B5904 - 9F3CBC479F7425FA15F74A2791157CC672D8EBA3B885545CAF7ED6BCE7820503 - 895F07BF125622DFB14FEED249C5DDC6EB6C788405038DDF43DF5568D861F3A9 - 8BD98670CD7C0B1A11FF0984A1933338FC2D71F2BC87E56E954EBE86C546DC0E - 43C34FB019D7FB8EFDC03BD19A12DF75986431676F533309E7101AF49DFE950C - 43074E61AC05FF78B2EC1714A6EC01CB8B30750000000049454E44AE426082} + 0F0000000473424954080808087C0864880000022B494441544889EDD64F888D + 5118C7F1CF684C6206CD141A0BFF529AB131C952C9621692928C8D9452AC2C64 + A349295616628A9948248605A1A4A64452CA58F8B73299FCA9217F36D46826BC + 16E7BCDDB7D7CCDC7BE7CE9D955F3D75CF79CE39DFE73CEF73CEB9FC5769AA45 + DD7480DA701D6F318251B45713380F5F908C61DD58540DE8837180A9BD47C754 + 02F7E17711686A5D985329B019432502537BAEC26F7DAF4C606AA3E8990C707F + 6691B5588E9765C23F6055A9C0D5F811271ECFF4D7E36899E057985F0C588B3B + 9948EB73FEFB788AC112A17D71CD09B53B33E154CEB757C840536C9FC7F004C0 + 6125A4B70D7F140EFD691C89BEC5F88E0DB9395B2780EE28069C8D1771F02334 + A011AFF14C48F989DC9C1A1C8B819CC9012F1503C24185725F1FFB4EA2178FF1 + 0E0B73735A7045B8FC6B62B0093E626931E0CA4C848763DF76E1625F82CF3180 + BC06A21F3666D6D8550C089FE2E0FED86E160A664F6C5F88D1B76046ECBB869D + F1775D0C30C1CD5280D973775148532FAE66C66C8AFEAFC2FD7A56384E5D68C5 + DDE81FF4EF111B532BE202097E098533A0F0FD1A22EC1096E17684AC8B3B4FBF + E308B69502CCAA4728A2043FB125467D0E4FC699D3243C6B096E950B4CD52EBC + 1269BAFB859D378E33BE4FE13D9D355928E13DECCA8047845DE7D59919B3A612 + 60561D0AA94B840A4EFF96B4E29BC2555933555011D29D01BFC1013C8CED21A1 + D0AAA2768522CB5A4BB580A916E04606D8596D60AA99D88CCB983B5DD08AF417 + 14A6EC013EDB7B4C0000000049454E44AE426082} FileName = 'C:\dev\demos\Object Pascal\Multi-Device Samples\Device Sensors a' + 'nd Services\Bluetooth\Classic Bluetooth Basic app\BT_Profiles_Ic' + diff --git a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.pas b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.pas index a45be51..6be9b74 100644 --- a/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.pas +++ b/Object Pascal/Multi-Device Samples/Device Sensors and Services/Bluetooth/Classic Bluetooth Basic app/Unit1.pas @@ -67,6 +67,8 @@ TForm1 = class(TForm) ListView1: TListView; ImageList1: TImageList; AniIndicator2: TAniIndicator; + PanelLock: TPanel; + LabelLock: TLabel; procedure ButtonDiscoverClick(Sender: TObject); procedure ButtonPairClick(Sender: TObject); procedure ButtonUnPairClick(Sender: TObject); @@ -82,6 +84,12 @@ TForm1 = class(TForm) function GetServiceName(GUID: string): string; procedure ComboBoxPairedChange(Sender: TObject); procedure ButtonServicesClick(Sender: TObject); +{$IFDEF ANDROID} + private const + LOCATION_PERMISSION = 'android.permission.ACCESS_FINE_LOCATION'; + BLUETOOTH_SCAN_PERMISSION = 'android.permission.BLUETOOTH_SCAN'; + BLUETOOTH_CONNECT_PERMISSION = 'android.permission.BLUETOOTH_CONNECT'; +{$ENDIF} private { Private declarations } FBluetoothManager: TBluetoothManager; @@ -91,6 +99,7 @@ TForm1 = class(TForm) FSocket: TBluetoothSocket; ItemIndex: Integer; ServerConnectionTH: TServerConnectionTH; + procedure InitBluetoothScan; procedure DevicesDiscoveryEnd(const Sender: TObject; const ADevices: TBluetoothDeviceList); procedure PairedDevices; procedure SendData; @@ -99,7 +108,7 @@ TForm1 = class(TForm) { Public declarations } end; -Const +const ServiceName = 'Basic Text Server'; ServiceGUI = '{B62C4E8D-62CC-404B-BBBF-BF3E3BBB1378}'; var @@ -109,6 +118,9 @@ implementation {$R *.fmx} +uses + System.Permissions; + procedure TForm1.ButtonPairClick(Sender: TObject); begin if ManagerConnected then @@ -216,6 +228,27 @@ function TForm1.GetServiceName(GUID: string): string; end; end; +procedure TForm1.InitBluetoothScan; +begin + try + PanelLock.Visible := False; + LabelServer.Text := ServiceName; + LabelClient.Text := 'Client of '+ServiceName; + FBluetoothManager := TBluetoothManager.Current; + FAdapter := FBluetoothManager.CurrentAdapter; + if ManagerConnected then + begin + PairedDevices; + ComboboxPaired.ItemIndex := 0; + end; + except + on E : Exception do + begin + ShowMessage(E.Message); + end; + end; +end; + procedure TForm1.ButtonConnectToRFCOMMClick(Sender: TObject); begin if ManagerConnected then @@ -292,8 +325,8 @@ procedure TForm1.ButtonDiscoverClick(Sender: TObject); if ManagerConnected then begin FAdapter := FBluetoothManager.CurrentAdapter; - FBluetoothManager.StartDiscovery(10000); FBluetoothManager.OnDiscoveryEnd := DevicesDiscoveryEnd; + FBluetoothManager.StartDiscovery(10000); end; end; @@ -362,24 +395,30 @@ procedure TForm1.ButtonCloseReadingSocketClick(Sender: TObject); end; procedure TForm1.FormShow(Sender: TObject); +{$IFDEF ANDROID} +var + Permissions: TArray; begin - try - LabelServer.Text := ServiceName; - LabelClient.Text := 'Client of '+ServiceName; - FBluetoothManager := TBluetoothManager.Current; - FAdapter := FBluetoothManager.CurrentAdapter; - if ManagerConnected then - begin - PairedDevices; - ComboboxPaired.ItemIndex := 0; - end; - except - on E : Exception do + if TOSVersion.Check(12) then + Permissions := [LOCATION_PERMISSION, BLUETOOTH_SCAN_PERMISSION, BLUETOOTH_CONNECT_PERMISSION] + else + Permissions := [LOCATION_PERMISSION]; + + PermissionsService.RequestPermissions(Permissions, + procedure(const Permissions: TClassicStringDynArray; const GrantResults: TClassicPermissionStatusDynArray) begin - ShowMessage(E.Message); - end; - end; + for var GrantResult in GrantResults do + if GrantResult <> TPermissionStatus.Granted then + Exit; + + InitBluetoothScan; + end); +end; +{$ELSE} +begin + InitBluetoothScan; end; +{$ENDIF} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin