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

* Ext.Direct demo

git-svn-id: trunk@15375 -
michael 15 years ago
parent
a7eb6bf64b
commit
e94344784d
9 changed files with 430 additions and 0 deletions
Unified View Show Diff Stats
  1. 8 0
      .gitattributes
  2. 12 0
      packages/fcl-web/examples/jsonrpc/extdirect/extdemo.html
  3. 44 0
      packages/fcl-web/examples/jsonrpc/extdirect/extdemo.js
  4. 261 0
      packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpi
  5. 15 0
      packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr
  6. 4 0
      packages/fcl-web/examples/jsonrpc/extdirect/extdirect.in
  7. 24 0
      packages/fcl-web/examples/jsonrpc/extdirect/wmext.lfm
  8. 10 0
      packages/fcl-web/examples/jsonrpc/extdirect/wmext.lrs
  9. 52 0
      packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp

+ 8 - 0
.gitattributes
View File 

@@ -2174,6 +2174,14 @@ packages/fcl-web/examples/jsonrpc/demo1/notification.in svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.lfm svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.lfm svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.lrs svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.lrs svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.pp svneol=native#text/plain
 
 packages/fcl-web/examples/jsonrpc/demo1/wmdemo.pp svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/extdemo.html svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/extdemo.js svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpi svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/extdirect.in svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/wmext.lfm svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/wmext.lrs svneol=native#text/plain
 
+packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/createusers.lpi svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/createusers.lpi svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/createusers.lpr svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/createusers.lpr svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/extgrid-json.html svneol=native#text/plain
 
 packages/fcl-web/examples/webdata/demo/extgrid-json.html svneol=native#text/plain

+ 12 - 0
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.html
View File 

@@ -0,0 +1,12 @@
 
+<html>
 
+<head>
 
+<title>ExtJS JSON Data demo</title>
 
+<link rel="stylesheet" type="text/css" href="/ext/resources/css/ext-all.css"/>
 
+<script src="/ext/adapter/ext/ext-base.js"></script>
 
+<script src="/ext/ext-all-debug.js"></script>
 
+<script src="extdemo.cgi/demo/API"></script>
 
+<script src="extdemo.js"></script>
 
+</head>
 
+<body>
 
+</body>
 
+</html>

+ 44 - 0
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.js
View File 

@@ -0,0 +1,44 @@
 
+/* 
+  Define namespace FPC 
+*/
 
+
 
+Ext.ns('FPC');
 
+
 
+/* 
+  Include our server-side Ext.Direct API; The default name 'FPWeb' was used
 
+*/
 
+
 
+Ext.Direct.addProvider(FPWeb);
 
+
 
+/* 
+  Callback used to process result. It will show the actual page
 
+*/
 
+
 
+FPC.ShowResult = function (Provider,Response) {
 
+  var panel = new Ext.Panel({
 
+    renderTo: Ext.getBody(),
 
+    frame: true,
 
+    title: "Adding 1.2 and 3.4 = " + Response.result,
 
+    height: 50,
 
+    width: 200,
 
+    html: "The result is : " + Response.result
 
+   });
 
+  panel.show();
 
+}
 
+
 
+/* 
+  onReady callback function 
+*/
 
+
 
+FPC.ShowPage = function () {
 
+  /* 
+    Call our API, using FPC.ShowResult as the callback to process the result 
+  */
 
+  DemoClass.Add(1.2, 3.4, FPC.ShowResult);
 
+}
 
+
 
+/* 
+  Start Extjs 
+*/
 
+
 
+Ext.onReady(FPC.ShowPage);

+ 261 - 0
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpi
View File 

@@ -0,0 +1,261 @@
 
+<?xml version="1.0"?>
 
+<CONFIG>
 
+  <ProjectOptions>
 
+    <Version Value="7"/>
 
+    <General>
 
+      <Flags>
 
+        <MainUnitHasCreateFormStatements Value="False"/>
 
+        <Runnable Value="False"/>
 
+      </Flags>
 
+      <MainUnit Value="0"/>
 
+      <TargetFileExt Value=""/>
 
+      <Title Value="Ext.Direct demo application"/>
 
+      <ResourceType Value="res"/>
 
+      <UseXPManifest Value="True"/>
 
+      <Icon Value="0"/>
 
+      <ActiveWindowIndexAtStart Value="0"/>
 
