Реализация конструкции try-finally на VBScript - История изменений

SYSDBA в 13:44, 13 мая 2009

2009-05-13T13:44:18Z

SYSDBA в 14:31, 1 марта 2007

2007-03-01T14:31:47Z

SYSDBA в 14:24, 1 марта 2007

2007-03-01T14:24:21Z

SYSDBA в 14:23, 1 марта 2007

2007-03-01T14:23:54Z

SYSDBA в 14:12, 1 марта 2007

2007-03-01T14:12:44Z

SYSDBA в 14:12, 1 марта 2007

2007-03-01T14:12:23Z

SYSDBA в 13:48, 1 марта 2007

2007-03-01T13:48:45Z

SYSDBA в 13:41, 1 марта 2007

2007-03-01T13:41:20Z

Новая страница

Грамотно написанный программный код должен заботиться о высвобождении выделенных ресурсов по окончании их использования. В Делфи мы имеем конструкцию try-finally, которая гарантирует, что код в секции finally будет выполнен в любом случае:

...
// выделение ресурса
try
...
// использование ресурса
...
finally
// высвобождение ресурса
end;

← Предыдущая		Версия 13:44, 13 мая 2009
Строка 56:		Строка 56:

	а не '''I = 1''', как можно было подумать.		а не '''I = 1''', как можно было подумать.
		+
		+	[[Category:VBScript]]

@@ Строка 12: / Строка 12: @@
    ...
-В языке VBScript такая конструкция отсутствует, а обработка ошибок с помощью On Error Resume Next/On Error GoTo 0 весьма трудоемка. Как быть? На помощь приходит свойство экземпляров классов VBScript, которые автоматически высвобождаются по выходу из соответствующей области видимости. Вспомогательный класс [[TCreator]] уже долгое время используется для уничтожения объектов по завершении кода функции или процедуры. Его метод GetObject создает объект с помощью вызова функции Designer.CreateObject и сохраняет ссылку на созданный объект во внутреннем списке. По выходу из кода, объект TCreator уничтожается, при этом выполняется его деструктор, который просматривает список ранее созданных объектов и вызывает Designer.DestroyObject для каждого из них. Высвобождение объектов -- частный случай кода завершения функции. Часто необходимо вызвать некоторый метод объекта или выполнить произвольный программный код. Например, после блокировки визуального отображения набора данных с помощью вызова метода DataSet.DisableControls, необходимо обязательно восстановить исходное состояние с помощью DataSet.EnableControls. К счастью, VBScript предоставляет нам возможность выполнять произвольный программный код с помощью процедуры Execute. Таким образом, мы можем сделать следующее:
+В языке VBScript такая конструкция отсутствует, а обработка ошибок с помощью On Error Resume Next/On Error GoTo 0 весьма трудоемка. Как быть? На помощь приходит свойство экземпляров классов VBScript, которые автоматически высвобождаются по выходу из соответствующей области видимости. Вспомогательный класс [[TCreator]] уже долгое время используется для уничтожения объектов по завершении кода функции или процедуры. Его метод [[GetObject]] создает объект с помощью вызова функции [[Designer]].[[CreateObject]] и сохраняет ссылку на созданный объект во внутреннем списке. По выходу из кода, объект TCreator уничтожается, при этом выполняется его деструктор, который просматривает список ранее созданных объектов и вызывает [[Designer]].[[DestroyObject]] для каждого из них. Высвобождение объектов -- частный случай кода завершения функции. На практике, часто необходимо вызвать некоторый метод объекта или выполнить произвольный программный код. Например, после блокировки визуального отображения набора данных с помощью вызова метода DataSet.DisableControls, необходимо обязательно восстановить исходное состояние с помощью DataSet.EnableControls. К счастью, VBScript предоставляет нам возможность выполнять произвольный программный код с помощью процедуры Execute. Таким образом, мы можем сделать следующее:
-* Добавим в TCreator двумерный массив, который будет хранить список команд и ссылку на объект/переменную, соответствующую каждой команде. Причем, в тексте команды имя объекта или переменной мы должны указывать с помощью мнемонического кода <X>.
+* Добавим в [[TCreator]] двумерный массив, который будет хранить список команд и ссылку на объект/переменную, соответствующую каждой команде. Причем, в тексте команды имя объекта или переменной мы должны указывать с помощью мнемонического кода '''<X>'''.
 * Добавим метод AddFinallyCode(ByRef S, ByRef Obj) с помощью которого в список добавляется команда и соответствующий ей объект или переменная. AddFinallyCode -- это функция, которая возвращает индекс добавленной команды.
 * Для удобства, предусмотрим метод DeleteFinallyCode(I), который удаляет из списка команду, заданную индексом.
 * Изменим деструктор класса TCreator так, чтобы перед уничтожением списка созданных с помощью GetObject объектов, сначала выполнялись команды из нашего внутреннего списка.
-В итоге, мы сможем использовать класс TCreator следующим образом:
+В итоге, мы сможем использовать класс [[TCreator]] следующим образом:
    Sub ProcessData(ByRef DataSet)
@@ Строка 35: / Строка 36: @@
    End Sub
-Если, вторым параметром на вход функции TCreator.AddFinallyCode передан объект, то сохраняется ссылка на него. Если же передается переменная, то сохраняется ее значение.
+Следует помнить, что если вторым параметром на вход функции TCreator.AddFinallyCode передан объект, то сохраняется ссылка на него. Если же передается переменная, то сохраняется ее значение.
    Sub TestFinallyCode
@@ Строка 53: / Строка 55: @@
    I = 5
