putanja prema bazi iz registrija

Odgovori Nova tema

2 odgovora
2.951 pregleda

putanja prema bazi iz registrija 22.05.2008. u 13:28 · pre 224 meseca #1

Da li je izvodljivo i na koji nacin da kreiram relativnu putanju prema IB bazi (npr. baza.gdb) tako sto ce se pri pokretanju programa iscitavati neki .ini fajl ili putanja iz registrya?

Kako da oznacim da mi treba direktorijum u kom je instaliran program?

U nekom HELPu sam pronasao sledeci kod, ali mi treba objasnjenje:

Code:

uses
Registry;
procedure TForm1.FormCreate (Sender:TObject);
var
  Reg:=TRegistry.Create;
  try
   Reg.RootKey:=HKEY_LOCAL_MACHINE;
   IBDatabase1.DatabaseName:=Reg.ReadString ('Rootdir')+\baza.gdb;
  finally
   Reg.Free;
  end;
   Baza.DataSet.Open;
end;

i zeleo sam da pitam sta tacno radi i na koji nacin funkcionise

ExtractRelativePath

Hvala

Re: putanja prema bazi iz registrija 22.05.2008. u 15:48 · pre 224 meseca #2

Ako ti se aplikacija zove recimo: Project1.exe napravis fajl Project1.ini. U njemu recimo:

[DATABASE]
path=c:\baza\baza.gdb

U aplikaciji napravis

Code:

procedure getIniFile();
var
  iniFile:TiniFile
  databasePath:string;
begin
  iniFile:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
  databasePath:=iniFile.ReadString('DATABASE','path','');
  IBDatabase1.DatabaseName:=databasePath;
end;

Inace Delphi ima odlican help, tako da ces lako naci sta radi ExtractRelativePath (mada je i sam prevod na srpski veoma jasan)

Potpis

ERROR974

Re: putanja prema bazi iz registrija 22.05.2008. u 16:02 · pre 224 meseca #3

Gdje mogu naci taj prevod na srpskom?

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme