ເນື້ອໃນ

# ບໍລິການ ScriptForge.Platform

ບໍລິການ Platform ໃຫ້ຂໍ້ມູນກ່ຽວກັບສະພາບແວດລ້ອມ ແລະ ບໍລິບົດການເຮັດວຽກໃນປັດຈຸບັນ ເຊັ່ນ:

- ແພລັດຟອມຮາດແວ (ສະຖາປັດຕະຍະກຳ, ຈຳນວນ CPU, ປະເພດເຄື່ອງ, ແລະອື່ນໆ)

- ຂໍ້ມູນລະບົບປະຕິບັດການ (ປະເພດ OS, ລຸ້ນ, ເວີຊັນ, ແລະອື່ນໆ)

- ເວີຊັນຂອງ LibreOffice

- ຊື່ຜູ້ໃຊ້ປັດຈຸບັນ

ຄຸນສົມບັດທັງໝົດຂອງບໍລິການ Platform ແມ່ນເປັນແບບອ່ານຢ່າງດຽວ.

## ການເອີ້ນໃຊ້ບໍລິການ

ກ່ອນທີ່ຈະໃຊ້ບໍລິການ Platform, ຕ້ອງໂຫລດ ຫຼື ນຳເຂົ້າໄລບຣາຣີ ScriptForge ກ່ອນ:

• ມາໂຄຣ Basic ຕ້ອງມີການໂຫຼດຄັງສຳນວນ ScriptForge ໂດຍໃຊ້ຄຳສັ່ງດັ່ງນີ້:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
• ສະຄຣິບ Python ຕ້ອງມີການນຳເຂົ້າຈາກໂມດູນ scriptforge:
from scriptforge import CreateScriptService

ຕົວຢ່າງດ້ານລຸ່ມນີ້ໃນ Basic ແລະ Python ສະແດງການສ້າງອິນສະແຕນຊ໌ບໍລິການ Platform ແລະ ເຂົ້າເຖິງຄຸນສົມບັດ Architecture.

##### ໃນ Basic

          GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
          Dim platform As Variant
          platform = CreateScriptService("Platform")
          MsgBox platform.Architecture

##### ໃນ Python

          from scriptforge import CreateScriptService
          svc = CreateScriptService("Platform")
          bas = CreateScriptService("Basic")
          bas.MsgBox(svc.Architecture)

## ຄຸນສົມບັດ

ຊື່ | ອ່ານຢ່າງດຽວ | ປະເພດ | ຄຳອະທິບາຍ
--- | --- | --- | ---
Architecture | ແມ່ນ | String | ສະຖາປັດຕະຍະກຳບິດຂອງຮາດແວ. ຕົວຢ່າງ: '32bit' ຫຼື '64bit'
ComputerName | ແມ່ນ | String | ຊື່ເຄືອຂ່າຍຂອງຄອມພິວເຕີ.
CPUCount | ແມ່ນ | Integer | ຈຳນວນຂອງໜ່ວຍປະມວນຜົນກາງ (CPU).
CurrentUser | ແມ່ນ | String | ຊື່ຂອງຜູ້ໃຊ້ທີ່ກຳລັງເຂົ້າສູ່ລະບົບໃນປັດຈຸບັນ.
Extensions | ແມ່ນ | ອາເຣຂໍ້ຄວາມ | ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸ ID ພາຍໃນຂອງສ່ວນຂະຫຍາຍທີ່ຕິດຕັ້ງທັງໝົດ.
FilterNames | ແມ່ນ | ອາເຣຂໍ້ຄວາມ | ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸຊື່ຕົວກອງການນຳເຂົ້າ ແລະ ສົ່ງອອກເອກະສານທີ່ມີຢູ່.
Fonts | ແມ່ນ | ອາເຣຂໍ້ຄວາມ | ສົ່ງຄືນອາເຣຂໍ້ຄວາມທີ່ລະບຸຊື່ຂອງຟອນທັງໝົດທີ່ມີຢູ່.
FormatLocale | ແມ່ນ | String | ສົ່ງຄືນທ້ອງຖິ່ນທີ່ໃຊ້ສຳລັບຕົວເລກ ແລະ ວັນທີໃນຮູບແບບ "la-CO".
Locale | ແມ່ນ | String | ສົ່ງຄືນທ້ອງຖິ່ນຂອງລະບົບປະຕິບັດການ. ຄຸນສົມບັດນີ້ທຽບເທົ່າກັບ SystemLocale.
Machine | ແມ່ນ | String | ປະເພດເຄື່ອງ. ຕົວຢ່າງ: 'i386' ຫຼື 'x86_64'.
OfficeLocale | ແມ່ນ | String | ສົ່ງຄືນທ້ອງຖິ່ນຂອງສ່ວນຕິດຕໍ່ຜູ້ໃຊ້ໃນຮູບແບບ "la-CO".
OfficeVersion | ແມ່ນ | String | ລຸ້ນ LibreOffice ຕົວຈິງທີ່ສະແດງເປັນ ' LibreOffice w.x.y.z (The Document Foundation)'. ຕົວຢ່າງ: 'LibreOffice 7.4.1.2 (The Document Foundation, Debian and Ubuntu)'
OSName | ແມ່ນ | String | ປະເພດຂອງລະບົບປະຕິບັດການ. ຕົວຢ່າງ: 'Darwin, Linux' ຫຼື 'Windows'.
OSPlatform | ແມ່ນ | String | ຂໍ້ຄວາມທີ່ລະບຸແພລັດຟອມພ້ອມຂໍ້ມູນທີ່ມະນຸດສາມາດອ່ານໄດ້. ຕົວຢ່າງ: 'Linux-5.8.0-44-generic-x86_64-with-glibc2.32'
OSRelease | ແມ່ນ | String | ລຸ້ນຂອງລະບົບປະຕິບັດການ. ຕົວຢ່າງ: '5.8.0-44-generic'
OSVersion | ແມ່ນ | String | ເວີຊັນ ຫຼື ເລກບິວດ໌ຂອງລະບົບປະຕິບັດການ. ຕົວຢ່າງ: '#50-Ubuntu SMP Tue Feb 9 06:29:41 UTC 2021'
Printers | ແມ່ນ | String array | ລາຍຊື່ຂອງເຄື່ອງພິມທີ່ມີຢູ່. ເຄື່ອງພິມເລີ່ມຕົ້ນຈະຢູ່ໃນຕຳແໜ່ງທຳອິດ (index = 0).
Processor | ແມ່ນ | String | ຊື່ໂປຣເຊສເຊີຕົວຈິງ. ຕົວຢ່າງ: 'amdk6'. ຄຸນສົມບັດນີ້ອາດຈະສົ່ງຄືນຄ່າດຽວກັນກັບຄຸນສົມບັດ Machine.
PythonVersion | ແມ່ນ | String | ສົ່ງຄືນເວີຊັນຂອງຕົວແປພາສາ Python ທີ່ກຳລັງໃຊ້ງານຢູ່.
SystemLocale | ແມ່ນ | String | ສົ່ງຄ່າຄືນໂລແຄລຂອງລະບົບປະຕິບັດການເປັນສະຕຣິງໃນຮູບແບບ "la-CO" (ພາສາ-ປະເທດ). ນີ້ແມ່ນທຽບເທົ່າກັບຄຸນສົມບັດ Locale.
UntitledPrefix | ແມ່ນ | String | ສົ່ງຄືນຄຳນຳໜ້າທີ່ໃຊ້ສຳລັບຕັ້ງຊື່ເອກະສານໃໝ່ ("Untitled " ໃນພາສາອັງກິດ).
UserData | ແມ່ນ | Dictionary | ສົ່ງຄືນອິນສະແຕນຊ໌ ScriptForge.Dictionary ທີ່ບັນຈຸຂໍ້ມູນຈາກໄດອາລັອກ Tools - Options - User Data.

