Admin: 1 revision imported

2021-02-07T06:43:15Z

1 revision imported

Admin at 11:07, 20 March 2020

2020-03-20T11:07:26Z

New page

{{infobox function
|name=CreateOLE
|object=[[Функции общего назначения]]
|caption=Создание OLE объекта
|type=1
|status=2
|db=0
|exception=Невозможно превратить в строку, ошибка создания объекта
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Функции общего назначения]], [[Объект OLE]]}}
Функция создает новый объект OLE (COM) по строке идентификатора, если требуемый объект в системе отсутствует, функция вызывает исключение. Созданный таким образом объект может быть доступен только в создавшем его потоке (ограничение архитектуры STA). Это ограничение не распространяется на визуальные OLE объекты (находящиеся на формах или в электронных таблицах), так как для таких объектов вызовы, созданные из других потоков, передаются с помощью очереди сообщений Windows в визуальный поток и исполняются там. Если необходимо работать с невизуальным объектом в нескольких потоках, используйте функцию [[CreateThreadedOLE]], которая имеет свои ограничения.

== Синтаксис ==
<code>
'''CreateOLE'''(''<Идентификатор объекта OLE (STRING)>''):''<Новый объект OLE (OLE)>''
</code>
==== Аргументы ====
* <code>''<Идентификатор объекта OLE (STRING)>''</code> - Строка-индентификатор объекта. К примеру <code>"Excel.Application"</code> или <code>"ADODB.Connection"</code>.

==== Возвращаемое значение ====
Возвращает созданный объект.

== Примеры ==
<pre>
//Пример создает новую книгу Excel с листом "Данные" и заполняет на нем квадрат 20 на 20 ячеек случайными числами.
Try
Х:=CreateOLE("Excel.Application");
Except
Message(PopError(),"!");
Message("Ошибка создании объекта! Возможно, не установлен MS Excel!","!");
Exit;
EndTry;
Try
Х.WorkBooks.Add();
Х.WorkSheets(1).Name:="Данные";

Л:=Х.WorkSheets(1);
Л.Activate();
Л.Select();
//Заполнение квадрата 20 x 20 случайными числами 0..9
For i:=1 To 20 Do
For j:=1 To 20 Do
Л.Cells(i,j).Value:=Str(Random(10));
EndDo;
EndDo;
Finally
Х.Visible:=1;
EndTry;
</pre>

← Older revision	Revision as of 06:43, 7 February 2021
(No difference)

CreateOLE - Revision history

Admin: 1 revision imported

Admin at 11:07, 20 March 2020