gmn klo mengakalinya pake metode ShellExecute/WinExec untuk memanggil utiliti gbak, semisal :
code : pascal procedure TForm1.btnCompactClick; var dbname: string; begin //matiin koneksi, karena saya ga pernah pake FireBird saya berasumsi ini ga jauh beda dgn ado NamaConnection.Close; //ini nama database dbname := 'mydatabase.fdb'; //ekstensi FB itu apa ya? mungkin *.fdb? //test pake WinExec WinExec (PChar ('gbak.exe dbname',..,... ); //weleh lupa apa seterusnya, cek aja di help end;
btw apakah gbak itu aplikasi command line? cara ini bisa sukses klo gbak itu bisa dipanggil via command line dan bisa bekerja otomatis dgn memberi parameter pada aplikasinya |