-а не I = 1, как можно было подумать.
+а не '''I = 1''', как можно было подумать.

@@ Строка 45: / Строка 45: @@
      I = 1
      A = 1 / 0 ' вызываем ошибку -- деление на ноль
-−
      I = 2
    End Sub

← Предыдущая		Версия 14:23, 1 марта 2007
Строка 34:		Строка 34:

	End Sub		End Sub
		+
		+	Если, вторым параметром на вход функции TCreator.AddFinallyCode передан объект, то сохраняется ссылка на него. Если же передается переменная, то сохраняется ее значение.
		+
		+	Sub TestFinallyCode
		+
		+	Dim Creator, I, A
		+	I = 5
		+	Creator.AddFinallyCode "MsgBox ""I = "" & <X>", I
		+
		+	I = 1
		+	A = 1 / 0 ' вызываем ошибку -- деление на ноль
		+
		+	I = 2
		+	End Sub
		+
		+	В результате выполнения такой процедуры, на экран будет выведено сообщение:
		+
		+	I = 5
		+
		+	а не I = 1, как можно было подумать.

@@ Строка 22: / Строка 22: @@
    Sub ProcessData(ByRef DataSet)
-−
      Dim Creator
      Set Creator = New TCreator
@@ Строка 28: / Строка 28: @@
      DataSet.DisableControls
      Creator.AddFinallyCode "<X>.EnableControls", DataSet
-−
      ' выполняем обработку набора данных
      ' по окончании процедуры состояние датасета восстановится
      ' с помощью команды DataSet.EnableControls
-−
    End Sub

← Предыдущая		Версия 14:12, 1 марта 2007
Строка 12:		Строка 12:
	...		...

−	В языке VBScript такая конструкция отсутствует, а обработка ошибок с помощью On Error Resume Next/On Error GoTo 0 весьма трудоемка. Как быть? На помощь приходит свойство экземпляров классов VBScript, которые автоматически высвобождаются по выходу из соответствующей области видимости. Вспомогательный класс [[TCreator]] уже долгое время используется для уничтожения объектов по завершении кода функции или процедуры. Его метод GetObject создает объект с помощью вызова функции Designer.CreateObject и сохраняет ссылку на созданный объект во внутреннем списке. По выходу из кода, объект TCreator уничтожается, при этом выполняется его деструктор, который просматривает список ранее созданных объектов и вызывает Designer.DestroyObject для каждого из них.	+	В языке VBScript такая конструкция отсутствует, а обработка ошибок с помощью On Error Resume Next/On Error GoTo 0 весьма трудоемка. Как быть? На помощь приходит свойство экземпляров классов VBScript, которые автоматически высвобождаются по выходу из соответствующей области видимости. Вспомогательный класс [[TCreator]] уже долгое время используется для уничтожения объектов по завершении кода функции или процедуры. Его метод GetObject создает объект с помощью вызова функции Designer.CreateObject и сохраняет ссылку на созданный объект во внутреннем списке. По выходу из кода, объект TCreator уничтожается, при этом выполняется его деструктор, который просматривает список ранее созданных объектов и вызывает Designer.DestroyObject для каждого из них. Высвобождение объектов -- частный случай кода завершения функции. Часто необходимо вызвать некоторый метод объекта или выполнить произвольный программный код. Например, после блокировки визуального отображения набора данных с помощью вызова метода DataSet.DisableControls, необходимо обязательно восстановить исходное состояние с помощью DataSet.EnableControls. К счастью, VBScript предоставляет нам возможность выполнять произвольный программный код с помощью процедуры Execute. Таким образом, мы можем сделать следующее:
		+
		+	* Добавим в TCreator двумерный массив, который будет хранить список команд и ссылку на объект/переменную, соответствующую каждой команде. Причем, в тексте команды имя объекта или переменной мы должны указывать с помощью мнемонического кода <X>.
		+	* Добавим метод AddFinallyCode(ByRef S, ByRef Obj) с помощью которого в список добавляется команда и соответствующий ей объект или переменная. AddFinallyCode -- это функция, которая возвращает индекс добавленной команды.
		+	* Для удобства, предусмотрим метод DeleteFinallyCode(I), который удаляет из списка команду, заданную индексом.
		+	* Изменим деструктор класса TCreator так, чтобы перед уничтожением списка созданных с помощью GetObject объектов, сначала выполнялись команды из нашего внутреннего списка.
		+
		+	В итоге, мы сможем использовать класс TCreator следующим образом:
		+
		+	Sub ProcessData(ByRef DataSet)
		+
		+	Dim Creator
		+	Set Creator = New TCreator
		+
		+	DataSet.DisableControls
		+	Creator.AddFinallyCode "<X>.EnableControls", DataSet
		+
		+	' выполняем обработку набора данных
		+	' по окончании процедуры состояние датасета восстановится
		+	' с помощью команды DataSet.EnableControls
		+
		+	End Sub

@@ Строка 1: / Строка 1: @@
-Грамотно написанный программный код должен заботиться о высвобождении выделенных ресурсов по окончании их использования. В Делфи мы имеем конструкцию try-finally, которая гарантирует, что код в секции finally будет выполнен в любом случае:
+Грамотно написанный программный код должен заботиться о высвобождении выделенных ресурсов по окончании их использования даже в случае аварийного завершения функции или процедуры. В Делфи мы имеем конструкцию try-finally, которая гарантирует, что код в секции finally будет выполнен в любом случае:
    ...
@@ Строка 10: / Строка 10: @@
      // высвобождение ресурса
    end;