Option Explicit
 
Public Function bJPG(ByVal ResID As Long) As Byte
    bJPG = LoadResData(ResID, "JPG")
End Function

' Temporäre Dateinamen
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.dll" _
  Alias "GetTempPathA" (ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long
 
' Byte-Array temporär speichern
' hierfür wird im TEMP-verzeichnis eine TMP-Datei
' erzeugt, deren Pfad und Namen von der Funktion
' zurückgegeben wird
Public Function resSaveDataTemp(ByRef bData() As Byte) As String
  Dim F As Integer
  Dim sTempPath As String
  Dim sTempFile As String
  Dim lngResult As Long
 
  ' Temporäres Verzeichnis ermitteln
  sTempPath = Space$(256)
  lngResult = GetTempPath(Len(sTempPath), sTempPath)
  sTempPath = Left$(sTempPath, lngResult)
 
  ' Temporären Dateinamen ermitteln
  sTempFile = Space$(256)
  Call GetTempFileName(sTempPath, "~RES", 0&, sTempFile)
  sTempFile = Left$(sTempFile, InStr(sTempFile, Chr$(0)) - 1)
 
  ' Byte-Array in temporäre Datei speichern
  F = FreeFile
  Open sTempFile For Binary As #F
  Put #F, , bData()
  Close #F
 
  ' Pfad+Namen der TEMP-Datei zurückgeben
  resSaveDataTemp = sTempFile
End Function