Tipps und Tricks zur API

Autor: Christoph Spielmann, Düsseldorf

Bei der Windows-API (Application Programmers Interface) handelt es sich um eine mächtige Bibliothek von Funktionen, die Ihnen den Zugang zu Windows-internen Ressourcen ermöglichen. Unser Autor Christoph Spielmann hat für den vorliegenden Beitrag in seinen umfangreichen Erfahrungsschatz gegriffen, um Ihnen anhand einiger Beispiele die Möglichkeiten der API zu eröffnen.

Temporäre Dateien werden von Anwendungen vorübergehend angelegt, um verschiedene Daten, Zustände oder gerade in Bearbeitung befindliche Dokumente zwischenzuspeichern.

Es ist zwar kein Muss, aber als allgemeine übereinkunft gilt, einen im System als speziell für diesen Zweck deklarierten Ordner zur Ablage von temporären Dateien zu verwenden – den TEMP-Ordner.

Windows stellt dazu sogar eine eigene API-Funktion bereit, über die Sie den Pfad dieses Ordners ermitteln können (Gesucht – Systemordner). Und wie der Name es sagt: Temporäre Dateien sind ihrer Natur nach vergänglich – Ihre Anwendungen sollten daher auch dafür sorgen, dass sie von Ihnen angelegte temporäre Dateien spätestens beim Beenden wieder löschen.

Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal _    pszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, _
    ByVal lpTempFileName As String) As Long

Quellcode 1

Wenn Sie für Ihr Programm eine temporäre Datei erzeugen wollen, brauchen Sie einen eindeutigen Dateinamen. Denn schließlich legen ja auch andere Anwendungen im TEMP-Ordner ihre Dateien ab, sodass es leicht zu Namenskonflikten kommen könnte.

Sie könnten natürlich einfach einen beliebigen Dateinamen wählen und für den Fall, dass eine Datei dieses Namens bereits existieren sollte, in einer Schleife einen neuen Dateinamen kreieren, bis Sie einen freien gefunden haben.

Doch besser ist wie immer der Weg, die speziell dafür bereitgestellte API-Funktion GetTempFileName (s. Quellcode 1) zu verwenden. Der Funktion werden vier Parameter übergeben.

Im ersten Parameter, lpszPath übergeben Sie den Pfad, in dem der temporäre Dateiname angelegt werden soll, vorzugsweise den des TEMP-Ordners.

In lpPrefixString übergeben Sie einen aus bis zu drei Zeichen bestehenden Präfix, den Sie dem Dateinamen voranstellen möchten. Damit können Sie gewissermaßen eine Anwendung individuell hervorheben. Sie können natürlich auch ganz normal ein “tmp” übergeben.

Private Declare Function GetTempFileName _    Lib "kernel32" Alias "GetTempFileNameA" _    (ByVal lpszPath As String, ByVal lpPrefixString As _    String, ByVal wUnique As Long, _    ByVal lpTempFileName As String) As Long 
Private Declare Function GetTempPath Lib "kernel32" _    Alias "GetTempPathA" (ByVal BufferLength As Long, _    ByVal lpBuffer As String) As Long
Private Const kLength = 255
Public Function CreateTempFile(Optional Prefix As _    String = "tmp", Optional TempPath As String) _    As String
    Dim nBuffer, nTempPath As String
    Dim nReturn, nPosEnd As Long
    If Len(TempPath) = 0 Then
        nBuffer = Space(kLength)
        nReturn = GetTempPath(kLength, nBuffer)
        If nReturn > 0 Then
            nTempPath = Left(nBuffer, nReturn)
        Else
            nTempPath = CurDir$
            If Right$(nTempPath, 1) <> "\" Then
                nTempPath = nTempPath & "\"
            End If
        End If
    Else
        nTempPath = TempPath
    End If
    nBuffer = Space(kLength)
    nReturn = GetTempFileName(nTempPath, Left$(Prefix, _        3), 0&, nBuffer)
    If nReturn <> 0 Then
        nPosEnd = InStr(nBuffer, Chr$(0))
        If nPosEnd = 0 Then
            CreateTempFile = nBuffer
        Else
            CreateTempFile = Left(nBuffer, nPosEnd - 1)
        End If
    End If
