395e3f20ed
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5123 8e941d3f-bd1b-0410-a28a-d453659cc2b4
65 lines
1.1 KiB
ObjectPascal
65 lines
1.1 KiB
ObjectPascal
unit mormotdatamodule;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, Forms, Dialogs, ExtCtrls, VpmORMotDS;
|
|
|
|
type
|
|
|
|
{ TDemoDM }
|
|
|
|
TDemoDM = class(TDataModule)
|
|
Timer1: TTimer;
|
|
procedure Timer1Timer(Sender: TObject);
|
|
private
|
|
public
|
|
Datastore: TVpmORMotDatastore;
|
|
constructor Create(AOwner: TComponent); override;
|
|
end;
|
|
|
|
var
|
|
DemoDM: TDemoDM;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
constructor TDemoDM.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
|
|
Datastore := TVpmORMotDatastore.Create(self);
|
|
|
|
with Datastore do
|
|
begin
|
|
// if the HostIP is set, it will look for a running server on this IP address when connecting.
|
|
// leave blank (comment out) for a local (and private) database
|
|
|
|
HostIP := 'localhost';
|
|
Directory := 'data';
|
|
Connected := true;
|
|
|
|
if (Length(HostIP)>0) and (not Connected) then
|
|
begin
|
|
MessageDlg('Cannot connect with server', mtError, [mbOk], 0);
|
|
Application.Terminate;
|
|
end;
|
|
end;
|
|
|
|
Timer1.Enabled := true;
|
|
end;
|
|
|
|
procedure TDemoDM.Timer1Timer(Sender: TObject);
|
|
begin
|
|
Timer1.Enabled := False;
|
|
Datastore.CheckUpdate;
|
|
Timer1.Enabled := True;
|
|
end;
|
|
|
|
|
|
end.
|
|
|