FMX.Platform.TPlatformServices.SupportsPlatformService
Delphi
function SupportsPlatformService(const AServiceGUID: TGUID): Boolean; overload;
function SupportsPlatformService(const AServiceGUID: TGUID; out AService): Boolean; overload;
C++
bool __fastcall SupportsPlatformService(const GUID &AServiceGUID)/* overload */;
bool __fastcall SupportsPlatformService(const GUID &AServiceGUID, /* out */ void *AService)/* overload */;
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| function | public | FMX.Platform.pas FMX.Platform.hpp |
FMX.Platform | TPlatformServices |
Description
Renvoie l'information indiquant si le service donné est disponible sur la plate-forme sur laquelle votre application s'exécute.
Il existe deux méthodes SupportsPlatformService surchargées. La première méthode accepte uniquement un paramètre (AServiceGUID), tandis que la seconde méthode a deux paramètres, le second paramètre est un paramètre de sortie (out) qui renvoie le service dont vous testez l'existence. Si vous utilisez la seconde méthode surchargée et que le service spécifié n'est pas disponible, le paramètre de sortie AService renvoie alors nil.
Par exemple, vous pouvez écrire :
Delphi
var
ScreenService: IFMXScreenService;
ScreenSize: TPoint;
begin
if TPlatformServices.Current.SupportsPlatformService(
IFMXScreenService, IInterface(ScreenService)) then
begin
ScreenSize := ScreenService.GetScreenSize.Round;
C++
_di_IFMXClipboardService Intf;
if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXClipboardService), &Intf))
{
Intf->SetClipboard(TValue::From<String>(""));
}
- Remarque : Vous devez ajouter
&devantIntf, comme vous pouvez le voir dans l'exemple de code ci-dessus.