Проект PCAD.Ru
Главная / Форум / Объявления / Книги / Производство / Проектирование / Обратная связь

dbx-интерфейс. Работа с библиотеками

Оглавление форума | Открыть новую тему | Регистрация | Личные данные | Поиск | RSS

Sidorella Просмотров темы: 1735       18.11.2010 09:40 [Ответить]
Пишу программу, котороая работает с библиотечными файлами(извлекаю необходимые атрибуты), в проекте все работает, а конечный exeник нет, программа вылетает. Подскажите в чем может быть проблема. Пишу на vb6.0


Попробуйте  Бриг  [18.11.10 10:02]
локализовала место ошибки  Sidorella  [18.11.10 10:15]
Я не большой специалист, но все-таки...  Бриг  [18.11.10 10:18]
Я пишу на Delphi, тем не менее  DesignDbx  [22.11.10 09:32]

Попробуйте  Бриг 18.11.2010 10:02  [Вверх] [Ответить]
локализовать место шибки. Выводите сообщение, в идеале, через кажую строчку кода в загрузочной части программы. Тогда увидите где программа вылетает и можно будет более предметно обдумать, почему.

локализовала место ошибки  Sidorella 18.11.2010 10:15  [Вверх] [Ответить]
программа открывает 1ю библиотеку, получаю атрибуты всех компонентов, закрываю, а при переходе к следующей вылетает ошибка, 2я библиотека уже не открывается. Ошибка вылетает в exe-файле, а когда компилируется рабочий проект все рааботает

Я не большой специалист, но все-таки...  Бриг 18.11.2010 10:18  [Вверх] [Ответить]
Сначала выясните, на какой строке кода вылетает программа

Я пишу на Delphi, тем не менее  DesignDbx 22.11.2010 09:32  [Вверх] [Ответить]
У меня такие строчки и всё работает:
- открыть библиотеку
tLibrary := TOpenLibrary(DBX_LANGUAGE, DBX_VERSION, PChar(pathLib), tLibCont);
if tLibrary = DBX_OK then begin

- открыть компонент
tLibrary:=TOpenComponent (tLibCont,PChar(compType));
if tLibrary=DBX_OK then begin
- обработать
tLibrary:=TGetFirstCompAttribute(tLibCont,PChar(compType),atributLib);
while tLibrary=DBX_OK do begin
.....
tLibrary:=TGetNextCompAttribute (tLibCont,atributLib);
end {while};
- закрыть компонент
tLibrary:=TCloseComponent (tLibCont);

- закрыть библиотеку
tLibrary:= TCloseLibrary(tLibCont, PChar(pathLib));