• MaxiM
  • Участник
  • Неактивен
  • На форуме с 18 мая 2007
  • Сообщений: 7

Re: Использование API в Delphi

В ActiveX библиотеке, написанной на Delphi, нужно узнать имя и ID пользователя текущего сеанса TCS , вызвовшего соответствующий скрипт.
Пытались сделать таким образом: 

var
    TCS: CSDN_TLB.TCS;
  TcsApp: CSDN_TLB.Tcs_Application;

......

begin
  TCS := CreateOleObject('CSDN.TCS' ) as ITCS;
  TcsApp := TCS.LoginCurrent;
  ShowMessage(TCSApp.LoginInfo.User);

Код срабатывает. Но при закрытии формы появляется ошибка фиксации лога.


SQL Server Error: Выполнение данной инструкции было прервано.
Конфликт инструкции INSERT с ограничением FOREIGN KEY "FK_LOG_TABLE_SESSION". Конфликт произошел в базе данных "IndustriCS", таблица "dbo.LOG_SESSION", column 'LS_ID'.