Re: IBEScript.dll

[WildSery]

On Thu, 08 Feb 2007 09:58:09 +0300, Oleg Prosvetov [EMAIL PROTECTED] wrote:
 Нашел сам:

Достаточно было параметр коннекта написать.
А так кусок кода бесполезен. И вообще, где дисконнект? Добиваемся, чтоб само 
сдохло?

-- 
Сергей Смирнов.

Re: IBEScript.dll

[Slava Ekimov]

OP Скачал отсюда http://www.ibexpert.com/rus/ сабж и решил попробовать 
накатывать скрипты этой

OP DLL-кой.
OP Когда накатываю скрипт в логе:
OP Connecting to: 'C:\BASE\TEST.FDB'... using gds32.dll
OP Как заставить использовать fbclient.dll, который лежит рядом с прогой ?

Почитать документацию?
Обратиться на форум IBExpert?
Переименовать файл? 

Re: IBEScript.dll

[Oleg Prosvetov]

Нашел сам:
procedure TForm1.Button2Click(Sender: TObject);
var
  Hndl : THandle;
  ESP : TExecuteScriptProc;
  CP : TConnectDBProc;
  s : string;
  Res : integer;
begin
  ErrCount := 0;
  StmtCount := 0;
  mLog.Lines.Clear;
  s := mScript.Text;
  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:c:\empty.fdb; password=masterkey; 
user_name=SYSDBA;' 

+
'lc_ctype=win1251; sql_role_name=ADMIN; sql_dialect=3;' 
+
'clientlib=c:\program 
files\firebird\bin\fbclient.dll'), @CEH);
if Res = 0 then
  ESP(PChar(s), @HandleError, @BeforeExec, @AfterExec);
  end;
end;
  finally
if Hndl  HINSTANCE_ERROR then
  FreeLibrary(Hndl);
  end;
end; 



С наилучшими пожеланиями, Oleg Prosvetov.