Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при высвобождении объекта [D7, WinXP]


kyn66 ©   (2007-10-30 16:38:00) 

Уважаемые мастера! В нашедшем примере по работе с объектами 1С закралась ошибка? Вот тест по примеру:

Var
 onesobj : OleVariant;
 
...
onesobj := CreateOleObject('V77S.Application');
 onesobj.Initialize(onesobj.rmtrade, '/D\\BUHSERVER\DBBook /NАдминистратор /P159',
                                     'NO_SPLASH_SHOW');
 onesobj.UnAssigned;

Выполняя onesobj.UnAssigned;- появляется сообщение об ошибке --> http://yurec66.narod.ru/Vopros/err4.png

Что здесь не так?


Anatoly Podgoretsky   (2007-10-31 14:38:00) [1]


> kyn66 ©   (31.10.07 13:15) [12]

Не уже ли [2] два раза прочитал?


clickmaker   (2007-10-31 13:25:00) [2]


> [12] kyn66 ©   (31.10.07 13:15)

Голова!
а в [2] конечно же фигня написана?


kyn66   (2007-10-31 13:15:00) [3]

Все, догадался , во как нужно!

 onesobj := UnAssigned;


Семен Семеныч...


clickmaker   (2007-10-31 12:59:00) [4]


> [9] kyn66 ©   (31.10.07 12:46)

вот Free там уж точно не при делах...


Skyle   (2007-10-31 12:48:00) [5]


> Ни UnAssigned, ни Quit, ни Free !!! Я в трансе.

Код покажи. Всех трёх вариантов.


kyn66   (2007-10-31 12:46:00) [6]

Мастера ! Ну подскажите, как освободить этот объект? Ничто не работает !
Ни UnAssigned, ни Quit, ни Free !!! Я в трансе.


kyn66   (2007-10-31 09:32:00) [7]


> XL : Variant;

Объевление переменной? Variant и OleVAriant ?
В этом причина? В чем отличие?


Dennis I. Komarov   (2007-10-31 09:24:00) [8]

> [5] kyn66 ©   (31.10.07 09:16)

[2] прочитал?


Skyle   (2007-10-31 09:23:00) [9]


> kyn66 ©   (31.10.07 09:16) [5]

Не видно 10 отличий?


kyn66   (2007-10-31 09:16:00) [10]

Неужели все такие... не совсем умные, что выкладывают примеры ...
еще один

Пример
var
 XL : Variant;
begin
 XL:= CreateOleObject('Excel.Application');
 XL.Workbooks.Add(EditFileName.Text);
 ...
 XL.Visible:= true;
 XL:= UnAssigned;
end;


Так как-же всетаки првильно будет?


MetalFan   (2007-10-30 18:44:00) [11]

пример на то и пример, что надо головой подумать и понять что к чему, прежде чем копировать код к себе...


kyn66   (2007-10-30 17:52:00) [12]


> где вы такие "примеры" находите?

В нете, тока в нете и в букварях. Конкретно этот пример был взят из DelphiWord


clickmaker   (2007-10-30 17:03:00) [13]


> onesobj.UnAssigned;

где вы такие "примеры" находите?

onesobj := Unassigned;


MetalFan   (2007-10-30 16:47:00) [14]

а что непонятного?
нет такого метода у объекта автоматизации...


Наверх

Титульная страница Поиск, карта сайта Написать письмо