Memanggil Makro Basic dari Python

Anda dapat memanggil makro Basic Collabora Office dari skrip Python, dan fitur-fitur penting dapat diperoleh seperti:

• Fasilitas pencatatan sederhana dari pustaka konsol Trace Access2Base,

• Fungsi I/O tampilan InputBox dan MsgBox berdasarkan Basic untuk mempermudah pengembangan Python,

• Pemanggilan Xray mengganggu eksekusi skrip Python untuk membantu menginspeksi variabel.

Kerangka Skrip Antarmuka Pemrograman Aplikasi (API) Collabora Office mendukung eksekusi skrip antar bahasa antara Python dan Basic, atau bahasa pemrograman lain yang didukung dalam hal ini. Argumen dapat diteruskan bolak-balik di seluruh panggilan, asalkan mereka mewakili tipe data primitif yang dikenali oleh kedua bahasa, dan dengan asumsi bahwa Kerangka Skrip mengonversinya dengan tepat.

Disarankan untuk memiliki pengetahuan tentang modul standar Python dan fitur API Collabora Office sebelum melakukan panggilan antar bahasa dari Python ke Basic, JavaScript atau bahasa lainnya.

Saat menjalankan skrip Python dari Lingkungan Pengembangan Terpadu (IDE), mesin Basic yang disematkan Collabora Office mungkin tidak ada. Hindari panggilan Basic Python-ke-Collabora Office dalam konteks seperti itu. Namun lingkungan Python dan Objek Jaringan Universal (UNO) tersedia sepenuhnya. Lihat Setting Up an Integrated IDE for Python untuk informasi selengkapnya.

Mendapatkan Skrip Basic Collabora Office

Makro Collabora Office Basic dapat berdiri sendiri, dibagikan, atau tertanam dalam dokumen. Untuk menjalankannya, runtime Python perlu disediakan dengan lokasi makro Basic. Dengan mengimplementasikan antarmuka com.sun.star.script.provider.XScriptProvider memungkinkan pengambilan skrip yang dapat dieksekusi:

import uno
from com.sun.star.script.provider import Xscript

def getBasicScript(macro='Main', module='Module1', library='Standard',
        isEmbedded=False) -> XScript:
    '''Mengambil skrip objek Basic sebelum pengaktifan.'''
    ctx = uno.getComponentContext()
    smgr = ctx.ServiceManager
    if isEmbedded:
        desktop = smgr.createInstanceWithContext('com.sun.star.frame.Desktop', ctx)
        scriptPro = desktop.CurrentComponent.getScriptProvider()
        location = "document"
    else:
        mspf = smgr.createInstanceWithContext(
            "com.sun.star.script.provider.MasterScriptProviderFactory", ctx)
        scriptPro = mspf.createScriptProvider("")
        location = "application"
    scriptName = "vnd.sun.star.script:"+library+"."+module+"."+macro+ \
                 "?language=Basic&location="+location
    xScript = scriptPro.getScript(scriptName)
    return xScript

Mengeksekusi Skrip Collabora Office Basic

Dokumentasi Kit Pengembangan Aplikasi (SDK) Collabora Office untuk antarmuka com.sun.star.script.provider.XScript menjelaskan tentang kaidah untuk pemanggilan antar bahasa. Aktivasi fungsi membutuhkan 3 array:

• yang pertama, daftar argumen dari routine yang dipanggil

• yang kedua, mengidentifikasi argumen yang dimodifikasi

• yang ketiga, menyimpan nilai kembalian

Sintaks Python

results = script.invoke((prompt,buttons,title), (), ())

script.invoke((message,), tuple, ())

script.invoke((args), (), results)

Contoh Skrip Personal atau Bersama

Contoh dalam Input/Output ke Layar menjelaskan detil pemanggilan fungsi Python ke Basic. Event Monitoring Dokumen mengilustrasikan penggunaan idiom *args Python untuk mencetak sejumlah parameter variabel ke dialog konsol log Access2Base.

Saat pengembangan Anda dapat menginterupsi eksekusi skrip Python menggunakan ekstensi XRay untuk menginspeksi properti dan method dari objek UNO. Ekstensi pengawakutu ASPO memungkinkan introspeksi objek menggunakan ekstensi Xray atau MRI.

def xray(myObject):
	  script = getBasicScript(library="XrayTool", module="_Main", macro="Xray")
	  script.invoke((myObject,), (), ())

Contoh Skrip Tertanam dalam Dokumen

Sintaks Python *args yang disimplifikasi dapat digunakan sebagai konjungsi dengan routine Collabora Office Basic yang menerima sejumlah variabel argumen. Di bawah ini fungsi Cetak dan SUM Python memanggil rekan Basic Cetak dan SUM mereka, menggunakan fungsi getBasicScript yang tersebut di atas. Penanganan exception tidak dijelaskan.

# -*- coding: utf-8 -*-
from __future__ import unicode_literals

def Print(*args):
    """Menampilkan ekspresi string atau angka yang ditentukan dalam kotak dialog."""
    xScript = getBasicScript("Print", "Scripting", embedded=True)
    xScript.invoke((args), (), ())

def SUM(*args):
    """SUM (menjumlahkan) ekspresi angka yang ditentukan."""
    xScript = getBasicScript("SUM", "Scripting", embedded=True)
    res = xScript.invoke((args), (), ())
    return res[0]

# def getBasicScript()  # see above

def playWithArgs():
    Print("Fun with *args ", -9.81, 297864.681974, 8762E-137)
    Print(SUM(45, -9.81, 297864.681974))
    Print(SUM(45, -9.81, 297864.681974, 8762E+137))

g_exportedScripts = (playWithArgs,)

Fungsi berbasis dokumen Collabora Office Basic Cetak dan SUM menerima sejumlah variabel argumen. Atribut Privat atau Publik tidak berpengaruh. Pengecekan jenis argumen dilewati untuk kejelasan.

Option Compatible ' "Standard.Scripting" module
Option Explicit

Private Sub Print(ParamArray args() As Variant, Optional sep As String = " ")
    ''' Cetak daftar item variabel angka'''
    ' semua argumen CStr() yang dapat dikonversi, diterima
    Dim str As String, i As Integer
    If UBound(args) >= 0 Then
        For i = 0 To UBound(args)
            str = str + Cstr(args(i))+ sep
        Next i
    End If
    Print str
End Sub ' Standard.Scripting.Print()

Public Function SUM(ParamArray args() As Variant) As Variant
    ''' SUM (menjumlahkan) daftar variabel angka '''
    Dim ndx As Integer
    If UBound(args) >= 0 Then
        For ndx = 0 To UBound(args)
            SUM = SUM + args(ndx)
        Next ndx
    End If
End Function ' Standard.Scripting.SUM()