TetheringAppProfile1.SendString(TetheringManager1.RemoteProfiles,
Serial number de delphi xe6 code#
Notice the only two references to the "Text" properties we set in our "receiver" applications Manager and Profile components - the rest is done by magic (or a lot of Indy code I didn't need to write :-D)Īnd the last thing we need to add is on the OnClick event of the "Send barcode" button: If TetheringAppProfile1.Connect(TetheringManager1.RemoteProfiles) then TetheringManager1.PairManager(RemoteManagers) īreak // Break since we only want the first.įollowed by the TTetheringManager.OnEndProfilesDiscovery event:įor i := 0 to -1 do If (RemoteManagers.ManagerText = 'BarcodeReceiverManager') then TetheringManager1.UnPairManager(TetheringManager1.PairedManagers) Īt the end of the discovery, the TTetheringManager.OnEndManagersDiscovery event is called: Now on the FormShow event we want to unpair any Managers already paired with this TTetheringManager, and after that trigger the Discover event.įor I := - 1 downto 0 do On the TTetheringAppProfile set the Manager property to point to the TTetheringManager. This design will never get accepted on any App Store :-D Start with a new Desktop application either VCL or FireMonkey will do, add a TTetheringManager, a TTetheringAppProfile, a TLabel and a TCheckBox - which all should end up looking a bit like this: I have tried to use as little code as possible - leaving out all exception handling :-). I wanted to give these new component a try, by making a very simple barcode scanner using my phone as the barcode scanner and then have the receiver send the barcode to whatever application was active.Ī word of warning: this is a prof of concept - not ready for production or deployment - you need to do some work yourself to make it fit your needs.
Serial number de delphi xe6 windows#
You can make a windows service that is a "receiver" from a desktop application running on the same sub-net.Īn example could be POS systems, running on various devices talking to the same receiver - without bothering about implementing multiple communications protocols - these components all wraps this up nicely. One of the new key features in XE6 is what Embarcadero has chosen to call App Tethering components - the only problem I initially had with the name was that it implied that mobile had to be involved in some way - which is not the case.
0 kommentar(er)
