mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:09:25 +02:00
* Ext.Direct demo
git-svn-id: trunk@15375 -
This commit is contained in:
michael
parent
a7eb6bf64b
commit
e94344784d
8
.gitattributes
vendored
8
.gitattributes
vendored
@ -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.lrs 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.lpr svneol=native#text/plain
|
||||
packages/fcl-web/examples/webdata/demo/extgrid-json.html svneol=native#text/plain
|
||||
|
||||
12
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.html
Normal file
12
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.html
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.js
Normal file
44
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.js
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpi
Normal file
261
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpi
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr
Normal file
15
packages/fcl-web/examples/jsonrpc/extdirect/extdemo.lpr
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/extdirect.in
Normal file
4
packages/fcl-web/examples/jsonrpc/extdirect/extdirect.in
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lfm
Normal file
24
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lfm
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lrs
Normal file
10
packages/fcl-web/examples/jsonrpc/extdirect/wmext.lrs
Normal 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
packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp
Normal file
52
packages/fcl-web/examples/jsonrpc/extdirect/wmext.pp
Normal 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.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user