Тема: CFRONT и Delphi
Показать сообщение отдельно
Старый 04.08.2006, 04:03   #1  
IDLER_imported is offline
IDLER_imported
Участник
 
3 / 10 (1) +
Регистрация: 30.07.2006
Thumbs up
Здравствуйте!

Пытаюсь создавать внешние приложения для Нава, используя 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.

Может, кто-то имеет подобный опыт? Или знает коды ошибок? В любом случае, буду рад любой помощи.