Re: Мистика какая-то :(

Mon, 18 Jun 2007 04:32:34 -0700 


Hello, Константин!

Константин wrote:


    А можно поподробнее ?


куда уж подробнее?


    Или, если конечно не жалко, дай свой IB_Intf.pas - попробовать ?


он IBIntf.pas, а не IB_Intf.pas.

const
  ibdll = 'gds32.dll';
  fbdll = 'fbclient.dll';

begin
{$IFDEF MSWINDOWS}
  IBLibrary := LoadLibrary(PChar(ibdll));
  if IBLibrary <= HINSTANCE_ERROR then
    IBLibrary := LoadLibrary(PChar(fbdll));
//  IBLibrary := LoadLibrary(PChar(IBASE_DLL));
  if (IBLibrary > HINSTANCE_ERROR) then
...

вроде все. я пробовал "снаружи", но не получилось.
теперь кладу исправленный ibintf.pas в проект.

--
Dmitri Kouzmenko, www.ibase.ru, (495) 953-13-34

Ответить