Oki,
just to proove that it is working fine (and that something else might be wrong on your side), here is my compete test app source code for you:
It is in C#, but as you are a developer since 1977 it shouldn't be hard to convert - as said, I'm not a VB guy.
using System;
using System.IO;
using System.Collections.Generic;
using System.ComponentModel;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Un4seen.Bass;
using Un4seen.Bass.AddOn.Fx;
using Un4seen.Bass.AddOn.Tags;
using Un4seen.Bass.Misc;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private Dictionary<int, string> _loadedPlugIns;
private void Form1_Load(object sender, EventArgs e)
{
if (Utils.Is64Bit)
{
if (Bass.LoadMe(Path.Combine(Application.StartupPath, "bass64")))
textBox1.AppendText("Bass.LoadMe successfull!\r\n");
if (BassFx.LoadMe(Path.Combine(Application.StartupPath, "bass64")))
textBox1.AppendText("BassFx.LoadMe successfull!\r\n");
_loadedPlugIns = Bass.BASS_PluginLoadDirectory(Path.Combine(Application.StartupPath, "bass64\\addons"));
if (_loadedPlugIns.Count > 0)
textBox1.AppendText("Bass.BASS_PluginLoadDirectory successfull!\r\n");
}
else
{
if (Bass.LoadMe(Path.Combine(Application.StartupPath, "bass32")))
textBox1.AppendText("Bass.LoadMe successfull!\r\n");
if (BassFx.LoadMe(Path.Combine(Application.StartupPath, "bass32")))
textBox1.AppendText("BassFx.LoadMe successfull!\r\n");
_loadedPlugIns = Bass.BASS_PluginLoadDirectory(Path.Combine(Application.StartupPath, "bass32\\addons"));
if (_loadedPlugIns.Count > 0)
textBox1.AppendText("Bass.BASS_PluginLoadDirectory successfull!\r\n");
}
if (Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, this.Handle))
textBox1.AppendText("Bass.BASS_Init successfull!\r\n");
}
private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
if (_loadedPlugIns != null)
{
foreach (int plugin in _loadedPlugIns.Keys)
Bass.BASS_PluginFree(plugin);
}
Bass.BASS_Free();
BassFx.FreeMe();
Bass.FreeMe();
}
}
}
The code assumes a simple TextBox to be present on the form.