+    </General>
 
+    <VersionInfo>
 
+      <Language Value=""/>
 
+      <CharSet Value=""/>
 
+      <StringTable Comments="" CompanyName="" FileDescription="" FileVersion="" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
 
+    </VersionInfo>
 
+    <PublishOptions>
 
+      <Version Value="2"/>
 
+      <IgnoreBinaries Value="False"/>
 
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
 
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
 
+    </PublishOptions>
 
+    <RunParams>
 
+      <local>
 
+        <FormatVersion Value="1"/>
 
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
 
+      </local>
 
+    </RunParams>
 
+    <RequiredPackages Count="4">
 
+      <Item1>
 
+        <PackageName Value="lazwebextra"/>
 
+        <MinVersion Valid="True"/>
 
+      </Item1>
 
+      <Item2>
 
+        <PackageName Value="WebLaz"/>
 
+      </Item2>
 
+      <Item3>
 
+        <PackageName Value="LCL"/>
 
+      </Item3>
 
+      <Item4>
 
+        <PackageName Value="FCL"/>
 
+      </Item4>
 
+    </RequiredPackages>
 
+    <Units Count="12">
 
+      <Unit0>
 
+        <Filename Value="extdemo.lpr"/>
 
+        <IsPartOfProject Value="True"/>
 
+        <UnitName Value="extdemo"/>
 
+        <EditorIndex Value="1"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="1"/>
 
+        <CursorPos X="7" Y="6"/>
 
+        <UsageCount Value="24"/>
 
+        <Loaded Value="True"/>
 
+      </Unit0>
 
+      <Unit1>
 
+        <Filename Value="wmdemo.pp"/>
 
+        <ComponentName Value="FPWebModule1"/>
 
+        <ResourceBaseClass Value="DataModule"/>
 
+        <UnitName Value="wmdemo"/>
 
+        <EditorIndex Value="0"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="1"/>
 
+        <CursorPos X="21" Y="28"/>
 
+        <UsageCount Value="24"/>
 
+        <Loaded Value="True"/>
 
+      </Unit1>
 
+      <Unit2>
 
+        <Filename Value="wmext.pp"/>
 
+        <IsPartOfProject Value="True"/>
 
+        <ComponentName Value="DemoClass"/>
 
+        <ResourceBaseClass Value="DataModule"/>
 
+        <UnitName Value="wmext"/>
 
+        <EditorIndex Value="6"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="3"/>
 
+        <CursorPos X="22" Y="48"/>
 
+        <UsageCount Value="24"/>
 
+        <Loaded Value="True"/>
 
+      </Unit2>
 
+      <Unit3>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <UnitName Value="fpextdirect"/>
 
+        <IsVisibleTab Value="True"/>
 
+        <EditorIndex Value="7"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="185"/>
 
+        <CursorPos X="49" Y="196"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit3>
 
+      <Unit4>
 
+        <Filename Value="../../../src/jsonrpc/fpjsonrpc.pp"/>
 
+        <UnitName Value="fpjsonrpc"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="432"/>
 
+        <CursorPos X="6" Y="441"/>
 
+        <UsageCount Value="10"/>
 
+      </Unit4>
 
+      <Unit5>
 
+        <Filename Value="../../../../../lazarus/components/fpweb/reglazwebextra.pp"/>
 
+        <UnitName Value="reglazwebextra"/>
 
+        <EditorIndex Value="10"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="67"/>
 
+        <CursorPos X="56" Y="81"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit5>
 
+      <Unit6>
 
+        <Filename Value="wmext.lrs"/>
 
+        <EditorIndex Value="9"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="1"/>
 
+        <CursorPos X="1" Y="9"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit6>
 
+      <Unit7>
 
+        <Filename Value="../../../src/base/fpcgi.pp"/>
 
+        <UnitName Value="fpcgi"/>
 
+        <EditorIndex Value="2"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="1"/>
 
+        <CursorPos X="26" Y="20"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit7>
 
+      <Unit8>
 
+        <Filename Value="../../../src/base/custcgi.pp"/>
 
+        <UnitName Value="custcgi"/>
 
+        <EditorIndex Value="3"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="24"/>
 
+        <CursorPos X="33" Y="24"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit8>
 
+      <Unit9>
 
+        <Filename Value="../../../src/base/httpdefs.pp"/>
 
+        <UnitName Value="HTTPDefs"/>
 
