ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Непонятки при работе с дятлом
9 сообщений из 9, страница 1 из 1
Непонятки при работе с дятлом
    #32648174
SEF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEF
Гость
Добрый день.

Использую Ya884
Есть простенькая прога, работающаа локально с базой.
При коннекте сообщение, что БД не найдена, хотя визуально видно, что она там есть.
Файлы gds32.dll,ib_util.dll и msvcr70.dll установлены в системной папке.
Причем происходит это на всех операционках (W98,Win2000/XP)...
Но в тоже время может на соседнем компе все заработать.

Подскажите, где и в чем я не прав?
Может, какие протоколы надо, или еще что?

С уважением. Владимир
...
Рейтинг: 0 / 0
13.08.2004, 10:51:59
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648198
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
А какая строка конекта ?
Best regards,
Dnico.
...
Рейтинг: 0 / 0
13.08.2004, 10:58:35
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648206
SEF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEF
Гость
var l : integer;
p,s : string;
try
p := ExtractFilePath(Application.ExeName);
l := length(trim(p));
s := copy(p,l,1);
if not (s = '\') then
p := p + '\VLPU.GDB'
else
p := p + 'VLPU.GDB';
if dm.db.Connected then
dm.db.Connected := false;
dm.db.DatabaseName := p;
dm.db.Connected := true;
dm.trRead.Active := true;
dm.trWrite.Active := true;
aTextSB.Execute;
except
showmessage('Невозможно найти файл ' +dm.db.DatabaseName);
application.Terminate;
end;
...
Рейтинг: 0 / 0
13.08.2004, 11:01:14
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648249
hvlad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hvlad
Участник
Элементарная задача, а сколько ошибок ;(

SEFtry
p := ExtractFilePath(Application.ExeName);
l := length(trim(p));
Зачем тут трим ???

SEFs := copy(p,l,1);
if not (s = '\') then
p := p + '\VLPU.GDB'
else
p := p + 'VLPU.GDB';
А copy для чего ??? Чем такое не устраивает :
Код: plaintext
1.
2.
if (p[l] <> '\') 
then p := p + '\VLPU.GDB'
else p := p + 'VLPU.GDB';

SEF if dm.db.Connected then
dm.db.Connected := false;
dm.db.DatabaseName := p;
dm.db.Connected := true;
dm.trRead.Active := true;
dm.trWrite.Active := true;
aTextSB.Execute;
except
showmessage('Невозможно найти файл ' +dm.db.DatabaseName);
application.Terminate;
end;А с чего ты взял, что исключение именно при коннекте ? Для начала посмотри на реальное сообщение об ошибке :
Код: plaintext
1.
except on E : Exception do
  showmessage(E.Message);
...
Рейтинг: 0 / 0
13.08.2004, 11:14:01
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648552
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
hvladА copy для чего ??? Чем такое не устраивает :
Код: plaintext
1.
2.
if (p[l] <> '\') 
then p := p + '\VLPU.GDB'
else p := p + 'VLPU.GDB';
Не, не круто. ;)
Можно ещё короче:
Код: plaintext
p := IncludeTrailingBackslash(p) + 'VLPU.GDB';
...
Рейтинг: 0 / 0
13.08.2004, 12:52:47
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648622
Лентяй
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лентяй
Участник
А можно еще круче:
Код: plaintext
DataBaseName := ExtractFilePath(Application.ExeName) + 'VLPU.GDB';
...
Рейтинг: 0 / 0
13.08.2004, 13:09:51
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648634
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
ЛентяйА можно еще круче:
Код: plaintext
DataBaseName := ExtractFilePath(Application.ExeName) + 'VLPU.GDB';
А ведь точно!
...
Рейтинг: 0 / 0
13.08.2004, 13:14:54
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648663
SEF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SEF
Гость
ЛентяйА можно еще круче:
Код: plaintext
DataBaseName := ExtractFilePath(Application.ExeName) + 'VLPU.GDB';


Только одно НО : некоторые редакции Win98 результат ExtractFilePath() возвращают с "\" на конце, а некоторы нет.
...
Рейтинг: 0 / 0
13.08.2004, 13:24:54
| Ответить | Цитировать | Написать  
Непонятки при работе с дятлом
    #32648692
Фотография Dnico
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dnico
Участник
SEF
Только одно НО : некоторые редакции Win98 результат ExtractFilePath() возвращают с "\" на конце, а некоторы нет.


DescriptionThe resulting string is the leftmost characters of FileName, up to
and including the colon or backslash that separates the path information from the
name and extension. The resulting string is empty if FileName contains no drive
and directory parts.

Best regards,
Dnico.
...
Рейтинг: 0 / 0
13.08.2004, 13:35:29
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Firebird, InterBase [игнор отключен] [закрыт для гостей] / Непонятки при работе с дятлом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=40&msg=32648198&tid=1578086]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 233ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 237ms
total:  575ms
созд. / загр.: 575ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]