{"id":55001355,"date":"2022-02-01T00:00:00","date_gmt":"2022-01-31T15:18:42","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1355"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Setup_fuer_AccessApplikationen_Restarbeiten","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Setup_fuer_AccessApplikationen_Restarbeiten\/","title":{"rendered":"Setup für Access-Applikationen, Restarbeiten"},"content":{"rendered":"

\"\"<\/p>\n

Autor: Christoph Jüngling, https:\/\/www.juengling-edv.de<\/p>\n

In diesem Teil widmen wir uns einigen Restarbeiten für das Erstellen eines Setups für Access-Applikationen. Diese Arbeiten sind zwar keineswegs unbedingt notwendig, runden aber unser Setup ab und sorgen daher beim Anwender oder Administrator für ein „gutes Gefühl“. Wir wollen zunächst sicherstellen, dass unsere Applikation nicht läuft, wenn wir sie updaten wollen. Dann unterscheiden wir bei der Installation zwischen Beta- und finaler Version. Und letztlich wollen wir unser Setup dann noch digital signieren.<\/b><\/p>\n

Läuft die Applikation<\/h2>\n

Wie können wir sicherstellen, dass die Access-Applikation nicht läuft, wenn wir sie updaten wollen<\/p>\n

Prinzip eines „Mutex“<\/h2>\n

Sicher haben Sie schon bei Setups bemerkt, dass eine Meldung wie diese kam:<\/p>\n

Das Setup hat festgestellt, dass die Applikation Xyz noch läuft. Bitte beenden Sie diese und starten Sie dann das Setup erneut.<\/pre>\n
Dem Anwender ist das natürlich egal, aber der Entwickler fragt sich unweigerlich: „Woher weiß das Setup das eigentlich“ Die Frage ist berechtigt, denn einfach mal „nachschauen“ ist halt für eine Software nicht ganz so einfach wie für uns.<\/p>\n
Das Geheimnis heißt „Mutex“. Das ist die Kurzform von „mutual exclusion“, auf Deutsch „gegenseitiger Ausschluss“, eine beeindruckend gute Bezeichnung für diesen Mechanismus.<\/p>\n
Denn die Setupdurchführung und das laufende Programm schließen sich gegenseitig aus. Während die ACCDB aktiv ist, sollte man sie nicht per Setup austauschen.<\/p>\n
Um dies zu nutzen, benötigen wir also sowohl in der Applikation als auch im Setup jeweils einen Mechanismus, der den Mutex setzen, löschen und überprüfen kann. Unsere Access-Applikation erzeugt den Mutex beim Start und löscht ihn kurz vor dem Ende.<\/p>\n
Das Setup wiederum überprüft nur, ob es ihn gibt. Falls ja, kommt eine Meldung wie oben gezeigt, falls nein, läuft das Setup einfach weiter.<\/p>\n
Das lässt sich in InnoSetup sogar soweit automatisieren, dass ein von der Accdb angestoßenes Update automatisch abläuft.<\/p>\n
Mutex-Klasse (VBA)<\/h2>\n
Mit Hilfe eines kurzen Codesegments schaffen wir es, den Mutex beim Starten unserer Access-Applikation zu erzeugen. Das übernimmt in meinen Projekten immer eine Klasse, die ich eigens dafür geschrieben habe.<\/p>\n
Es müsste natürlich keine Klasse sein, eine Sub-Prozedur täte es auch, aber mit der Klasse haben wir den Vorteil, dass wir mit einer Einheit beide Aktionen erledigen können: Erzeugen und Löschen des Mutex wird innerhalb der Klasse durchgeführt – und zwar über den Konstruktor Initialize<\/b> und den Destruktor Terminate<\/b> der Klasse.<\/p>\n
Zur Integration in die Applikation müssen neben der Klasse selbst nur noch eine Deklaration und zwei Zeilen Code eingefügt werden.<\/p>\n
Schauen wir uns zunächst die Mutex-Klasse an. Besonders aufwändig ist sie nicht (siehe Listing 1).<\/p>\n
''''\r\n'' Manage an Application Mutex for the current application\r\n'' @remarks  Mutex name = APP_MUTEX\r\n'' @author   Christoph Juengling <christoph@juengling-edv.de>\r\n'' @link   https:\/\/gitlab.com\/juengling\/vb-and-vba-code-library\r\nOption Explicit<\/span>\r\n#If VBA7 Then\r\nPrivate <\/span>Declare PtrSafe Function CreateMutex Lib \"kernel32\" Alias \"CreateMutexA\" (lpMutexAttributes As <\/span>Any, _\r\n      ByVal bInitialOwner As Long<\/span>, ByVal lpName As String<\/span>) As Long<\/span>Ptr\r\nPrivate <\/span>Declare PtrSafe Function CloseHandle Lib \"kernel32\" (ByVal hObject As Long<\/span>Ptr) As Long<\/span>\r\nPrivate <\/span>Declare PtrSafe Function ReleaseMutex Lib \"kernel32\" (ByVal hMutex As Long<\/span>Ptr) As Long<\/span>\r\n#Else\r\nPrivate <\/span>Declare Function CreateMutex Lib \"kernel32\" Alias \"CreateMutexA\" (lpMutexAttributes As <\/span>Any, _\r\n     ByVal bInitialOwner As Long<\/span>, ByVal lpName As String<\/span>) As Long<\/span>\r\nPrivate <\/span>Declare Function CloseHandle Lib \"kernel32\" (ByVal hObject As Long<\/span>) As Long<\/span>\r\nPrivate <\/span>Declare Function ReleaseMutex Lib \"kernel32\" (ByVal hMutex As Long<\/span>) As Long<\/span>\r\n#End If\r\nPrivate <\/span>m_lMutexHandle As Long<\/span>\r\nPrivate Sub <\/span>Class_Initialize()\r\n     m_lMutexHandle = 0\r\n     CreateMyMutex\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Class_Terminate()\r\n     ReleaseMyMutex\r\nEnd Sub<\/span>\r\n'' CreateMutex the Mutex\r\nPublic Sub <\/span>CreateMyMutex()\r\n     m_lMutexHandle = CreateMutex(ByVal CLng(0), CLng(1), APP_MUTEX)\r\nEnd Sub<\/span>\r\n''''\r\n'' ReleaseMutex the Mutex and close handle\r\n''\r\nPublic Sub <\/span>ReleaseMyMutex()\r\n     If <\/span>m_lMutexHandle > 0 Then<\/span>\r\n         ReleaseMutex m_lMutexHandle\r\n         CloseHandle m_lMutexHandle\r\n         m_lMutexHandle = 0\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: Klasse zum Nutzen eines Mutex<\/span><\/b><\/p>\n
Die Erzeugung passiert in Class_Initialize<\/b>, die Zerstörung in Class_Terminate<\/b>. Der einzige Bezug in unsere Applikation ist hier die Nutzung der globalen Konstanten APP_MUTEX<\/b>. Diese deklariert den Namen des Mutex:<\/p>\n
Public <\/span>Const APP_MUTEX = \"Mein Name ist Hase\"<\/pre>\n
Die Bezeichnung sollte sinnvollerweise dem Namen der Applikation entsprechen, so dass man natürlich auch APP_NAME <\/b>verwenden kann.<\/p>\n
Wichtig ist die Einzigartigkeit im Hinblick auf andere Applikationen! Eine solche Deklaration muss natürlich namensgleich später auch im InnoSetup-Skript enthalten sein, damit Setup und Applikation über dieselbe Bezeichnung verfügen.<\/p>\n
Nun müssen wir nur noch dafür sorgen, dass<\/p>\n