+        <EditorIndex Value="4"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="1"/>
 
+        <CursorPos X="26" Y="38"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit9>
 
+      <Unit10>
 
+        <Filename Value="../../../src/base/custweb.pp"/>
 
+        <UnitName Value="custweb"/>
 
+        <EditorIndex Value="5"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="221"/>
 
+        <CursorPos X="17" Y="265"/>
 
+        <UsageCount Value="12"/>
 
+        <Loaded Value="True"/>
 
+      </Unit10>
 
+      <Unit11>
 
+        <Filename Value="../../../src/jsonrpc/webjsonrpc.pp"/>
 
+        <UnitName Value="webjsonrpc"/>
 
+        <EditorIndex Value="8"/>
 
+        <WindowIndex Value="0"/>
 
+        <TopLine Value="29"/>
 
+        <CursorPos X="27" Y="29"/>
 
+        <UsageCount Value="11"/>
 
+        <Loaded Value="True"/>
 
+      </Unit11>
 
+    </Units>
 
+    <JumpHistory Count="13" HistoryIndex="12">
 
+      <Position1>
 
+        <Filename Value="../../../../../lazarus/components/fpweb/reglazwebextra.pp"/>
 
+        <Caret Line="1" Column="1" TopLine="1"/>
 
+      </Position1>
 
+      <Position2>
 
+        <Filename Value="extdemo.lpr"/>
 
+        <Caret Line="1" Column="1" TopLine="1"/>
 
+      </Position2>
 
+      <Position3>
 
+        <Filename Value="extdemo.lpr"/>
 
+        <Caret Line="11" Column="1" TopLine="1"/>
 
+      </Position3>
 
+      <Position4>
 
+        <Filename Value="wmext.pp"/>
 
+        <Caret Line="6" Column="18" TopLine="2"/>
 
+      </Position4>
 
+      <Position5>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <Caret Line="376" Column="36" TopLine="370"/>
 
+      </Position5>
 
+      <Position6>
 
+        <Filename Value="../../../src/base/httpdefs.pp"/>
 
+        <Caret Line="1" Column="1" TopLine="1"/>
 
+      </Position6>
 
+      <Position7>
 
+        <Filename Value="../../../src/base/httpdefs.pp"/>
 
+        <Caret Line="936" Column="3" TopLine="929"/>
 
+      </Position7>
 
+      <Position8>
 
+        <Filename Value="../../../src/base/custweb.pp"/>
 
+        <Caret Line="1" Column="1" TopLine="1"/>
 
+      </Position8>
 
+      <Position9>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <Caret Line="397" Column="17" TopLine="368"/>
 
+      </Position9>
 
+      <Position10>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <Caret Line="29" Column="1" TopLine="26"/>
 
+      </Position10>
 
+      <Position11>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <Caret Line="398" Column="16" TopLine="373"/>
 
+      </Position11>
 
+      <Position12>
 
+        <Filename Value="../../../src/jsonrpc/fpextdirect.pp"/>
 
+        <Caret Line="413" Column="21" TopLine="379"/>
 
+      </Position12>
 
+      <Position13>
 
+        <Filename Value="../../../src/jsonrpc/webjsonrpc.pp"/>
 
+        <Caret Line="66" Column="14" TopLine="41"/>
 
+      </Position13>
 
+    </JumpHistory>
 
+  </ProjectOptions>
 
+  <CompilerOptions>
 
+    <Version Value="8"/>
 
+    <Target>
 
+      <Filename Value="extdemo.cgi"/>
 
+    </Target>
 
+    <SearchPaths>
 
+      <IncludeFiles Value="$(ProjOutDir)/"/>
 
+    </SearchPaths>
 
+    <Parsing>
 
+      <SyntaxOptions>
 
+        <UseAnsiStrings Value="True"/>
 
+      </SyntaxOptions>
 
+    </Parsing>
 
+    <Other>
 
+      <CompilerPath Value="$(CompPath)"/>
 
+    </Other>
 
+  </CompilerOptions>
 
+  <Debugging>
 
+    <Exceptions Count="3">
 
+      <Item1>
 
+        <Name Value="EAbort"/>
 
+      </Item1>
 
+      <Item2>
 
+        <Name Value="ECodetoolError"/>
 
+      </Item2>
 
+      <Item3>
 
+        <Name Value="EFOpenError"/>
 
