Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

putanja prema bazi

[es] :: Pascal / Delphi / Kylix :: putanja prema bazi

[ Pregleda: 2109 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

prginfo
NS

Član broj: 174814
Poruke: 133
*.ADSL.neobee.net.



+1 Profil

icon putanja prema bazi22.07.2008. u 14:20 - pre 190 meseci
Koristim Delphi 7 i IB. Zelim da napravim da se pri pokretanju programa kreira .ini fajl, u njega upisuje putanja do baze koju koristi .exe i da se potom taj podatak izcita i dodeli parametru DatabaseName:

kod koji sam ukucao je sledeci:

procedure Tforma1.FormCreate(Sender: TObject);
var
myINI : TINIFile;
putanjadb:string;
putanja:String;
begin
myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'db.ini');
myINI.WriteString('BAZA', 'putanjadb',':'+ ExtractFilePath(Application.EXEName) + 'PROBA.GDB');
myINI.Free;
putanja:=myINI.ReadString('BAZA','putanjadb','');
baza.DatabaseName:=putanja;
end;

.ini fajl uspesno kreira, medjutim, prijavljuje mi sledecu gresku:
Access violation at address 00B57918. Write of address 00567F31

Debagovanjem sam utvrdio da se to desi u momentu kada bazi zelim da prosledim baza.DatabaseName:=putanja;

Gde gresim?

Hvala
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: putanja prema bazi22.07.2008. u 18:52 - pre 190 meseci
> .ini fajl uspesno kreira, medjutim, prijavljuje mi sledecu gresku:
> Access violation at address 00B57918. Write of address 00567F31
> myINI.Free;
> putanja:=myINI.ReadString('BAZA','putanjadb','');

Access Violation obično označava korišćenje memorije nad kojom se nema prava (memorija je oslobođena), ti u kodu imaš najmanje jednu takvu grešku.
Prvo uništavaš myIni objekat i u narednom redu ga koristiš, objekat ne smeš uništiti sve dok se koristi.
 
Odgovor na temu

prginfo
NS

Član broj: 174814
Poruke: 133
*.ADSL.neobee.net.



+1 Profil

icon Re: putanja prema bazi23.07.2008. u 12:28 - pre 190 meseci
Promenio sam deo koda myINI.Free.

Sada mi puca (sa slicnom greskom, samo sto kaze da je greska u modulu program.exe) kada zelim da dodelim putanju bazi.

putanja:=myINI.ReadString('BAZA','putanjadb',''); -->vrednost je prosledjena promenljivoj putanja
baza.DatabaseName:=putanja; -->program pravi break

Kuda dalje?
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
79.101.85.*



Profil

icon Re: putanja prema bazi23.07.2008. u 12:53 - pre 190 meseci
Code:
putanja:=myINI.ReadString('BAZA','putanjadb','');
baza.DatabaseName:=putanja;


Razmisli o ovom delu koda!?! Odnosno, šta si prethodno odradio sa myINI...
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

prginfo
NS

Član broj: 174814
Poruke: 133
*.ADSL.neobee.net.



+1 Profil

icon Re: putanja prema bazi23.07.2008. u 13:08 - pre 190 meseci
Kod sada izgleda ovako:

putanja:=myINI.ReadString('BAZA','putanjadb','');
baza.DatabaseName:=putanja;
myINI.Free;

Znaci, myINI.Free sam prebacio posle dodeljivanja i sada mi pravi problem kada zelim da daodelim bazi putanju.

 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
79.101.85.*



Profil

icon Re: putanja prema bazi23.07.2008. u 13:33 - pre 190 meseci
Koji exception?
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

prginfo
NS

Član broj: 174814
Poruke: 133
*.ADSL.neobee.net.



+1 Profil

icon Re: putanja prema bazi23.07.2008. u 13:46 - pre 190 meseci
Project program.exe raissed exception class EAccessViolation with message 'Access violation at address 0056831F in module 'program.exe'. Read of address 00000058'. Process stopped. Use Step or Run to continue.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: putanja prema bazi23.07.2008. u 14:35 - pre 190 meseci
I dalje verovatno koristiš objekte posle uništavanja ili pre kreiranja, pokaži kod i kaži gde nastaje greška.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: putanja prema bazi

[ Pregleda: 2109 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.