Home Explore Help
Sign In
pascal
/
pas2js
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Electron example

Michaël Van Canneyt 3 years ago
parent
32d76c84ee
commit
6b94518d50
9 changed files with 430 additions and 0 deletions
Split View Show Diff Stats
  1. 23 0
      demo/electron/quickstart/index.html
  2. 77 0
      demo/electron/quickstart/main.lpi
  3. 40 0
      demo/electron/quickstart/main.pas
  4. 8 0
      demo/electron/quickstart/package.json
  5. 91 0
      demo/electron/quickstart/preload.lpi
  6. 47 0
      demo/electron/quickstart/preload.lpr
  7. 22 0
      demo/electron/quickstart/quickstart.lpg
  8. 92 0
      demo/electron/quickstart/render.lpi
  9. 30 0
      demo/electron/quickstart/render.lpr

+ 23 - 0
demo/electron/quickstart/index.html
View File 

@@ -0,0 +1,23 @@
 
+<!DOCTYPE html>
 
+<html>
 
+  <head>
 
+    <meta charset="UTF-8">
 
+    <!-- https://developer.mozilla.org/en-US/docs/Web/HTTP/CSP -->
 
+    <meta http-equiv="Content-Security-Policy" content="default-src 'self'; script-src 'self' 'unsafe-inline'">
 
+    <meta http-equiv="X-Content-Security-Policy" content="default-src 'self'; script-src 'self' 'unsafe-inline'">
 
+    <title>Hello World!</title>
 
+    <script src="render.js"></script>
 
+  </head>
 
+  <body>
 
+    <h1>Hello World!</h1>
 
+    <p>We are using Pas2JS <b><span id="pas2js-version"></span></b>,</p>
 
+    <p>Node <b><span id="node-version"></span></b>,</p>
 
+    <p>Chromium <b><span id="chrome-version"></span></b>,</p>
 
+    <p>and Electron <b><span id="electron-version"></span></b>.</p>
 
+    <p>Additionally, <span id="renderertext"></span></p>
 
+    <script>
 
+      window.addEventListener("load",rtl.run);
 
+    </script>
 
+
 
+  </body>
 
+</html>

+ 77 - 0
demo/electron/quickstart/main.lpi
View File 

@@ -0,0 +1,77 @@
 
+<?xml version="1.0" encoding="UTF-8"?>
 
+<CONFIG>
 
+  <ProjectOptions>
 
+    <Version Value="12"/>
 
+    <General>
 
+      <Flags>
 
+        <MainUnitHasCreateFormStatements Value="False"/>
 
+        <MainUnitHasTitleStatement Value="False"/>
 
+        <MainUnitHasScaledStatement Value="False"/>
 
+        <Runnable Value="False"/>
 
+      </Flags>
 
+      <SessionStorage Value="InProjectDir"/>
 
+      <Title Value="main"/>
 
+      <UseAppBundle Value="False"/>
 
+      <ResourceType Value="res"/>
 
+    </General>
 
+    <BuildModes>
 
+      <Item Name="Default" Default="True"/>
 
+    </BuildModes>
 
+    <PublishOptions>
 
+      <Version Value="2"/>
 
+      <UseFileFilters Value="True"/>
 
+    </PublishOptions>
 
+    <RunParams>
 
+      <FormatVersion Value="2"/>
 
+    </RunParams>
 
+    <Units>
 
+      <Unit>
 
+        <Filename Value="main.pas"/>
 
+        <IsPartOfProject Value="True"/>
 
+      </Unit>
 
+    </Units>
 
+  </ProjectOptions>
 
+  <CompilerOptions>
 
+    <Version Value="11"/>
 
+    <Target>
 
+      <Filename Value="main"/>
 
+    </Target>
 
+    <SearchPaths>
 
+      <IncludeFiles Value="$(ProjOutDir)"/>
 
+      <UnitOutputDirectory Value="js"/>
 
+    </SearchPaths>
 
+    <Parsing>
 
+      <SyntaxOptions>
 
+        <AllowLabel Value="False"/>
 
+        <CPPInline Value="False"/>
 
+        <UseAnsiStrings Value="False"/>
 
+      </SyntaxOptions>
 
+    </Parsing>
 
+    <CodeGeneration>
 
+      <TargetOS Value="nodejs"/>
 
+    </CodeGeneration>
 
+    <Linking>
 
+      <Debugging>
 
+        <GenerateDebugInfo Value="False"/>
 
+        <UseLineInfoUnit Value="False"/>
 
+      </Debugging>
 
+    </Linking>
 
+    <Other>
 
+      <CustomOptions Value="-Jeutf-8 -Jirtl.js -Jc"/>
 
+      <CompilerPath Value="$(pas2js)"/>
 
+    </Other>
 
+  </CompilerOptions>
 
+  <Debugging>
 
+    <Exceptions>
 
+      <Item>
 
+        <Name Value="EAbort"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="ECodetoolError"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="EFOpenError"/>
 
+      </Item>
 
+    </Exceptions>
 
+  </Debugging>
 
+</CONFIG>

+ 40 - 0
demo/electron/quickstart/main.pas
View File 

@@ -0,0 +1,40 @@
 
+{
 
+    This file is part of the Pas2JS run time library.
 
+    Copyright (c) 2022- by the Pas2JS development team.
 
+
 
+    Electron main process application.
 
+
 
+    See the file COPYING.FPC, included in this distribution,
 
+    for details about the copyright.
 
+
 
+    This program is distributed in the hope that it will be useful,
 
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
+
 
+ **********************************************************************}
 
+
 
+program main;
 
+
 
+uses js, nodejs, node.fs, libelectron;
 
+
 
+
 
+Procedure createWindow(event : TEvent; accessibilitySupportEnabled : boolean);
 
+
 
+Var
 
+  opts : TBrowserWindowConstructorOptions;
 
+  win : TBrowserWindow;
 
+
 
+begin
 
+  opts:=TBrowserWindowConstructorOptions.new;
 
+  opts.width:=800;
 
+  opts.height:=600;
 
+  opts.webPreferences:=TWebPreferences.New;
 
+  opts.webPreferences.preload:=NJS_Path.join(__dirname,'preload.js');
 
+  win:=Electron.TBrowserWindow.new(opts);
 
+  win.loadFile('index.html');  
+end;
 
+  
+begin
 
+  electron.app.addListener('ready',@CreateWindow);
 
+end.
 
+

+ 8 - 0
demo/electron/quickstart/package.json
View File 

@@ -0,0 +1,8 @@
 
+{
 
+  "name": "quickstart-electron-app",
 
+  "version": "1.0.0",
 
+  "description": "Hello World!",
 
+  "main": "main.js",
 
+  "author": "Michael Van Canneyt",
 
+  "license": "LGPL"
 
+}

+ 91 - 0
demo/electron/quickstart/preload.lpi
View File 

@@ -0,0 +1,91 @@
 
+<?xml version="1.0" encoding="UTF-8"?>
 
+<CONFIG>
 
+  <ProjectOptions>
 
+    <Version Value="12"/>
 
+    <General>
 
+      <Flags>
 
+        <MainUnitHasCreateFormStatements Value="False"/>
 
+        <MainUnitHasTitleStatement Value="False"/>
 
+        <MainUnitHasScaledStatement Value="False"/>
 
+        <Runnable Value="False"/>
 
+      </Flags>
 
+      <SessionStorage Value="InProjectDir"/>
 
+      <Title Value="preload"/>
 
+      <UseAppBundle Value="False"/>
 
+      <ResourceType Value="res"/>
 
+    </General>
 
+    <CustomData Count="5">
 
+      <Item0 Name="MaintainHTML" Value="1"/>
 
+      <Item1 Name="Pas2JSProject" Value="1"/>
 
+      <Item2 Name="PasJSPort" Value="3001"/>
 
+      <Item3 Name="PasJSWebBrowserProject" Value="1"/>
 
+      <Item4 Name="RunAtReady" Value="1"/>
 
+    </CustomData>
 
+    <BuildModes>
 
+      <Item Name="Default" Default="True"/>
 
+    </BuildModes>
 
+    <PublishOptions>
 
+      <Version Value="2"/>
 
+      <UseFileFilters Value="True"/>
 
+    </PublishOptions>
 
+    <RunParams>
 
+      <FormatVersion Value="2"/>
 
+    </RunParams>
 
+    <Units>
 
+      <Unit>
 
+        <Filename Value="preload.lpr"/>
 
+        <IsPartOfProject Value="True"/>
 
+      </Unit>
 
+      <Unit>
 
+        <Filename Value="index.html"/>
 
+        <IsPartOfProject Value="True"/>
 
+        <CustomData Count="1">
 
+          <Item0 Name="PasJSIsProjectHTMLFile" Value="1"/>
 
+        </CustomData>
 
+      </Unit>
 
+    </Units>
 
+  </ProjectOptions>
 
