IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
Ö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.