Dokončení aplikace pomocí příkazů 4D

Od několika verzí 4D byly přidány různé funkce pro vytvoření vlastního konstrukčního řetězce. Například,

• vytvoření složky „.zip“,
• přidání informací, jako jsou autorská práva na spustitelný soubor nebo „dll“,
• vytvoření souboru „info.plist“,
• a nová komponenta build4D.

Ve verzi 4D v20 umožňují dvě nové funkce dokončit tvorbu samostatné aplikace nebo aplikace klient/server v kódu 4D:

• přidání ikony ke spustitelnému souboru
• generování licenčního souboru pro nasazení serveru (pouze licence OEM) nebo samostatné aplikace.

Přidání ikony do spustitelného souboru

V systému Windows umožňuje funkce setAppInfo třídy File přidat ke spustitelnému souboru některé informace, jako je společnost a autorská práva. Přidali jsme nový atribut „WinIcon“ pro předání souboru „.ico“, který se má použít.

Zde je příklad kódu:

$exeFile: 4D.File
var $iconFile: 4D.File

$exeFile:=Folder(fk složka plochy).file("myApp/myApp.exe")
$iconFile:=File("/RESOURCES/myApp.ico")

$exeFile.setAppInfo(New object("WinIcon"; $iconFile.path))

Pokud vás zajímá, jak je to se systémem MacOS? To je možné již od vytvoření funkce setAppInfo.

Přidání ikony do souboru „.app“. Resources“ aplikace je třeba umístit soubor „.icns“ do složky „Resources“ aplikace. Poté přidejte klíč „CFBundleIconFile“ do souboru „info.plist“ s cestou k ikoně vzhledem ke složce „Resources“.

var $plistFile: 4D.File
$pListFile:= Folder(fk desktop folder).file("myApp.app/Contents/Info.plist")
$pListFile.setAppInfo(New object("CFBundleIconFile"; "myApp.icns"))

Generování licence pro nasazení

Nový příkaz Create deployment license (Vytvořit licenci pro nasazení ) umožňuje vytvořit licenci pro server nebo aplikaci pro jednoho uživatele. K tomu je třeba předat vygenerovanou složku aplikace a licenční soubor jako parametry pro vygenerování licence pro nasazení.

Aplikace pro jednoho uživatele:

var $status: Object
var $application: 4D.File
var $license: 4D.File
$license:=Folder(fk licenses folder).file("4UUD200-xxx.license4D")
$application:=Folder(fk desktop folder).folder("myApp.app")
$status:=Createdeployment license($application; $license)

Server s licencí OEM:

var $status: Object
var $application: 4D.File
var $serverLicense; $oemLicense: 4D.File
$serverLicense:=Folder(fk licenses folder).file("4UOS200-xxx.license4D")
$oemLicense:=Folder(fk licenses folder).soubor("4DOM200-xxx.license4D")
$application:=Folder(fk složka plochy).folder("myApp.app")
$status:=Createdeployment license($application; $serverLicense; $oemLicense)

Další…

Na Githubu je k dispozici komponenta Build4D, která umožňuje vytvořit vlastní sestavovací řetězec. Prozatím si můžete přizpůsobit a automatizovat vytváření zkompilované báze nebo komponenty. Zůstaňte naladěni na nový vývoj, který se brzy objeví.