1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
program TestDBindexer;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, sqldb, dbIndexer, ibconnection, fbindexdb, fpindexer;
{$R *.res}
Function SetupDB : TCustomIndexDB;
Var
IB: TFBIndexDB;
begin
IB := TFBIndexDB.Create(nil);
try
IB.DatabasePath := Paramstr(2);
IB.UserName := 'username';
IB.Password := 'secret';
if not FileExists(IB.DatabasePath) then
IB.CreateDB
else
begin
IB.Connect;
IB.CreateIndexerTables;
end;
except
FreeAndNil(IB);
Raise;
end;
Result:=IB;
end;
Var
DBI : TDBIndexer;
Start : TDateTime;
begin
If ParamCount<>2 then
begin
Writeln('Usage ',ExtractFileName(ParamStr(0)),' dbpath indexdbpath');
Halt(1);
end;
DBI:=TIBIndexer.Create(Nil);
try
DBI.IndexDB:=SetupDB;
try
DBI.Database:=TIBConnection.Create(DBI);
DBI.Database.Transaction:=TSQLTransaction.Create(DBI);
DBI.Database.DatabaseName:=ParamStr(1);
DBI.Database.UserName:='username';
DBI.Database.Password:='SysteemD';
DBI.Database.Connected:=True;
DBI.SkipTables.add('AANWEZIGHEIDSREGISTER');
DBI.SkipTables.add('EDISONZENDING');
Start:=Now;
DBI.IndexDatabase;
Writeln('Finished : ',FormatDateTime('hh:nn:ss',Now-Start));
finally
DBI.IndexDB.Free;
end;
finally
DBI.Free;
end;
end.
|