End Function

Quellcode 2

Um den Parameter wUnique brauchen Sie sich nicht unbedingt zu kümmern. Hier könnten Sie Ihrer temporären Datei eine von Ihrer Anwendung selbst generierte und verwaltete Nummer geben. übergeben Sie 0, erzeugt Windows selbst eine eindeutige Zahl anhand der Systemzeit.

Im Puffer lpTempFileName liefert Ihnen die Funktion den erzeugten Dateinamen zurück.

Die Funktion CreateTempFile (s. Quellcode 3) verpackt den Aufruf auf VBA-gerechte und einfach zu handhabende Weise.

Beide Parameter sind optional. Verzichten Sie auf den individuellen Präfix, wird “tmp” als Präfix verwendet. Lassen Sie die Pfadangabe weg, wird die Datei automatisch im TEMP-Ordner des Systems angelegt. Dazu wird hier die API-Funktion GetTempPath (s. Quellcode 2) direkt aufgerufen (Gesucht Systemordner). Konnte aus irgendeinem Grund keine temporäre Datei angelegt werden, wird ein leerer String zurückgegeben.

Beachten Sie, dass der Aufruf der API-Funktion GetTempFileName (s. Quellcode 2) auf jeden Fall eine Datei anlegt, die Sie nach Gebrauch oder Nichtgebrauch wieder ordnungsgemäß löschen sollten. Dieses Funktionalität der API-Funktion ist sinnvoll, da nach der Ermittlung eines unverwendeten Dateinamens dieser unter Umständen doch schon nicht mehr frei sein könnte, wenn Sie selbst nur Sekunden später eine Datei dieses Namens anzulegen versuchten.

Function CreatePathDeep(NewPath As String) As Boolean
    Dim nNewPath As String
    Dim nStart As Integer
    nNewPath = Trim$(NewPath)
    If Left$(nNewPath, 2) = "\\" Then
        If Len(nNewPath) > 6 Then
            nStart = 7
        Else
            Exit Function
        End If
    ElseIf Mid$(nNewPath, 2, 2) = ":\" Then
        nStart = 4
    Else
        Exit Function
    End If
    If nStart Then
        Do
            nPos = Instr(nStart, nNewPath, "\")
            If nPos Then
                On Error Resume Next
                MkDir Left$(nNewPath, nPos - 1)
                On Error GoTo 0
            Else
                On Error Resume Next
                MkDir nNewPath
                If Err.Number = 0 Then
                    CreatePathDeep = True '' Erfolg
                End If
                On Error GoTo 0
            End If
        Loop While nPos
    End If
End Function

Quellcode 3

Ein neuer Ordner in einem tief verschachtelten Pfad kann mit der VBA-Funktion MkDir nur dann angelegt werden, wenn der Pfad selbst bereits vorhanden ist. Anderenfalls ist es in VBA eine recht mühselige Angelegenheit.

Wollten Sie beispielsweise den Pfad c:\abc\def\ghi anlegen, wenn selbst c:\abc noch nicht existiert, sähe das etwa so aus:

On Error Resume Next
MkDir "c:\abc"
MkDir "c:\abc\def"
MkDir "c:\abc\def\ghi"
On Error GoTo 0

Direkt an Ort und Stelle im Code platziert ist das schon recht aufwändig. Es würde allerdings noch aufwendiger, wenn Sie diese Codezeilen als allgemein verwendbare Funktion implementieren wollten (s. Quellcode 3).

Für Windows-Versionen vor Windows 98 werden Sie nicht darum herum kommen, eine solche oder ähnliche Funktion auf diese Weise zu implementieren. Ab Windows 98 und unter Windows NT können Sie jedoch eine API-Funktion aus einer der System-DLLs (imagehlp.dll) verwenden.

Sie haben das Ende des frei verfügbaren Textes erreicht. Möchten Sie ...

TestzugangOder bist Du bereits Abonnent? Dann logge Dich gleich hier ein. Die Zugangsdaten findest Du entweder in der aktuellen Print-Ausgabe auf Seite U2 oder beim Online-Abo in der E-Mail, die Du als Abonnent regelmäßig erhältst:

Schreibe einen Kommentar