+  <CompilerOptions>
 
+    <Version Value="11"/>
 
+    <Target FileExt=".js">
 
+      <Filename Value="preload"/>
 
+    </Target>
 
+    <SearchPaths>
 
+      <IncludeFiles Value="$(ProjOutDir)"/>
 
+      <UnitOutputDirectory Value="js"/>
 
+    </SearchPaths>
 
+    <Parsing>
 
+      <SyntaxOptions>
 
+        <AllowLabel Value="False"/>
 
+        <CPPInline Value="False"/>
 
+        <UseAnsiStrings Value="False"/>
 
+      </SyntaxOptions>
 
+    </Parsing>
 
+    <CodeGeneration>
 
+      <TargetOS Value="nodejs"/>
 
+    </CodeGeneration>
 
+    <Linking>
 
+      <Debugging>
 
+        <GenerateDebugInfo Value="False"/>
 
+        <UseLineInfoUnit Value="False"/>
 
+      </Debugging>
 
+    </Linking>
 
+    <Other>
 
+      <CustomOptions Value="-Jeutf-8 -Jirtl.js -Jc -Jminclude"/>
 
+      <CompilerPath Value="$(pas2js)"/>
 
+    </Other>
 
+  </CompilerOptions>
 
+  <Debugging>
 
+    <Exceptions>
 
+      <Item>
 
+        <Name Value="EAbort"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="ECodetoolError"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="EFOpenError"/>
 
+      </Item>
 
+    </Exceptions>
 
+  </Debugging>
 
+</CONFIG>

+ 47 - 0
demo/electron/quickstart/preload.lpr
View File 

@@ -0,0 +1,47 @@
 
+{
 
+    This file is part of the Pas2JS run time library.
 
+    Copyright (c) 2022- by the Pas2JS development team.
 
+
 
+    Electron renderer-preload process application.
 
+
 
+    See the file COPYING.FPC, included in this distribution,
 
+    for details about the copyright.
 
+
 
+    This program is distributed in the hope that it will be useful,
 
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
+
 
+ **********************************************************************}
 
+program preload;
 
+
 
+{$mode objfpc}
 
+
 
+uses
 
+  JS, Classes, SysUtils, Web, libelectron, nodejs;
 
+
 
+procedure DoRun(event : TJSEvent);
 
+
 
+  Procedure ReplaceText(const aSelector, aText : String);
 
+
 
+  Var
 
+    el : TJSHTMLElement;
 
+
 
+  begin
 
+    el:=TJSHTMLElement(Document.getElementById(aSelector));
 
+    if Assigned(el) then
 
+      el.InnerText:=aText;
 
+  end;
 
+
 
+begin
 
+  ReplaceText('pas2js-version',{$i %PAS2JSVERSION%});
 
+  ReplaceText('chrome-version',String(TNJSProcess.versions['chrome']));
 
+  ReplaceText('electron-version',String(TNJSProcess.versions['electron']));
 
+  ReplaceText('node-version',String(TNJSProcess.versions['node']));
 
+end;
 
+
 
+begin
 
+  console.log('preload environment start');
 
+  console.log(electron);
 
+  console.log('preload environment done');
 
+  window.addEventListener('DOMContentLoaded',@DoRun);
 
+end.

+ 22 - 0
demo/electron/quickstart/quickstart.lpg
View File 

@@ -0,0 +1,22 @@
 
+<?xml version="1.0" encoding="UTF-8"?>
 
+<CONFIG>
 
+  <ProjectGroup FileVersion="2">
 
+    <Targets>
 
+      <Target FileName="main.lpi">
 
+        <BuildModes>
 
+          <Mode Name="Default"/>
 
+        </BuildModes>
 
+      </Target>
 
+      <Target FileName="preload.lpi">
 
+        <BuildModes>
 
+          <Mode Name="Default"/>
 
+        </BuildModes>
 
+      </Target>
 
+      <Target FileName="render.lpi">
 
+        <BuildModes>
 
+          <Mode Name="Default"/>
 
+        </BuildModes>
 
+      </Target>
 
+    </Targets>
 
+  </ProjectGroup>
 
+</CONFIG>

+ 92 - 0
demo/electron/quickstart/render.lpi
View File 

@@ -0,0 +1,92 @@
 
+<?xml version="1.0" encoding="UTF-8"?>
 
+<CONFIG>
 
+  <ProjectOptions>
 
+    <Version Value="12"/>
 
+    <General>
 
+      <Flags>
 
