vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Fehler beim Aufruf der Bass.dll 
Autor: Fileplayer
Datum: 17.07.19 10:55

Hallo vieleicht kann jemand helfen !

Habe das Beispiel Programm unter VB 2012 Installiert. Keine Fehlermeldungen beim eingeben. Selbst das Kompilieren geht ohne Probleme. Nur bei Laufen erscheint diese Fehler Meldung : siehe Bild !

(Leider kann ich hier nicht Bilder hochladen !)

Das gibs doch garnicht, oder doch.

Gruss Gunni

Die Fehlermedung lautet:

Eine nicht behandelte Ausnahme des Typs "System.TypeInitializationException" ist in BASS_DLL.exe aufgetreten.

Zusätzliche Informationen: Der Typeninitialisierer für "Un4seen.Bass.Bass" hat eine Ausnahme verursacht.

Imports Un4seen.Bass
 
Public Class Form1
    Public stream As Integer
    Public peak(2) As Single
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        If Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, Me.Handle) = _
          False Then
            MessageBox.Show("Fehler beim Laden der Library")
        End If
 
 
        stream = Bass.BASS_StreamCreateFile("F:\X_VERSUCH1/Versuch-eins.mp3", _
          0, 0, BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN)
        Bass.BASS_ChannelPlay(stream, False)
 
    End Sub
 
    '--------------------------------------------------------------------------
    ' ---------------------------
 
    Private Sub Peak_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
 
        'Bass.BASS_ChannelGetLevel(stream, peak)
        Dim rechts As Integer = (Math.Round(peak(1), 3) * 100)
        Dim links As Integer = (Math.Round(peak(2), 3) * 100)
        Try
            ProgressBar1.Value = rechts
            ProgressBar2.Value = links
        Catch
 
        End Try
 
    End Sub
 
 
End Class

Schon macht man es richtig funktioniert es !

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler beim Aufruf der Bass.dll230Fileplayer17.07.19 10:55
Re: Fehler beim Aufruf der Bass.dll87Manfred X17.07.19 15:55

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2020 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel