Assuming that you know how to make a web server with TidHttpServer, but now you need to put your server in HTTPS, so to do that you need to add to your application the TIdServerIOHandlerSSLOpenSSL and set it as the IOHandler of your TidHTTpServer. IMG IOHANDLER Now you need a valid and unique certificate, to…
Leggi tutto
Today i do some test about TBluetooth LE component on Delphi Seattle on different devices. Device BT LE as Client BT LE as Server (pheriferial mode) Mac Book Pro OSX 10.11.6 Yes Yes iPhone 6s iOS 9.3 Yes Yes Samsung S4 Android lollipop Yes No: raise an axeception on phheriferial mode?!?! PC Windows 10…
Leggi tutto
I was on testing our app remode on a Raspberry PI3 with Android 6.0 Marshmallow… so i need debug and i foud that can be done via lan simply using the command ADB “command” like:
|
1 |
adb connect "device ipaddress" |
Maybe most of you already heard the latest news, RAD Studio 10.1 Berlin shipped. There are a lot of good news in this version… and a lot of library are already able to be used with it. The official of embarcadero about Berlin is http://community.embarcadero.com/article/news/16226-embarcadero-announces-release-updates-for-rad-studio-c-builder-and-delphi usefull libraries already available for Berlin are: The turbopack libraries…
Leggi tutto
Dalla versione XE7 di Delphi sono disponibili i componenti per gestire Bluetooth Classico e LE. Con Firemonkey è abbastanza semplice creare anche un server bluetooth. Provando le mie applicazioni sul Raspberry PI3 dove Federico ha montato Marshmallow mi son accorto che se il BT non è disponibile sul device l’applicazione si schiantava. Per ovviare a…
Leggi tutto
To check with Delphi / Firemonkey if the screen is in Landscape or Portrait mode i use the FMXPlatform library as in the example:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
uses FMXPlatform; ... procedure TForm2.FormResize(Sender: TObject); var ScreenService: IFMXScreenService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then begin if ScreenService.GetScreenOrientation in [TScreenOrientation.soPortrait, TScreenOrientation.soInvertedPortrait] then ShowMessage('Portrait Orientation') else Begin ShowMessage('Landscape Orientation'); End; end; end; |
