fpc/packages/fcl-web/examples/webdata/demo4/wmxmlusers.pp
michael ef213e67d6 * Examples added
git-svn-id: trunk@15333 -
2010-05-27 14:06:12 +00:00

35 lines
650 B
ObjectPascal

unit wmxmlusers;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb,
fpwebdata, extjsxml;
type
{ TFPWebProviderDataModule2 }
TFPWebProviderDataModule2 = class(TFPWebProviderDataModule)
ExtJSXMLDataFormatter1: TExtJSXMLDataFormatter;
ExtJSXMLWebdataInputAdaptor1: TExtJSXMLWebdataInputAdaptor;
private
{ private declarations }
public
{ public declarations }
end;
var
FPWebProviderDataModule2: TFPWebProviderDataModule2;
implementation
initialization
{$I wmxmlusers.lrs}
RegisterHTTPModule('XMLProvider', TFPWebProviderDataModule2);
end.