Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема с IBScript [IB6.x]

Брат © (2005-07-14 16:33:00)
Добрый день!
Мне нужно в цикле создать несколько небольших баз InterBase. На каждую из них имеется свой скрипт. Загружаю в цикле поочередно тексты скриптов в IBScript. После первого прохода цикла первая база создается, но уже при втором выскакивает "access violation"?

подскажите что делать?

For i:=1 to n do
begin
IBScript.Clear;
IBscript.LoadFromFile('e:\'+IntToStr(i)+'.txt');
IBScript.ExecuteScript;
end;

Johnmen (2005-07-15 09:47:00) [1]
>Плохиш © (14.07.05 18:44) [9]
>Что скажет ExecuteScript, если откроют не существующий файл?

Несуществующий не "откроют". И дело до ExecuteScript скорее всего не дойдёт...

Плохиш (2005-07-14 18:44:00) [2]

> Johnmen © (14.07.05 18:34) [8]
> Ещё хорошо бы увидеть тельце скрипта, экзекуция которого
> приводит к АВ

Что скажет ExecuteScript, если откроют не существующий файл?

Johnmen (2005-07-14 18:34:00) [3]
Ещё хорошо бы увидеть тельце скрипта, экзекуция которого приводит к АВ.

Плохиш (2005-07-14 18:26:00) [4]

> Брат (14.07.05 18:16) [5]
> Вот оригинал (на С++).

Вообше-то ты форумом ошибся.

Val (2005-07-14 18:21:00) [5]
нет тут цикла.

Брат (2005-07-14 18:16:00) [6]
Хорошо :-)
Вот оригинал (на С++).
При первом цикле проходит нормально все и первая база создается:

DM->IBScript->Script->Clear();
if ( BranchId == 0 )
DM->IBScript->Script->LoadFromFile(ExtractFileDir(Application->ExeName) + "\\CrtDB_F.sql");
else
DM->IBScript->Script->LoadFromFile(ExtractFileDir(Application->ExeName) + "\\CrtDB_D.sql");
DM->IBScript->ExecuteScript();

Брат (2005-07-14 18:07:00) [7]
^

Johnmen (2005-07-14 18:06:00) [8]
Что-то ты темнишь.
Нет у TIBScript таких методов Clear и тем более LoadFromFile.
Давай оригинальный корректный код.

Брат (2005-07-14 16:49:00) [9]
на IBScript.ExecuteScript

Johnmen (2005-07-14 16:41:00) [10]
На какой строке возникает AV ?

Наверх

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