Проблема с IBScript

← →
Брат (2005-07-14 16:33) [0]

Добрый день!
Мне нужно в цикле создать несколько небольших баз 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-14 16:41) [1]

На какой строке возникает AV ?

← →
Брат (2005-07-14 16:49) [2]

на IBScript.ExecuteScript

← →
Johnmen © (2005-07-14 18:06) [3]

Что-то ты темнишь.
Нет у TIBScript таких методов Clear и тем более LoadFromFile.
Давай оригинальный корректный код.

← →
Брат (2005-07-14 18:07) [4]

← →
Брат (2005-07-14 18:16) [5]

Хорошо :-)
Вот оригинал (на С++).
При первом цикле проходит нормально все и первая база создается:

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();

← →
Val © (2005-07-14 18:21) [6]

нет тут цикла.

← →
Плохиш © (2005-07-14 18:26) [7]

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

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

Ещё хорошо бы увидеть тельце скрипта, экзекуция которого приводит к АВ.

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

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

>Плохиш © (14.07.05 18:44) [9]
>Что скажет ExecuteScript, если откроют не существующий файл?

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

Проблема с IBScript Найти похожие ветки