+      </Item3>
 
+    </Exceptions>
 
+  </Debugging>
 
+</CONFIG>

+ 15 - 0
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr
View File 

@@ -0,0 +1,15 @@
 
+program extdemo;
 
+
 
+{$mode objfpc}{$H+}
 
+
 
+uses
 
+  fpCGI, wmext;
 
+
 
+{$R *.res}
 
+
 
+begin
 
+  Application.Title:='Ext.Direct demo application';
 
+  Application.Initialize;
 
+  Application.Run;
 
+end.
 
+

+ 4 - 0
packages/fcl-web/examples/jsonrpc/extdirect/extdirect.in
View File 

@@ -0,0 +1,4 @@
 
+[
 
+  { "action": "DemoClass", "method": "add", "data": [1 , 2 ] , "tid": 1 },
 
+  { "action": "DemoClass", "method": "add", "data": [1.2 , 3.4] , "tid": 2 }
 
+]

+ 24 - 0
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lfm
View File 

@@ -0,0 +1,24 @@
 
+object DemoClass: TDemoClass
 
+  OldCreateOrder = False
 
+  APIPath = 'API'
 
+  RouterPath = 'Router'
 
+  Height = 313
 
+  HorizontalOffset = 548
 
+  VerticalOffset = 230
 
+  Width = 359
 
+  object Add: TJSONRPCHandler
 
+    OnExecute = AddExecute
 
+    Options = []
 
+    ParamDefs = <    
+      item
 
+        Name = 'A'
 
+        DataType = jtNumber
 
+      end    
+      item
 
+        Name = 'B'
 
+        DataType = jtNumber
 
+      end>
 
+    left = 56
 
+    top = 32
 
+  end
 
+end

+ 10 - 0
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lrs
View File 

@@ -0,0 +1,10 @@
 
+{ This is an automatically generated lazarus resource file }
 
+
 
+LazarusResources.Add('TDemoClass','FORMDATA',[
 
+  'TPF0'#10'TDemoClass'#9'DemoClass'#14'OldCreateOrder'#8#7'APIPath'#6#3'API'#10
 
+  +'RouterPath'#6#6'Router'#6'Height'#3'9'#1#16'HorizontalOffset'#3'$'#2#14'Ver'
 
+  +'ticalOffset'#3#230#0#5'Width'#3'g'#1#0#15'TJSONRPCHandler'#3'Add'#9'OnExecu'
 
+  +'te'#7#10'AddExecute'#7'Options'#11#0#9'ParamDefs'#14#1#4'Name'#6#1'A'#8'Dat'
 
+  +'aType'#7#8'jtNumber'#0#1#4'Name'#6#1'B'#8'DataType'#7#8'jtNumber'#0#0#4'lef'
 
+  +'t'#2'8'#3'top'#2' '#0#0#0
 
+]);

+ 52 - 0
packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp
View File 

@@ -0,0 +1,52 @@
 
+unit wmext; 
+
 
+{$mode objfpc}{$H+}
 
+
 
+interface
 
+
 
+uses
 
+  Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb, 
+    fpjsonrpc, webjsonrpc, fpextdirect, fpjson;
 
+
 
+type
 
+
 
+  { TDemoClass }
 
+
 
+  TDemoClass = class(TExtDirectModule)
 
+    Add: TJSONRPCHandler;
 
+    procedure AddExecute(Sender: TObject; const Params: TJSONData; out
 
+      Res: TJSONData);
 
+  private
 
+    { private declarations }
 
+  public
 
+    { public declarations }
 
+  end; 
+
 
+var
 
+  DemoClass: TDemoClass;
 
+
 
+implementation
 
+
 
+{ TDemoClass }
 
+
 
+procedure TDemoClass.AddExecute(Sender: TObject;
 
+  const Params: TJSONData; out Res: TJSONData);
 
+
 
+Var
 
+  A,B : TJSONData;
 
+
 
+begin
 
+  If (Params is TJSONArray) then
 
+    begin
 
+    A:=TJSONArray(Params).Items[0];
 
+    B:=TJSONArray(Params).Items[1];
 
+    Res:=TJSONFLoatNumber.Create(B.AsFloat+A.AsFloat);
 
+    end;
 
+end;
 
+
 
+initialization
 
+  {$I wmext.lrs}
 
+
 
+  RegisterHTTPModule('demo', TDemoClass);
 
+end.
 
+