مكتبة فايرمونكي Firemonkey تجارية
#1
Wink 
السلام عليكم
مكتبة تجارية لا غنى عنها تعمل تحت بيئة Sydney خاصة برمجة تطبيقات أندرويد فقط
بعض التعليمات قمت باستخلاصها من مكتبات أندرويد وأما الباقي فاجتهاد خاص مني.
المكتبة عبارة عن نسخة معدلة من مكتبتي الخاصة بتطبيقات ويندوز وقمت بتحويلها الى نظام أندرويد.
بها أكثر من 130 تعليمة خاصة بجهاز الأندرويد والتعامل مع الهاردوير، قرائة رسائل الSMS، جلب قائمة الأرقام من الهاتف، اجراء مكالمات هاتفية، جلب محفوظات الرسائل، المكالمات
بالاظافة الى تعليمة خاصة بتوليد رقم خاص لاستعماله في التسجيل مع خاصية تفعيل تلقائي من خلال رسالة نصية مباشرة كالذي في واتساب وتلغرام....
 25 تعليمة خاصة باستدعائ جميع مربعات حوار تعديل خيارات الهاتف، مثلا تقوم التعليمة بالتحقق من أن خاصية GPS مفعلة وتقوم باستدعاء مربع حوال التفعيل ان لم تفعل.

حوالي 39 تعليمة خاصة بقواعد البيانات تعمل مع مكونات uniDac يمكن عكسها لتتوافق مع FireDac
وهناك دوال أخرى لايسع ذكرها هنا.
من يريد تطبيق تجريبي لخصائص المكتبة عليه الاتصال على الخاص

بعص التعليمات
كود :
    {-------------------------------Android functions--------------------------}
    {------------------------------------HARDWARE------------------------------}

    procedure _showToast(const Msg: string; showDuration: TShowDuration);
    procedure _setRingerMode(RingerMode: Integer);
    procedure _playMX(Title, Url: string);
    procedure _playAudio(Url: string);
    procedure _pauseAudio();
    procedure _stopAudio();
    procedure _screenON();
    procedure _vibratePhone(ms: Integer);
    procedure _setVolume(aVolume: Integer);
    procedure _setDeviceBrightness(aBrightnessValue: Byte);
    procedure _rebootDevice();
    procedure _showAndroidSettings();
    procedure _showMobilSettings(aSettingsDialog: TsettingsDialog);

    procedure _keyboardHide();
    procedure _keyboardShow(sEdit: TEdit);

    function  _phoneCall(aNumber: string): Boolean;
    function  _smsSendMessage(smsTo: string; smsBody: string): boolean;
    function  _smsReadLast(): string;
    function  _ReverseString(s: string): string;
    function  _md5(str: string): string;
    function  _smsExtractCode(): string;
    function  _generateUniqueID(): string;

    function _gpsDistance(const aLatitud1, aLongitud1, aLatitud2, aLongitud2: Extended): string;

    {--------------------------- Android Informations---------------------------}
    function _confirmBox(aMessage: string): Boolean;
    function _getBatteryLevel: Integer;
    function _getIMEI(): string;
    function _checkPermission(p: string): Boolean;
    function _getRingVolume(): Integer;
    function _getVoiceCallVolume(): Integer;
    function _getSystemVolume(): Integer;
    function _getNotificationVolume(): Integer;
    function _getMusicVolume(): Integer;
    function _getAlarmVolume(): Integer;
    function _getDeviceBrightness(): Byte;
    function _getDeviceSoftwareVersion(): string;
    function _getSIM1Number(): string;

    {--------------------------- Carrier Informations---------------------------}
    function _getNetworkCountryISO(): string;
    function _getNetworkOperator(): string;
    function _getNetworkOperatorName(): string;
    function _getSIMCountryISO(): string;
    function _getSIMOperator(): string;
    function _getSIMOperatorName(): string;


    function _PhoneCallSupported(): Boolean;
    function _Call(aPhoneNumber: string): Boolean;

    {--------------------------- Internet functions---------------------------}
    function _isPhoneConnected(): Boolean;
    function _isWifiConnected(): Boolean;
    function _isWANConnected(): Boolean;

    function _isGPSEnabled(): Boolean;
    function _isRoamingSupported(): Boolean;
    function _isWorldPhone(): Boolean;
    function _isSMSSupported(): Boolean;
    function _isWifiEnabled(): Boolean;
    function _isVoiceSupported(): Boolean;
    function _isMusicActive(): Boolean;
    function _isMicrophoneMute(): Boolean;
    function _isSpeakerphoneOn(): Boolean;
    function _isWiredHeadsetOn(): Boolean;
    function _isVolumeFixed(): Boolean;
    function _isWifiScanAlwaysAvailable(): Boolean;
    function _getSIMSerialNumber(): string;

    function _wifiDisconnect(): Boolean;
    function _wifiConnect(): Boolean;
حقيقتنا محفورة على الصخور..أكاذيبهم مكتوبة على الكتب
[-] كل من 2 users say قال شكرا ل kerbadou على المشاركة المفيدة
  • Delphi2020, larbiparadox
الرد
#2
مشكور على الجهد كان بالامكان جعلها مجانية للاستفادة ولكن من حققك فيما تملك فعل ماتريد
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم