Вниз
Скачать: CL | DM;

Проблема с 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 ©   (2005-07-14 18:34) [8]

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


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


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

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


← →
Johnmen ©   (2005-07-15 09:47) [10]

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c
14-1122538875
sapsi
2005-07-28 12:21
2005.08.28
Продвижение программного продукта


3-1121412047
msguns
2005-07-15 11:20
2005.08.28
Запрос на объединение строк


14-1123231868
bizonwar
2005-08-05 12:51
2005.08.28
MSScriptControl


11-1106228060
Bil Bal Dur
2005-01-20 16:34
2005.08.28
InputBox или InoutQuery в KOL


1-1123482790
rolex
2005-08-08 10:33
2005.08.28
Как в TreeView загрузить дерево папок?




   Наверх