registrye veritabanı yolu kaydı ve regsitry den kayıt okuma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
registrye veritabanı yolu kaydı ve regsitry den kayıt okuma
Merhaba arkadaşlar kolay gelsin. ben veritabanını ayrı bir sunucuda barındırıp programı birden fazla bilgisayarda kullanmak istiyorum ama veritabanının yolunu windowsun kayıt defterine kaydetmek istiyorum. tabi bunu kurulum esnasında kullanıcı ip numarası olarak girecek. ve program başlarken de bunu kayıt defterinden okuyacak. bunu nasıl yapabilirim. ya da böyle bir şey mümkün mü
şimdiden teşekkür ederim. kolay gelsin iyi çalışmalar.
şimdiden teşekkür ederim. kolay gelsin iyi çalışmalar.
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
- proteknikblg
- Üye
- Mesajlar: 35
- Kayıt: 27 Nis 2006 08:39
- Konum: Sivas
- İletişim:
slm
ben aşağıdaki şekilde bu işlemi yaptırıyorum. şimdilik sorunsuz çalışıyor.
bitbtn1 click te registriye bilgiler giriliyor
program çalıştırıldığındada registry deki bilgiler alınıyor.
ben aşağıdaki şekilde bu işlemi yaptırıyorum. şimdilik sorunsuz çalışıyor.
bitbtn1 click te registriye bilgiler giriliyor
Kod: Tümünü seç
procedure TForm1.BitBtn1Click(Sender: TObject);
var kyt:tregistry;
begin
kyt:=tregistry.Create;
kyt.RootKey:=HKEY_LOCAL_MACHINE;
kyt.OpenKey('Software\proteknik\takip',True);
if not kyt.KeyExists('run') then kyt.CreateKey('run');
kyt.WriteString('run',edit1.Text);
if not kyt.KeyExists('vt') then kyt.CreateKey('vt');
kyt.WriteString('vt',edit2.Text);
if not kyt.KeyExists('rpt') then kyt.CreateKey('rpt');
kyt.WriteString('rpt',edit3.Text);
kyt.CloseKey;
kyt.Free;
application.MessageBox('Kayıt tamamlandı','Pro-Teknik',Mb_ok)
end;
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject);
var kyt:tregistry;
begin
kyt:=tregistry.Create;
kyt.RootKey:=HKEY_LOCAL_MACHINE;
kyt.OpenKey('Software\proteknik\takip',True);
if not kyt.KeyExists('run') then edit1.Text:='' else
edit1.Text:= kyt.readString('run');
if not kyt.KeyExists('vt') then edit2.Text:='' else
edit2.Text:= kyt.readString('vt');
if not kyt.KeyExists('rpt') then edit3.Text:='' else
edit3.Text:= kyt.readString('rpt');
kyt.CloseKey;
kyt.Free;
end;
Kod: Tümünü seç
function TFrmSrv.register_yaz(yol :string;tip: string;deger:variant):boolean;
var
reg1 : TRegistry;
begin
reg1 := Tregistry.create;
Reg1.RootKey:=HKEY_LOCAL_MACHINE;
Reg1.OpenKey(yol,True);
reg1.WriteString(tip,deger);
result := true;
end;
function TFrmSrv.register_oku(yol:string;deger:string) :string;
var
reg1 : TRegistry;
begin
reg1 := Tregistry.create;
Reg1.RootKey:=HKEY_LOCAL_MACHINE;
Reg1.OpenKey(yol,True);
result := reg1.readString(deger);
end;
Kullanım,
Kod: Tümünü seç
FrmSrv.register_yaz('Software\Sayim','pass',EdPas.text);
FrmSrv.register_yaz('Software\Sayim','user',EdUser.text);
Kod: Tümünü seç
EdUser.Text:=register_oku('Software\Sayim','user');
Cmbsrv.Text:=register_oku('Software\Sayim','Srv');
Bir kelimenin anlamını öğretsen bile yeter..
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
üstadlar teşekkür ederim. ellerinize sağlık. bilgiler süper. yalnız şöyle bir problem yaşadım. ben bu bilgilerin kontrollerini yani okuma işini program başlatılırken yapıcam. ama tregistry değişkeni tanımladığım zaman problem çıkartıyor. bunu nasıl halledebilirim?
kolay gelsin iyi çalışmalar.
kolay gelsin iyi çalışmalar.
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
o sorunu buldum. Uses kısmına Registry i eklemediğimden kaynaklanıyormuş ama yeni bir sorun daha var.
kyt.RootKey:=HKEY_LOCAL_MACHINE;
tanımlamasında
[Error] kapalidevre.dpr(25): Undeclared identifier: 'HKEY_LOCAL_MACHINE'
hatasını alıyorum.
bu arada ben bu işi herhangib bir unit içerisinde değil direkt olarak proje kaynak kodunda yapıyorum. buradan kaynaklanan bir sorun olduğunu düşünüyorsanız main form unitinde de işlemi yaptırabilirim. ancak bu işlem veritabanı bilgilerinin alınması esnasında splash formun çıkması ve o esnada yapılan işlerden kullanıcılarn haberdar edilmesi için.
ilgi ve alakadan ötürü teşekkür ederim. iyi seyirler
kyt.RootKey:=HKEY_LOCAL_MACHINE;
tanımlamasında
[Error] kapalidevre.dpr(25): Undeclared identifier: 'HKEY_LOCAL_MACHINE'
hatasını alıyorum.
bu arada ben bu işi herhangib bir unit içerisinde değil direkt olarak proje kaynak kodunda yapıyorum. buradan kaynaklanan bir sorun olduğunu düşünüyorsanız main form unitinde de işlemi yaptırabilirim. ancak bu işlem veritabanı bilgilerinin alınması esnasında splash formun çıkması ve o esnada yapılan işlerden kullanıcılarn haberdar edilmesi için.
ilgi ve alakadan ötürü teşekkür ederim. iyi seyirler
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
hangi fonksiyonu kullandınız bilmiyorum ama.
yani create etmeden atama yapıyo olabilirsin.
Kod: Tümünü seç
var
kyt : TRegistry;
begin
kyt := Tregistry.create;
kyt.RootKey:=HKEY_LOCAL_MACHINE;
Bir kelimenin anlamını öğretsen bile yeter..
- sarp_halit
- Üye
- Mesajlar: 241
- Kayıt: 17 Ara 2003 04:30
- Konum: Cennet Fethiye
- İletişim:
tamam onu hallettim.
şimdi sizin bana verdiğiniz örneklerde sürekli olarak anahtar yazdırma ve anahtar içerisindeki dize değerini okuma falan var. eğer anahtarın içindeki dize değeri yoksa, hani şu readstring ile içeriğini okuduğumuz dize değerleri, bunun kontrolünü nasıl yaparız.
anahtar için keyexist kullandığımız gibi bir değer var mı?
hocam ini oluşturmak da güzel bir fikir ama ilk aklıma gelen bu oldu ve biraz da inat meselesine dönüştü o yüzden yani.
ama fikriniz için teşekkür ederim.
şimdi sizin bana verdiğiniz örneklerde sürekli olarak anahtar yazdırma ve anahtar içerisindeki dize değerini okuma falan var. eğer anahtarın içindeki dize değeri yoksa, hani şu readstring ile içeriğini okuduğumuz dize değerleri, bunun kontrolünü nasıl yaparız.
anahtar için keyexist kullandığımız gibi bir değer var mı?
hocam ini oluşturmak da güzel bir fikir ama ilk aklıma gelen bu oldu ve biraz da inat meselesine dönüştü o yüzden yani.
ama fikriniz için teşekkür ederim.
Fethiye den herkese sevgiler ...
X))@:>
X))@:>
Değer yoksa boş döner;
Kontrolünü sağlayabilirsiniz.
Kod: Tümünü seç
if register_oku('Software\Sayim','user') = '' then
.......
Bir kelimenin anlamını öğretsen bile yeter..