| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ks13 ©   (2004-12-23 12:32:00) 

Помогите разобраться. У меня получилась интересная ситуация:
Созданое приложение на моей машине, у меня запускается и работает нормально и правильно. При переносе на другую машину работать не хочет. В 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 и без него, хотя в программе предусмотрена работа с обеими вариантами...
Может кто встречался с подобным, подскажите.

---

Anatoly Podgoretsky   (2004-12-23 18:38:00) [1]

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

---

ks13   (2004-12-23 16:38:00) [2]

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

---

ks13   (2004-12-23 16:34:00) [3]

нет, просто тогда я организовую следующий вариант
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;

---

ЮЮ   (2004-12-23 12:38:00) [4]

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

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

---

Наверх