[Alxd]

Народ, может кто подскажет...
Создается com-соединение

Код:

function TThreadExchange.CreateComConnection(SingleSetting: Settings):Variant;
var
  ConnectionObj: Variant;
  ConnectionString: String;
begin
  CoInitialize(nil);
  ConnectionObj:=CreateOleObject('v81.ComConnector');
  ConnectionString:='file='+ SingleSetting.DBPath+';'+' usr='+SingleSetting.DBUserName+';'+' pwd='+SingleSetting.DBUserPassword;
  Result:=ConnectionObj.Connect(ConnectionString);
  CoUninitialize;
end;

Все хорошо, все замечательно работает. Вот только одна проблемка...в определенный момент соединение мне нужно разорвать и обновить информационную базу, а сделать это не получается.

Может кто сталкивался, как это сделать?

Причем, если создать соединение и попробывать его закрыть - то все работает

Код:

// Создали
Connection := CreateComConnection(SingleSetting);
// Закрыли
Connection := '';

А если обратится к базе, например вот так...

Код:

SetExchange := Connection.Справочники.НастройкиОбмена.НайтиПоКоду(SingleSetting.ExchangeCode);

... и уже потом "обнулить" соединение,

Код:

Connection := '';

то перестает работать