Öncelikle ImportTypeLibrary den
Microsoft Jet and Replication Objects 2.6 Library, Version 2.6,
kütüphanesini projenize dahil etmeniz yada install yaparak component palete
yerleştirmeniz gerekir.Varsayılan ayarlarla kurulursa ActiveX sekmesine gelir.
procedure Tfrmana.Button1Click(Sender: TObject);
var
dbSrc: WideString; //kaynak yolu
dbDest: WideString; //hedef yolu
dbyol: WideString; //exe yolu
Je: TJetEngine;
const
//bu da dizi cümlesi
SProvider =
‘Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database
Password=Passwordunuzuyazin;Data Source=’;
begin
datmodul.connection1.Connected := False;
dbyol := extractfilepath(application.ExeName); //exe yolu
dbSrc := SProvider + dbyol + ‘Data.mdb’; //sıkışacak dosya
dbDest := SProvider + dbyol + ‘compData.mdb’;
//sıkıştırılmış dosyanın alacağı ad ve yer
if FileExists(dbyol + ‘compData.mdb’) then //eğer aynısı varsa
begin
DeleteFile(dbyol + ‘compData.mdb’); //önce sil
end;
Je := TJetEngine.Create(Self);
try
JE.CompactDatabase(dbSrc, dbDest); //sonrada sıkıştır
//önce eski şişmiş dosyaları sil
DeleteFile(dbyol + ‘Data.mdb’); //önce sil
//şimdide adlarını değiştir.
RenameFile(dbyol + ‘compData.mdb’, dbyol + ‘Data.mdb’);
datmodul.connection1.Connected := true;
finally
JE.Free;
end;
end
Bu kütüphane C:\Program Files\Common Files\System\ado\msjro.dll
dosyasındadır.Listeden silinmiş olması önemli değil.Tekrar aşağıdaki adımları
tekrar ederek ekleyebilirsiniz.
—Project-Import Type Lİbrary
—Add Butonuna Tıklayıp açılan pencereden yukarıda yolunu yazdığım msjro.dll
dosyasını ekleyiniz.Listeye eklenecektir.
—Sonra bu kütüphane seçili iken Install butonunu tıklayınız.
—Açılan pencerede IntoNewPackage sekmesini tıklayın.
—Sonra Browse düğmesini tıklayarak oluşacak componentin dpk dosyasınıda bir
isim vererek kaydedelim.Bir daha kurmak istediğimizde direk bu package
dosyasından kurabiliriz.
—Description kısmı opsiyoneldir.İsterseniz paketinizle ilgili bir açıklama
yazabilirsiniz.
—Sonra açılan Confirm başlıklı pencerede BPL dosyasının oluşturularak
komponentin install edilip edilmeyeceği sorusuna Yes dedikten sonra gidip
ActiveX sekmesinde ilgili komponentlerin geldiğini görebilirsiniz.
