Проблема с таблицами, или с приложением?

← →
ks13 (2004-12-23 12:32) [0]

Помогите разобраться. У меня получилась интересная ситуация:
Созданое приложение на моей машине, у меня запускается и работает нормально и правильно. При переносе на другую машину работать не хочет. В W2000 Advansed Server просто не запускается, в W98 при запуске выдаётся сообщение:
Программа TABEL вызвала ошибку eedfadeH в модуле <нет данных> по адресу 0000:00000000.
Регистры:
EAX=00000000 CS=0000 EIP=00000000 EFLGS=00000000
EBX=00000000 SS=0000 ESP=00000000 EBP=00000000
ECX=00000000 DS=0000 ESI=00000000 FS=0000
EDX=00000000 ES=0000 EDI=00000000 GS=0000
Байты по адресу CS:EIP:

Содержимое стека:
и ссылается на ошибку BDE ($2109)(cannot load IDAPI32.DLL)
пробовал при разных вариантах: и с установленым BDE и без него, хотя в программе предусмотрена работа с обеими вариантами...
Может кто встречался с подобным, подскажите.

← →
ЮЮ © (2004-12-23 12:38) [1]

>хотя в программе предусмотрена работа с обеими вариантами...

Уверен? Т.е. если на машине БДЕ не установлено, то ты не работаешь с БД и таблицами?

← →
ks13 (2004-12-23 16:34) [2]

нет, просто тогда я организовую следующий вариант
procedure TDataModule1.DataModuleCreate(Sender: TObject); var Reg: TRegistry; f1,f2,f3,f4,f5,f6,f7: file; begin try Reg:=Tregistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; if Reg.OpenKeyReadOnly("Software\Borland\Database Engine")=false then begin try AssignFile(f1,GetCurrentDir+"\BDE\"+"bantam.dll"); AssignFile(f2,GetCurrentDir+"\BDE\"+"blw32.dll"); AssignFile(f3,GetCurrentDir+"\BDE\"+"charset.cvb"); AssignFile(f4,GetCurrentDir+"\BDE\"+"idapi32.dll"); AssignFile(f5,GetCurrentDir+"\BDE\"+"idpdx32.dll"); AssignFile(f6,GetCurrentDir+"\BDE\"+"idr20009.dll"); AssignFile(f7,GetCurrentDir+"\BDE\"+"usa.btl"); Rename(f1,GetCurrentDir+"\bantam.dll"); Rename(f2,GetCurrentDir+"\blw32.dll"); Rename(f3,GetCurrentDir+"\charset.cvb"); Rename(f4,GetCurrentDir+"\idapi32.dll"); Rename(f5,GetCurrentDir+"\idpdx32.dll"); Rename(f6,GetCurrentDir+"\idr20009.dll"); Rename(f7,GetCurrentDir+"\usa.btl"); except end; end; Reg.CloseKey; Reg.Free; except end; try DBTabel.Connected:=false; DBTabel.DatabaseName:="tabel"; DBTabel.DriverName:="STANDARD"; DBTabel.Params.Clear; DBTabel.Params.Add("PATH="+GetCurrentDir+"\DATA"); DBTabel.Connected:=true;

← →
ks13 (2004-12-23 16:38) [3]

>к сообщению выше
если нет BDE то я записываю в корень програмы файлы необходимые для работы таблиц, которые до этого мирно хранятся в папочке BDE, а в конце убираю их обратно...

До чего только программисты не доходять, лишь бы не делать нормальную инсталяцию.

Проблема с таблицами, или с приложением? Найти похожие ветки