You've already forked lazarus-ccr
27aea1d1ad
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5438 8e941d3f-bd1b-0410-a28a-d453659cc2b4
89 lines
2.2 KiB
ObjectPascal
89 lines
2.2 KiB
ObjectPascal
unit LazFFEmbeddedMain;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, db, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
|
|
DbCtrls, DBGrids, ffsreng, ffdb;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
DataSource1: TDataSource;
|
|
DBGrid1: TDBGrid;
|
|
DBNavigator1: TDBNavigator;
|
|
ToolBar1: TToolBar;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
ffClient1: TffClient;
|
|
ffDatabase1: TffDatabase;
|
|
ffServerEngine1: TffServerEngine;
|
|
ffSession1: TffSession;
|
|
ffTable1: TffTable;
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
{ TForm1 }
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
var ServerFolder, DBFolder :string;
|
|
begin
|
|
//Change Folders to your install
|
|
ServerFolder:= 'D:\AppDev\TDLite\Comps\flashfiler\bin\';
|
|
DBFolder := 'D:\AppDev\TDLite\Comps\flashfiler\examples\mythicdb\';
|
|
|
|
ffServerEngine1:= TffServerEngine.Create(self);
|
|
ffServerEngine1.ConfigDir := ServerFolder;
|
|
//ffServerEngine1.NoAutoSaveCfg:=true;
|
|
//ffServerEngine1.CollectGarbage := True;
|
|
ffServerEngine1.Startup; //error excepts at 3.run in
|
|
//ffsreng.pas
|
|
//LIne 6838: Dictionary.ReadFromFile(DataFile, aTI);
|
|
|
|
ffClient1:= TffClient.Create(self);
|
|
ffClient1.ClientName := 'FFClient_69729904';
|
|
ffClient1.ServerEngine := ffServerEngine1;
|
|
|
|
ffSession1:= TffSession.Create(self);
|
|
ffSession1.ClientName := 'FFClient_69729904';
|
|
ffSession1.SessionName := 'FFSession_69795446';
|
|
|
|
ffDatabase1:= TffDatabase.Create(self);
|
|
ffDatabase1.AliasName := DBFolder;
|
|
ffDatabase1.DatabaseName := 'FFDB_282722134'; //-->Starts server if not already started
|
|
|
|
ffDatabase1.SessionName := 'FFSession_69795446';
|
|
|
|
ffTable1:= TffTable.Create(self);
|
|
ffTable1.DatabaseName := 'FFDB_282722134';
|
|
//ffTable1.FieldDefs := <>;
|
|
ffTable1.FilterOptions := [];
|
|
ffTable1.SessionName := 'FFSession_69795446';
|
|
ffTable1.TableName := 'customer';
|
|
|
|
DataSource1.DataSet:=ffTable1;
|
|
|
|
//ffServerEngine1.Startup;
|
|
//ffClient1.Active:=true;
|
|
//ffSession1.Active:=true;
|
|
ffDatabase1.Connected:=true;
|
|
ffTable1.Active:=true;
|
|
|
|
end;
|
|
|
|
end.
|
|
|