Dbforge ошибка инициализации отладчика

Типичная ошибка! BDE это не поддержка alias! компоненты Дельфи такие как Table, Query, Database — почти вообще ничего не делают! — это только удобный интерфейс к BDE. Т.е. BDE реально читает и пишет в базы данных, обнавляет файлы, управляет транзакциями, сортирует данные, исполняет SQL запросы. BDE с одной стороны имеет BDE Admin для ее управления, а с другой API, которые и использует Дельфи в компонентах. Если вам надо обойтись без BDE вы должны использовать другие драйвера доступа к базам данных: ODBC, DAO, ADO, RDO — многие из них имеют свои API или COM интерфейсы которые вы можете использовать (напрямую, либо найти компоненты для этого, кроме того ADO входит в стандартную поставку дельфей, но через него приконнектится к парадоксу довольно затруднительно). Если же все эти драйвера вас не устраивают то вам надо написать свой драйвер к базе данных (можно прямо в коде программы), он должен обеспечивать:

1) Чтение и запись базы
2) Поддержка транзакций
3) Исполнение SQL запросов
4) Поддержка индексов и ключей
5) Поддержка многопользовательского доступа.
6) Стандартный набор API которые позволят подключаться компонентам типа Table, Query

Есть так же сторонние библиотеки для доступа к базам данных через свои собственные драйвера: HALCYON, или Апполо (Предложил МММ);
vkDBF- компонент для работы с ДБФ для Дельфы6/5 без БДЕ.(Предложил Free)

What are the essential files to ship with an application that uses the BDE?

Answer:

Delphi allows you to generate a nice tight executable file (.EXE), but if you have created a database application you must include the files that make up the Borland Database Engine as well. The table below shows the files that are mandatory when delivering a database application with Delphi.
File Name  Description
IDAPI01.DLL — BDE API DLL
IDBAT01.DLL — BDE Batch Utilities DLL
IDQRY01.DLL — BDE Query DLL
IDASCI01.DLL — BDE ASCII Driver DLL
IDPDX01.DLL — BDE Paradox Driver DLL
IDDBAS01.DLL — BDE dBASE Driver DLL
IDR10009.DLL — BDE Resources DLL
ILD01.DLL — Language Driver DLL
IDODBC01.DLL — BDE ODBC Socket DLL
ODBC.New — Microsoft ODBC Driver Manager DLL V2.0
ODBCINST.NEW — Microsoft ODBC Driver Installation DLL V2.0
TUTILITY.DLL — BDE Table Repair Utility DLL
BDECFG.EXE — BDE Configuration Utility DLL
BDECFG.HLP — BDE Configuration Utility Help
IDAPI.CFG —    BDE Configuation File (settings)

To assist the user, Delphi ships with an install program for exporting the appropriate files that you want deliver to your clients. Also, installation programs such as InnoSetup and InstallShield can automatically include the relevant files in their setup programs.

InnoSetup is my program installation program of choice, and it is FREE! For more information or to download a copy visit Jordan Russhttp:// www.jrsoftware.orgell’s site at

Finally a tip on using the setup CAB file that ships with the BDE to install the relevant files can be found in DKB, article title «Installing BDE from BDEINST.CAB»

If you have taken a close look at the listing of the BDE installation directory (usually Program FilesBorlandCommon FIlesBDE), you’ve noticed there’s a file called BDEINST.CAB. If BDEINST.CAB isn’t present in the BDE folder, you probably chose not to let it be installed. As this tip requires this file, you might want to run install again and install only BDEINST.CAB. Anyway, let’s get back to the tip.

What is BDEINST.CAB?

BDEINST.CAB is a cabinet (Microsoft’s compression format) file that contains only one large file: BDEINST.DLL. This DLL contains a simple installation program along with all the necessary files for a basic install of BDE. It will correctly install BDE with the native drivers for Paradox, dBase, MS Access and FoxPro. It won’t install drivers for SQL database servers. If all you need is a basic installation of BDE for supporting one of the forementioned databases, then BDEINST.CAB is the best choice for you.

Given the problem InstallShield and Wise have with installing BDE 5, BDEINST.DLL has a great appeal, since it was created by the Borland folks and doesn’t suffer from the same problems InstallShield and WISE do.

