Tipp 0215 Ressourcen-Datei entladen
Autor/Einsender:
Datum:
  Alexander Csadek
01.04.2002
Entwicklungsumgebung:   VB 5
Dieser Tipp zeigt wie verschiedene Dateien aus der Ressourcen-Datei (RES) in einem Programm wieder entladen werden können. Dies geschieht über die Funktion LoadResData. Die Funktion liefert ein Array of Bytes, welches der Datei entspricht. Der Array wird dann mit
 
Open App.Path & "\" & FileName For Binary As #lFile
 
in das Programm-Verzeichnis geschrieben. Dann kann z.B. das WAV- oder MIDI-File in dem VB-Programm verwendet werden.
 
Option Explicit

Private Sub cmd_Unload_Click()
  RES_Entladen "101", "CUSTOM", "Sound.wav"
  RES_Entladen "102", "CUSTOM", "parson.mid"
  RES_Entladen "103", "CUSTOM", "vb-fun.jpg"
  RES_Entladen "104", "CUSTOM", "Puepp.mp3"
  RES_Entladen "105", "CUSTOM", "ReadMe.txt"

  MsgBox "Die in der Ressourcen-Datei enthaltenen Dateien " & _
         "wurden wieder separiert.", vbInformation + vbOKOnly, _
         "Information"
End Sub

Private Sub RES_Entladen(ID_Ressource As String, _
      Typ_Ressource As String, FileName As String)
  Dim sType As String
  Dim lFile As Long
  Dim lID As Long
  Dim bt() As Byte

  On Error Resume Next
  lFile = FreeFile
  Open App.Path & "\" & FileName For Binary As #lFile
  lID = CLng(ID_Ressource)
  sType = Typ_Ressource
  bt = LoadResData(lID, sType)
  Put #lFile, , bt()
  Close #lFile
End Sub
 
Weitere Links zum Thema
Binäre Ressourcen-Datei
Mehrsprachige Anwendungen erstellen
Ressourcen-Dateien verwenden

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (69,6 kB) Downloads bisher: [ 943 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 30. August 2011