+        <MainUnitHasCreateFormStatements Value="False"/>
 
+        <MainUnitHasTitleStatement Value="False"/>
 
+        <MainUnitHasScaledStatement Value="False"/>
 
+        <Runnable Value="False"/>
 
+      </Flags>
 
+      <SessionStorage Value="InProjectDir"/>
 
+      <Title Value="render"/>
 
+      <UseAppBundle Value="False"/>
 
+      <ResourceType Value="res"/>
 
+    </General>
 
+    <CustomData Count="6">
 
+      <Item0 Name="MaintainHTML" Value="1"/>
 
+      <Item1 Name="Pas2JSProject" Value="1"/>
 
+      <Item2 Name="PasJSHTMLFile" Value="project1.html"/>
 
+      <Item3 Name="PasJSPort" Value="3001"/>
 
+      <Item4 Name="PasJSWebBrowserProject" Value="1"/>
 
+      <Item5 Name="RunAtReady" Value="1"/>
 
+    </CustomData>
 
+    <BuildModes>
 
+      <Item Name="Default" Default="True"/>
 
+    </BuildModes>
 
+    <PublishOptions>
 
+      <Version Value="2"/>
 
+      <UseFileFilters Value="True"/>
 
+    </PublishOptions>
 
+    <RunParams>
 
+      <FormatVersion Value="2"/>
 
+    </RunParams>
 
+    <Units>
 
+      <Unit>
 
+        <Filename Value="render.lpr"/>
 
+        <IsPartOfProject Value="True"/>
 
+      </Unit>
 
+      <Unit>
 
+        <Filename Value="index.html"/>
 
+        <IsPartOfProject Value="True"/>
 
+        <CustomData Count="1">
 
+          <Item0 Name="PasJSIsProjectHTMLFile" Value="1"/>
 
+        </CustomData>
 
+      </Unit>
 
+    </Units>
 
+  </ProjectOptions>
 
+  <CompilerOptions>
 
+    <Version Value="11"/>
 
+    <Target FileExt=".js">
 
+      <Filename Value="render"/>
 
+    </Target>
 
+    <SearchPaths>
 
+      <IncludeFiles Value="$(ProjOutDir)"/>
 
+      <UnitOutputDirectory Value="js"/>
 
+    </SearchPaths>
 
+    <Parsing>
 
+      <SyntaxOptions>
 
+        <AllowLabel Value="False"/>
 
+        <CPPInline Value="False"/>
 
+        <UseAnsiStrings Value="False"/>
 
+      </SyntaxOptions>
 
+    </Parsing>
 
+    <CodeGeneration>
 
+      <TargetOS Value="browser"/>
 
+    </CodeGeneration>
 
+    <Linking>
 
+      <Debugging>
 
+        <GenerateDebugInfo Value="False"/>
 
+        <UseLineInfoUnit Value="False"/>
 
+      </Debugging>
 
+    </Linking>
 
+    <Other>
 
+      <CustomOptions Value="-Jeutf-8 -Jirtl.js -Jc -Jminclude"/>
 
+      <CompilerPath Value="$(pas2js)"/>
 
+    </Other>
 
+  </CompilerOptions>
 
+  <Debugging>
 
+    <Exceptions>
 
+      <Item>
 
+        <Name Value="EAbort"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="ECodetoolError"/>
 
+      </Item>
 
+      <Item>
 
+        <Name Value="EFOpenError"/>
 
+      </Item>
 
+    </Exceptions>
 
+  </Debugging>
 
+</CONFIG>

+ 30 - 0
demo/electron/quickstart/render.lpr
View File 

@@ -0,0 +1,30 @@
 
+{
 
+    This file is part of the Pas2JS run time library.
 
+    Copyright (c) 2022- by the Pas2JS development team.
 
+
 
+    Electron renderer process application, runs inside a browser context.
 
+    Electron API is not available in this process
 
+
 
+    See the file COPYING.FPC, included in this distribution,
 
+    for details about the copyright.
 
+
 
+    This program is distributed in the hope that it will be useful,
 
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
+
 
+ **********************************************************************}
 
+
 
+program render;
 
+
 
+{$mode objfpc}
 
+
 
+uses
 
+  JS, Web;
 
+
 
+Var
 
+  el : TJSHTMLElement;
 
+
 
+begin
 
+  el:=Document.getHTMLElementById('renderertext');
 
+  el.innerHTML:='This text was produced in the Electron Renderer process using Pas2JS version <b>'+{$i %PAS2JSVERSION%}+'</b>';
 
+end.