There is, however, a drawback: BDEINST.DLL is a quite large file, so it’s that good if you’re deploying on floppy disks. There’s a workaround for this problem and we’ll get back to it later on.

Using BDEINST.DLL

In order to use BDEINST.DLL, all you have to do is to extract it from BDEINST.CAB. There are several ways this can be done. Two of them are:

· Using WinZip or another CAB-compatible archiver. Simply extract BDEINST.DLL from the CAB file. 

· Using Microsoft’s EXTRACT utility that comes with Windows 9x and NT. From a DOS window, issue the command below (path is also shown): 

· 

· C:Program FilesBorlandCommon FilesBDE>EXTRACT /E BDEINST.CAB 

· 

· This will extract BDEINST.DLL to the current directory, since no destination dir was specified in the command line. 

  The task now is to use the DLL. This is as simple as issuing the command line below:

C:WINDOWSSYSTEMREGSVR32.EXE /S CABINST.DLL

If the command above fails, make sure you have REGSVR32.EXE on your machine. Not all machines have it, and, in case of deploying BDEINST.DLL, it’s also a good idea to deploy REGSVR32.EXE. This file can be found in WINDOWSSYSTEM or WINNTSYSTEM32.

A progress dialog box will popup indicating that the installation of BDE is going ok. This is all it takes to install BDE without needing any additional tool such as InstallShield or Wise.

If you do not want to deploy REGSVR32.EXE, you can create a small VCL-less and formless application that simply calls DllRegisterServer from the DLL.

{
Программа иллюстрирует, как установить BDE с поддержкой PARADOX 7.0
на «чистой машине» и создать алиас.
Пример использования в качестве простейшего инсталлятора для программы
C:MyDirMyProg.exe
1.Создайте каталог C:MyDirBDE и скопируйте в него след. файлы:
CHARSET.BLL
OTHER.BLL
IDAPI32.CFG
BLW32.DLL
IDAPI32.DLL
IDBAT32.DLL
IDPDX32.DLL
IDR20009.DLL
IDSQL32.DLL
BDEADMIN.EXE — по вкусу, т.к. необходимым не является.
2.Измените значение константы AliasName на имя необходимого вам алиаса.
3.Откомпиллируйте и запустите эту программу из каталога C:MyDir.
ВHИМАHИЕ!!! Если на машине уже установлено BDE, то перед экспериментами
сохраните (на всякий случай) след. ключи из реестра:
[HKEY_LOCAL_MACHINESOFTWAREBorlandDatabase Engine] и
[HKEY_LOCAL_MACHINESOFTWAREBorlandBLW32].
}

{$APPTYPE CONSOLE}
uses
  Windows, BDE, Registry;

const
  AliasName: string = ‘PrefStat’;

var
  R: DBIResult;
  Path: string;

procedure WriteString(S1:string);
begin
  S1 := S1 + #0;
  AnsiToOem(@S1[1], @S1[1]);
  writeln(S1);
end;

function GetExePath(S1:string):string;
var
  I, K :Integer;
  S: string;
begin
  K := 1;
  S := »;
  for I := Length(S1) downto 1 do
  begin
    if S1[I] = » then
    begin
      K := I;
      Break;
    end;
  end;

  for I := 1 to K — 1 do
    S := S + S1[I];

  Result:=S;
end;

procedure InstallBde;
const
  Bor: string = ‘SOFTWAREBorland’;
var
  a: TRegistry;
  BPath: string;
