Народ, может кто подскажет...
Создается 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);
... и уже потом "обнулить" соединение,
то перестает работать