Здравствуйте!
Пытаюсь создавать внешние приложения для Нава, используя C/FRONT. С использованием в СИ всё, в общем-то, понятно, но использовать придётся, скорее всего, Дельфу. Так вот, при попытке подключиться к базе, библиотека выдаёт ошибку: "Error 1406 in module 19". Причём, функция DBL_Init, судя по всему, выполняется без всяких проблем.
Код на Дельфе такой:
Код:
procedure DBL_Init; external 'CFRONT.DLL';
procedure DBL_Exit; external 'CFRONT.DLL';
procedure DBL_OpenCompany(Name: string); external 'CFRONT.DLL';
procedure DBL_CloseDatabase; external 'CFRONT.DLL';
procedure DBL_ConnectServer(dName: string;
sName: string; NetType: string); external 'CFRONT.DLL';
procedure DBL_OpenDatabase(Name: string;
CacheSize: integer;CommitCache: boolean); external 'CFRONT.DLL';
procedure DBL_CloseCompany; external 'CFRONT.DLL';
procedure DBL_DisconnectServer; external 'CFRONT.DLL';
procedure DBL_LoadLicenseFile(Name:string); external 'CFRONT.DLL';
function DBL_CompanyName: string; external 'CFRONT.DLL';
procedure TfrmMain.Button1Click(Sender: TObject);
begin
DBL_Init;
DBL_ConnectServer('NDBCN', 'accounting', 'tcp');
DBL_OpenDatabase('IDLER.fdb', 2048, False);
DBL_OpenCompany('BSOD interactive');
ShowMessage(DBL_CompanyName);
DBL_CloseCompany;
DBL_CloseDatabase;
DBL_DisconnectServer;
DBL_Exit;
end;
При отладке выяснил, что библиотеку рвёт при вызове DBL_ConnectServer. Если её убрать - на DBL_OpenDatabase.
Может, кто-то имеет подобный опыт? Или знает коды ошибок? В любом случае, буду рад любой помощи.