Witam, w Lazarusie potrzebuję połączyć się z bazą za pomocą komponentu TIBConnection.
Poniżej kod który generuje następujący błąd:
Project ProjectSystemSprzedazy raised exception class 'EInOutError' with message:
Can not load default Firebird clients ("fbclient.dll" or "gds32.dll" or "fbembed.dll"). Check your installation.*
try
HostDB:=Trim(Ini.ReadString('Database', 'Host', ''));
PathDB:=Trim(Ini.ReadString('Database', 'Path', ''));
IBConnectionDatabase.DatabaseName:=HostDB+PathDB;
IBConnectionDatabase.Params.Clear;
IBConnectionDatabase.Params.Add('lc_ctype=WIN1250');
IBConnectionDatabase.CharSet:='WIN1250';
//IBConnectionDatabase.Params.Add('lc_ctype=ISO8859_1');
//IBConnectionDatabase.CharSet:='ISO8859_1';
//IBConnectionDatabase.CharSet:='UTF-8';
IBConnectionDatabase.Dialect:=3;
//logowanie do bazy z poziomu aplikacji
IBConnectionDatabase.LoginPrompt:=False;
LoginDB:=Trim(Ini.ReadString('Database', 'Login', ''));
PasswordDB:=Trim(Ini.ReadString('Database', 'Password', ''));
IBConnectionDatabase.UserName:=LoginDB;
IBConnectionDatabase.Password:=PasswordDB;
IBConnectionDatabase.Connected:=True;
SQLTransaction1.Active:=True;
except
Application.MessageBox('Błąd przy połączeniu z bazą danych', 'Aplikacja', MB_ICONERROR);
Application.ShowMainForm:=False;
ExitProcess(0);
end;
Proszę o pomoc w rozwiązaniu tego problemu.