ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / IBExpert [игнор отключен] [закрыт для гостей] / IBEScript.dll ругается на fbclient.dll
6 сообщений из 6, страница 1 из 1
IBEScript.dll ругается на fbclient.dll
    #38935911
aidynchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aidynchik
Участник
ДД! Подскажите в чем проблема, я не могу понять. Главное весь день работало, и вдруг под конец дня перестало.
Я понимаю что проблема с библиотекой, но в чем?

Firebird стоит 2.5, 32-разрядный, базу беру созданную тут же, Винда 32-разрядная, FBclient.dll, скопировал в папку с екзешником тот, который поставился с Firebird. На что программа ругается? IBEScript скачал с этого форума.
Вот код, который я использую.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
procedure TForm1.Button2Click(Sender: TObject);
var
  Hndl : THandle;
  ESP : TExecuteScriptProc;
  s : string;
  Res : integer;
  CP : TConnectDBProc;
  ss : pchar;
begin
  ErrCount := 0;
  StmtCount := 0;
  mLog.Lines.Clear;
  s := mScript.Text;
  ss := PChar(mScript.Text);
  OpenDialog.Execute;
  if Trim(s) = '' then
  begin
    ShowMessage('Nothing to do!');
    Exit;
  end;
  try
    Hndl := LoadLibrary(PChar('IBEScript.dll'));
    if (Hndl > HINSTANCE_ERROR) then begin
      ESP := GetProcAddress(Hndl, 'ExecScriptText');
      CP := GetProcAddress(Hndl, 'Connect');
      if (@ESP <> nil) and (@CP <> nil) then begin
        Pages.ActivePage := tsOutput;
        Res := CP(PChar('db_name=localhost:'+OpenDialog.FileName+'; password=masterkey; user_name=SYSDBA;'
              +
                       'lc_ctype=win1251; sql_role_name=ADMIN; sql_dialect=3; ' +
                       'clientlib=" ' + ExtractFilePath(Application.exename) + 'fbclient.dll"'), @CEH);
        if Res = 0 then
         ESP(ss, @HandleError, @BeforeExec, @AfterExec);
      end;
    end;
    Showmessage('&#211;&#241;&#239;&#229;&#248;&#237;&#238;');
  finally
    if Hndl > HINSTANCE_ERROR then
      FreeLibrary(Hndl);
  end;
end;
...
Рейтинг: 0 / 0
14.04.2015, 14:02
| Ответить | Цитировать | Написать  
IBEScript.dll ругается на fbclient.dll
    #38935913
aidynchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aidynchik
Участник
Сорри за подобный обрезать, а отредактировать сообщение уже не могу
...
Рейтинг: 0 / 0
14.04.2015, 14:04
| Ответить | Цитировать | Написать  
IBEScript.dll ругается на fbclient.dll
    #38936398
Гаджимурадов Рустам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гаджимурадов Рустам
Участник
aidynchik,

на будущее - вопросы по IBE, в т.ч.
по IBEScript лучше задавать в соотв. подразделе:
http://sql.ru/forum/ibexpert
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
14.04.2015, 19:06
| Ответить | Цитировать | Написать  
IBEScript.dll ругается на fbclient.dll
    #38936647
IBExpert
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBExpert
Участник
Проблема в том, что IBEScript.dll не может найти/загрузить указанную клиентскую dll. Или ее там нет, или разрядность неправильная. Собственно, в сообщении это и сказано.
...
Рейтинг: 0 / 0
15.04.2015, 05:45
| Ответить | Цитировать | Написать  
IBEScript.dll ругается на fbclient.dll
    #38936648
aidynchik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aidynchik
Участник
не знаю, что это было, но поменял строку
Код: pascal
1.
2.
3.
4.
Res := CP(PChar('db_name=localhost:'+OpenDialog.FileName+'; password=masterkey; user_name=SYSDBA;'
              +
                       'lc_ctype=win1251; sql_role_name=ADMIN; sql_dialect=3; ' +
                       'clientlib=" ' + ExtractFilePath(Application.exename) + 'fbclient.dll"'), @CEH);



на
Код: pascal
1.
2.
3.
4.
Res := CP(PChar('db_name=localhost:'+OpenDialog.FileName+'; password=masterkey; user_name=SYSDBA;'
              +
                       'lc_ctype=win1251; sql_role_name=ADMIN; sql_dialect=3; ' +
                       'clientlib=fbclient.dll'), @CEH);



и все заработало... хотя файл fbclient.dl один и тот же по идее
...
Рейтинг: 0 / 0
15.04.2015, 05:53
| Ответить | Цитировать | Написать  
IBEScript.dll ругается на fbclient.dll
    #38936719
Шавлюк Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шавлюк Евгений
Участник
aidynchik,

В первом варианте лишний пробел после кавычки 'clientlib=" '

Модератор: Тема перенесена из форума "Firebird, InterBase".
...
Рейтинг: 0 / 0
15.04.2015, 08:54
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / IBExpert [игнор отключен] [закрыт для гостей] / IBEScript.dll ругается на fbclient.dll
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=42&fpage=29&tid=1599537]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 309ms
total:  449ms
созд. / загр.: 449ms
x
x
Закрыть


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