Con Delphi 10Seattle si possono creare in modo semplice delle bellissime applicazioni per Mac OSX e iOS, sarò di parte ma L’IDE di Delphi ora è veramente eccezzionale; Per prima cosa è necessario configurare l’ambiente di sviluppo, installando tutto il necessario come ben documentato da Embarcadero. Una volta che il vostro ambiente è ben funzionante,…
Leggi tutto
Hi, I think might be helpful, today for a customer i do the Haversine formulas for Firebird Sql as a stored procedure. This formula allow you to calculate the distance in meter between two WGS84 datum points(degree points of Earth). You can call the procedure like this:
|
1 |
SELECT * FROM HAVERSINE_GENERIC(1, 45,474081, 9,179348, 45,456091, 9) |
The result wil be aprox 14Km, the…
Leggi tutto
Remode Manager is a particular Web Server that lets you send commands to your Android device . All commands are interpreted by Remode simple http API . Among these controls are also APIs to read and write to a serial cable OTG . It is full done with Delphi 10Seattle except for an Extrnal jar…
Leggi tutto
TantiAuguridi un feliceNatale e di un 2016ricco di idee e progetti! TeamSynaptica
Here is a sample code (function) to get the current language (locale) in Delphi 10Seattle. This simple procedure return the locale language for Windows, Mac and Android.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
function GetOSLangID: String; {$IFDEF MACOS} var Languages: NSArray; begin Languages := TNSLocale.OCClass.preferredLanguages; Result := TNSString.Wrap(Languages.objectAtIndex(0)).UTF8String; {$ENDIF} {$IFDEF ANDROID} var LocServ: IFMXLocaleService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then Result := LocServ.GetCurrentLangID; {$ENDIF} {$IFDEF MSWINDOWS} var buffer: MarshaledString; UserLCID: LCID; BufLen: Integer; begin // defaults UserLCID := GetUserDefaultLCID; BufLen := GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, nil, 0); buffer := StrAlloc(BufLen); if GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, buffer, BufLen) <> 0 then Result := buffer else Result := 'en'; StrDispose(buffer); {$ENDIF} end; { code } //See more at: http://codeverge.com/embarcadero.delphi.firemonkey/detect-current-language-on-andr/2001235#sthash.zjLIi2KY.dpuf |
