Гость
Войти | Профиль | Очистить
Действия ...
Форумы / IBExpert [игнор отключен] [закрыт для гостей] / IBEScript.dll ругается на fbclient.dll / 6 сообщений из 6, страница 1 из 1
14.04.2015, 14:02
    #38935911
aidynchik
aidynchik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
ДД! Подскажите в чем проблема, я не могу понять. Главное весь день работало, и вдруг под конец дня перестало.
Я понимаю что проблема с библиотекой, но в чем?

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:04
    #38935913
aidynchik
aidynchik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
Сорри за подобный обрезать, а отредактировать сообщение уже не могу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2015, 19:06
    #38936398
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
aidynchik,

на будущее - вопросы по IBE, в т.ч.
по IBEScript лучше задавать в соотв. подразделе:
http://sql.ru/forum/ibexpert
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2015, 05:45
    #38936647
IBExpert
IBExpert
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
Проблема в том, что IBEScript.dll не может найти/загрузить указанную клиентскую dll. Или ее там нет, или разрядность неправильная. Собственно, в сообщении это и сказано.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.04.2015, 05:53
    #38936648
aidynchik
aidynchik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
не знаю, что это было, но поменял строку
Код: 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, 08:54
    #38936719
Шавлюк Евгений
Шавлюк Евгений
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IBEScript.dll ругается на fbclient.dll
aidynchik,

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

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


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