Отключил запущенный FireBird как приложение, для тестирования моей проги по работе с локальной базой данных.
Залез в readme_embedded.txt и соглассно мануалу сделал:
1) Положил в папку D:\My_app\ fbclient.dll и переименовал в gds32.dll, т.к. мой FIBPlus настроен на это имя
2) закинул в эту же папку и firebird.msg
3) закинул сюда же ib_util.dll
4) далее из архива в эту же папку скачал папки intl и udf
В моем проекте есть код:
Код: Выделить всё
if not FileExists(GetCurrentDir+cFBname) then
begin
if CreateDataBase(FBdbase,'SYSDBA','1234') then
begin
//...
end
else ShowMessage('Бага при создании базы');
Код: Выделить всё
function CreateDataBase(var db : TpFIBDatabase; fbUser, fbPassword : string) : Boolean;
{ Создание базы данных по заданным логину, паролю }
var
CurrentDisk : string;
SizeOfCluster : Cardinal;
SectorsPerCluster : Cardinal;
BytesPerSector : Cardinal;
NumberOfFreeClusters : Cardinal;
TotalNumberOfClusters : Cardinal;
begin
Result := True;
CurrentDisk := Copy(GetCurrentDir,1,2);
if GetDiskFreeSpace(PChar(CurrentDisk),SectorsPerCluster,BytesPerSector,
NumberOfFreeClusters,TotalNumberOfClusters) then
begin
SizeOfCluster := SectorsPerCluster * BytesPerSector;
with db do
begin
DBParams.Clear;
DBParams.Add('USER '''+fbUser+''' PASSWORD '''+fbPassword+'''');
DBParams.Add('PAGE_SIZE = '+IntToStr(SizeOfCluster));
DBParams.Add('DEFAULT CHARACTER SET WIN1251');
DatabaseName := 'localhost:'+GetCurrentDir+cFBname;
SQLDialect := 3;
end;
try
db.CreateDatabase;
except
Result := False;
end;
end
else
Result := False;
end;
Прошу подсказать в чем моя глупость?