Hazırlayıp kullandığım projeyi setup hale getirmek istiyorum. çünkü başka bir yerdeki arkadaşlar da aynı projeyi kullanıyor ve konuyu pek bilmediklerinden bilgisayarlarında oluşan sorunlarda (formatlama gibi) projenin kurulumunda zorluk çekiyoruz. o yüzden setup haline getirip hem kendimi hemde onları sıkıntıdan kurtarmak istiyorum.
kullandığım veritabanı fb/ib, delphi7 ent.
konularda geçiyor database yolunu text dosyasından okutmak bölelikle hangi sürücüye koyacağı fark etmez text dosyasında sürücü adını değiştirmek yeterli diye fakat yaptığımda pek bulamadım, şunu buldum
function GETirBenimDatabasePathimi:String;
var MyList:TstringList;
begin
MyList :=TStringList.Create;
try
MyList.loadfromfile('ADTABASEPATHINITUTANDOSYA.xxx');
REsult:= mylist[1];
finally
MyList.Free;
end;
end;
yok bunu ini dosyasından okuyacaksan (ki bu daha kolay ) TINIFile WriteString
bu saatte üşenmeyip cevap yazdığın için teşekkürler ve arama kriterlerini muhakkak araştırıp deneyeceğim.
burada kodu nasıl yazacağımı ve nereye yazacağımı bilemedim function olarak belirtmişsin ve ben daha function yazmayı bilmediğimden takıldım. admin ustanın dediğini acaba afterconnection kısmına mı yazacağım diye düşünmüştüm ibdatabase nin eventinde
ustam verdiğin arama kriterlerini ve örnekleri inceledim fakat kafam karıştı desem olur heralde,
burada biliyorsunuz ki exe her sürücüde çalışıyor formları aktif hale getireceğinde bağlı olan tablonun yolunu bulamazsa açamıyor ve database bulunamadı şeklinde hata veriyor. Şöle düşündün (nacizane), formlarımda ibdataseti aktif hale getiren butonlarım var bu butonun clik yordamına öncelikle database yolunu text dosyasından okuyumasını ve daha sonra ibdataseti aktif hale getirmesini yazabilirmiyim.
text dosyasını kullanmak istiyorum nedeni ise program yeni kurulduğu zaman text dosyasından yolunu değiştirebilmek. text dosyasını manuel açıp buradaki sürücü harfini değiştirmek. kullanıcı için kolay olacak gibi geliyor bana ini dosyasında bu mümkünmü bilmiyorum.
tavsiyelerinizi uygulamaya ve öğrenmeye çalışacağım. Mikracu ustam acemiliğime ver. burada kafamın şarz ettiği kadarı ile program içinde geçen dizinden ayrı bi sürücüde kurulduğunda database erişilemedi hası verdiğinden dolayı bu verdiğin komutu formun oncreate olayına yazacağımı anlıyorum çünkü form açıldığında databasın yolunu bulamayacağından hata verecek hata vermemesi için de form oluşuturulurken text dosyasından database yolunu okumasını sağlamamız gerektiğini anlıyorum. doğrumu düşünüyorum ustam sizce
Merhaba Orc
son mesajınızdaki gibi çalışmak isterseniz formun oncreate olayında
önce text dosyayı okutun.(hangi vt kullandığınızı bilmiyorum ama)
texte verilen yolda database varmı baktırırsınız varsa login olursunuz yoksa aranan database (yada dosya) yolunun doğru olamdığını bildirir mesaj verip ya yenisini yaratırsınız yada yeni yol tanıtımı istersiniz.
Dosyadan okuttuğun databese adını asağıdaki gibi kontrol edersiniz.
if not fileexists(senindatabasein) then begin
showmessage('Aranılan Database yok.');
//** yeni database yaratabilirsin.
end else
begin
// ??Databese aç login ol
end;
kodu nereye yazdığın farketmez. sadece adı geçen text dosya programın exe sinin çalıştığı klasörde olsun yeter. ister oncreate ister butonun onclick eventine yaz kodu. bide text dosyanın içindeki data nın adresi doğru yazılmış olsun. ercere nin dediği gibi istersen dosya var mı yok mu kontrol et ona göre işlemleri ni yap.
ustalarım yardımlarınızdan dolayı teşekkür ederim.
asıl işimin beni yormasından dolayı fazla uğraşamadım, ilk cevapları aldığımda mikrocu ustamın verdiği öneriyi formun oncreate olayında yapmak istedim ama yine dosyayı bulamadığını belirterek prg çalıştırmadı, bu işlemi projenin view source sinde begin den önce yazmayı düşündüm vaz geçtim. ama şimdi şu satırları yazarken aklıma geldi heralde hatam şurda olabilir. ben bi formu açarken bu ana menu formu bunun oncreate kısmına tüm database ler için text ti oku dedim belki orada yanlışlık yapmışımdır bide şimdi formları ayrı ayrı açılırken deniycem
Programına bir splash form oluştur ve veritabanı bağlanma işini burada yaptır. hatta splash program açılmadan önce yaptıracağın başka işlemlerinde varsa formuna progressbar koyarsın ve işlemleri yaptırdıkca barı ilerletirsin... Konudan biraz koptu ama fikir olsun diyerek yazdım.
Ben eğer genelde bu işlemi kullanıcı adı ve şifresi sorduruyorsam o formda eğer şifre sordurmuyorsam splash formda veritabanı bağlantı işlemlerini hallediyorum..
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.HZ. MUHAMMED (S.A.)
bu işi beceremedim. projemin exe sinin çalıştığı yere txt dosyası oluşturup oraya vt nin yolunu tam yazıp kapatıyorum ve delphi tarafında formların oncreate olayına verilen kodları uyarlıyarak yazıyorum ve run ettiğimde I/O ......formların databasename sinde yazılı yolu gösteren ve dosyanın bulunamadığını belirten mesaj alıyorum.
formlarda ibdatabase, transaction ve ibdataset kullanıyorum ve form açıldığında ibdataset active oluyor kapandığında false oluyor du.
yani anlıyacağınız databasename sini txt den okutamadım. önceden databasename adresini okuyor ve deneme amaçlı projeyi başka sürücüye koyduğumdanda yolu bulamadığına dair hata veriyor. hani hata mesajında benim txt dosyasına yazdığımı bulamadığını belirtse neyse ama önceki yolu bulamadığını belirtioyor yani benim txt yi hiç kale almıyor.
aslında ayarlar diye bi form oluşturmak ve db oluşturmak iyi bi fikir ve uygulamak istiyorum ama buradan okutmayı bi türlü beceremiyorum. ibdatabase nin ismini verirken (yolunu), böyle bi uygulamada boş bırakıp kodla yolu almasını mı sağlamalıyız terledim haa
unit Unit2;
interface
uses
Windows, Forms, Classes, SysUtils, Dialogs, Controls, StdCtrls, IniFiles, Mask, JvToolEdit;
type
TForm_Ayarlar = class(TForm)
JvFilenameEdit1: TJvFilenameEdit;
Button_Kaydet: TButton;
Button_Oku: TButton;
Edit1: TEdit;
procedure Button_KaydetClick(Sender: TObject);
procedure Button_OkuClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Ini_Kaydet;
procedure Ini_Oku;
end;
var
Form_Ayarlar: TForm_Ayarlar;
IniFile: TiniFile;
IniName: string = 'Ayarlar.ini';
IniPath: string;
implementation
{$R *.dfm}
procedure TForm_Ayarlar.Ini_Kaydet;
begin
IniPath := ExtractFilePath(Application.Exename) + IniName;
//secilen dosya belkide yoktur bakalım varmı?
if fileexists(JvFilenameEdit1.FileName) then begin
try
IniFile := TIniFile.Create(IniPath);
IniFile.WriteString('DB_Ayarlar', 'DatabaseName', JvFilenameEdit1.FileName);
Caption := JvFilenameEdit1.FileName; //baslıkta göster
finally
IniFile.Free;
end; end
else
//dosya yok ise
ShowMessage('Database(dosya) Bulunamadı'
+ #13
+ 'Yol :' + JvFilenameEdit1.FileName
+ #13
+ 'Lütfen tekrar deneyin.');
end;
procedure TForm_Ayarlar.Ini_Oku;
begin
IniPath := ExtractFilePath(Application.Exename) + IniName;
try
IniFile := TIniFile.Create(IniPath);
//Edit1 de göster
Edit1.Clear;
Edit1.Text := IniFile.ReadString('DB_Ayarlar', 'DatabaseName', JvFilenameEdit1.FileName);
finally
IniFile.Free;
end;
end;
procedure TForm_Ayarlar.Button_OkuClick(Sender: TObject);
begin
Ini_Oku;
end;
procedure TForm_Ayarlar.Button_KaydetClick(Sender: TObject);
begin
Ini_Kaydet;
Ini_Oku;
end;
end.
..........
jv componenti yüklü olması gerekir (JvFilenameEdit1: TJvFilenameEdit)
bu component sart degil ama hali hazır da o vardı.
Umarım iş göröür sevgiler.
bakıyorumda seni baya zahmete sokmuşum, özür dileyerek ekliyorum teşekkürler.
burada jvtooledit olarak sanıyorum bi compenent bu bende yok bunun yerine normal bi edit olur zannediyorum. berdiğin örneği uygulayacağım çok ama çok teşekkür ederim.
yaptığımda pek bulamadım, şunu buldum
)
