[ FranjoZG @ 24.01.2016. 18:06 ] @
Koristim TFDScript kod kreiranja baze za novoinstalirani program.
Kreiranje se odrati OK.
SQL-ovi su u file-u: Baza.sql

Htio bih povezati ProgressBar sa izvršavanjem SQL scripti. Na web-u nisam našao ništa što bi pomoglo.

pokušao sam:
Code:

FDScript1.ExecuteFile('Baza.sql');

program kreira sve objekte u bazi...


Dodao sam proceduru OnProgress
- variable:
Code:
 
FDScript1.Position.X;
FDScript1.Position.y;

su uvijek 0.

Pokušao sam razbucati sql u više scritpi i dodati ih posebno u
FDScript1.SQLScripts
nije pomoglo. Ovo je kod:
Code:

   tl.LoadFromFile(ExtractFilePath(Application.ExeName) + 'baza.sql');
   ts := FDScript1.SQLScripts.Add;
   while i < tl.Count do begin
      if tl.Strings[i] = '/*TAG*/' then begin
         inc(i);
         with FDScript1.SQLScripts do begin
            with Add do begin
               inc(uks);
               Name :=  'script' + uks.ToString;
               while (i < tl.Count) and (tl.Strings[i] <> '/*TAG*/') do begin
                  sql.Add(tl.Strings[i]);
                  inc(i);
               end;
            end;
         end;
      end else Inc(i);
   end;
   tl.Free;
   ts.Name := 'root';
   for i := 1 to uks do begin
      ts.SQL.Add('@script' + i.ToString);
   end;


Ima tko ideju kako:
1. dobiti ukupan broj scripti koje će se izvršiti (create table, create index, ....)?
2. kako u OnProgress dobiti trenutno aktivni index skripte koji se izvršava?

[ captPicard @ 24.01.2016. 21:51 ] @
A da ideš po starinski, brojiš linije u fajlu? :-D
[ FranjoZG @ 24.01.2016. 22:06 ] @
Ma riješio sam to, na drugi način: ne koristim script već updateqry... onda mogu sve i progress bar i jednu po jednu komadnu (mislim: 1 komada je: kreiranje proc ili tabice ili indexa itd).

Volio bih skužiti ovo sa striptom. Na web-u skoro pa ništa...

Piše da bi se positon trebao povečati nakon izvršenja, ali meni se to dogodi samo prvi put, nakon toga stoji na istom.
[ FranjoZG @ 25.01.2016. 10:38 ] @
E kad bi netko imao primjer execute scripte iz file-a, s progressom ...
[ Rapaic Rajko @ 26.01.2016. 08:02 ] @
Nikad nisam koristio niti sam cuo za TFDScript, medjutim...

Ne znam koju verziju TFDScript-a koristis, odnosno otkud ti ono Position.X i Position.Y u event-u OnProgress. Prvi google 'hitac' mi je ponudio sledeci link http://docwiki.embarcadero.com...mp.Script.TFDScript.OnProgress . Tu lepo pise sta i kako citati (TotalJobDone, TotalJobSize, TotalPct10Done).

Pozz