ສາມາດເບິ່ງຊື່ລະບົບປະຕິບັດການແບບລະອຽດໄດ້ຈາກສູດ Calc INFO("system").

### ຕົວຢ່າງ:

##### ໃນ Basic

ຕົວຢ່າງຕໍ່ໄປນີ້ສະແດງວິທີໃຊ້ຄຸນສົມບັດ Fonts ເພື່ອຂຽນຊື່ຟອນທັງໝົດລົງໃນແຜ່ນງານ Calc:

        Dim oDoc as Object
        Dim allFonts as Object
        Dim svcPlatform as Object
        Set oDoc = CreateScriptService("Calc")
        Set svcPlatform = CreateScriptService("Platform")
        allFonts = svcPlatform.Fonts
        oDoc.setArray("~.A1", allFonts)

ຕົວຢ່າງດ້ານລຸ່ມນີ້ ສະແດງໃຫ້ເຫັນວິທີການສ້າງຕາຕະລາງ Calc ດ້ວຍຄ່າທັງໝົດທີ່ເກັບໄວ້ໃນຄຸນສົມບັດ UserData, ເຊິ່ງແມ່ນອິນສະແຕນຊ໌ຂອງບໍລິການ Dictionary:

        Dim svcPlatform as Object, oUserData as Object, oDoc as Object
        Dim arrUserData As Object, currCell As String
        Set svcPlatform = CreateScriptService("Platform")
        oUserData = svcPlatform.UserData
        arrUserData = oUserData.ConvertToArray()
        Set oDoc = CreateScriptService("Calc", ThisComponent)
        oDoc.SetArray("~.A1", Array(Array("Key", "Value")))
        oDoc.SetArray("~.A2", arrUserData)

##### ໃນ Python

ຕົວຢ່າງຂ້າງເທິງສາມາດຂຽນເປັນ Python ໄດ້ດັ່ງນີ້:

        from scriptforge import CreateScriptService
        bas = CreateScriptService("Basic")
        doc = CreateScriptService("Calc", bas.ThisComponent)
        svc_platform = CreateScriptService("Platform")
        all_fonts = svc_platform.Fonts
        doc.setArray("~.A1", all_fonts)

        from scriptforge import CreateScriptService
        bas = CreateScriptService("Basic")
        doc = CreateScriptService("Calc", bas.ThisComponent)
        svc_platform = CreateScriptService("Platform")
        user_data = svc_platform.UserData
        arr_user_data = [[key, user_data[key]] for key in user_data]
        doc.SetArray("~.A1", (("Key", "Value"),))
        doc.SetArray("~.A2", arr_user_data)

ຣູທີນ ຫຼື ຕົວລະບຸ Basic ຂອງ ScriptForge ທັງໝົດທີ່ຂຶ້ນຕົ້ນດ້ວຍເຄື່ອງໝາຍຂີດກ້ອງ "_" ແມ່ນສະຫງວນໄວ້ສຳລັບໃຊ້ພາຍໃນ. ພວກມັນບໍ່ໄດ້ມີໄວ້ໃຫ້ໃຊ້ໃນມາໂຄຣ Basic ຫຼື ສະຄຣິບ Python.

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ການລະບຸລະບົບປະຕິບັດການ

ຂໍ້ມູນແພລັດຟອມດ້ວຍສູດ Calc INFO("system")

ຟັງຊັນ GetGuiType

ຄັງສຳນວນ Tools

ກະລຸນາສະໜັບສະໜູນພວກເຮົາ!