Ö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 FilesCommon FilesSystemadomsjro.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.
__________________
SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.