begin
  BPath:=PATH + ‘BDE’;
  a := TRegistry.Create;
  with a do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey(Bor + ‘Database Engine’, True);
    WriteString(‘CONFIGFILE01′, BPath+’IDAPI32.CFG’);
    WriteString(‘DLLPATH’, BPath);
    WriteString(‘RESOURCE’, ‘0009’);
    WriteString(‘SaveConfig’, ‘WIN32’);
    WriteString(‘UseCount’, ‘2’);
    CloseKey;
    OpenKey(Bor+’BLW32′,True);
    WriteString(‘BLAPIPATH’, BPath);
    WriteString(‘LOCALE_LIB3′, BPath+’OTHER.BLL’);
    WriteString(‘LOCALE_LIB4′, BPath+’CHARSET.BLL’);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsSYSTEMINIT’,True);
    WriteString(‘AUTO ODBC’, ‘FALSE’);
    WriteString(‘DATA REPOSITORY’, »);
    WriteString(‘DEFAULT DRIVER’, ‘PARADOX’);
    WriteString(‘LANGDRIVER’, ‘ancyrr’);
    WriteString(‘LOCAL SHARE’, ‘FALSE’);
    WriteString(‘LOW MEMORY USAGE LIMIT’, ’32’);
    WriteString(‘MAXBUFSIZE’, ‘2048’);
    WriteString(‘MAXFILEHANDLES’, ’48’);
    WriteString(‘MEMSIZE’, ’16’);
    WriteString(‘MINBUFSIZE’, ‘128’);
    WriteString(‘SHAREDMEMLOCATION’, »);
    WriteString(‘SHAREDMEMSIZE’, ‘2048’);
    WriteString(‘SQLQRYMODE’, »);
    WriteString(‘SYSFLAGS’, ‘0’);
    WriteString(‘VERSION’, ‘1.0’);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsSYSTEMFORMATSDATE’,True);
    WriteString(‘FOURDIGITYEAR’, ‘TRUE’);
    WriteString(‘LEADINGZEROD’, ‘FALSE’);
    WriteString(‘LEADINGZEROM’, ‘FALSE’);
    WriteString(‘MODE’, ‘1’);
    WriteString(‘SEPARATOR’, ‘.’);
    WriteString(‘YEARBIASED’, ‘TRUE’);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsSYSTEMFORMATSNUMBER’,True);
    WriteString(‘DECIMALDIGITS’, ‘2’);
    WriteString(‘DECIMALSEPARATOR’, ‘,’);
    WriteString(‘LEADINGZERON’, ‘TRUE’);
    WriteString(‘THOUSANDSEPARATOR’, ‘ ‘);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsSYSTEMFORMATSTIME’,True);
    WriteString(‘AMSTRING’, ‘AM’);
    WriteString(‘MILSECONDS’, ‘FALSE’);
    WriteString(‘PMSTRING’, ‘PM’);
    WriteString(‘SECONDS’, ‘TRUE’);
    WriteString(‘TWELVEHOUR’, ‘TRUE’);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsREPOSITORIES’,True);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsDRIVERSPARADOXINIT’,True);
    WriteString(‘LANGDRIVER’, ‘ancyrr’);
    WriteString(‘TYPE’, ‘FILE’);
    WriteString(‘VERSION’, ‘1.0’);
    CloseKey;
    OpenKey(Bor+’Database EngineSettingsDRIVERSPARADOXTABLE
    CREATE’,True);
    WriteString(‘BLOCK SIZE’, ‘4096’);
    WriteString(‘FILL FACTOR’, ’95’);
    WriteString(‘LEVEL’, ‘7’);
    WriteString(‘STRICTINTEGRTY’, ‘TRUE’);
    CloseKey;
  end;
  a.Free;
end;

begin
  Path:=GetExePath(ParamStr(0));
  R:=dbiInit(nil);
  if R<>DBIERR_NONE then
  begin
    WriteString(‘Инициализация BDE …’);
    InstallBDE;
  end;
  R:=dbiInit(nil);
  if R=DBIERR_NONE then
  begin
    WriteString(‘Инициализация BDE прошла успешно’);
    DbiDeleteAlias(nil, PChar(AliasName));
    R:=DbiAddAlias(nil, PChar(AliasName), szPARADOX,
    PChar(‘PATH:’+Path+’DB’), True);
    if R=DBIERR_NONE then
      WriteString(‘Псевдоним «‘+AliasName+'» создан’)
    else
      WriteString(‘Ошибка создания псевдонима «‘+AliasName+'»‘);
    R:=DbiCfgSave(nil, nil, Bool(-1));
    if R=DBIERR_NONE then
      WriteString(‘Файл конфигурации сохранён’)
    else
      WriteString(‘Ошибка сохранения файла конфигурации’);
    DbiExit;
  end
  else
    WriteString(‘Ошибка инициализации BDE’);
end.