markieren

Delphi-Quellcode:

  PBASSVIS_PLUGINS = ^TBASSVIS_PLUGINS;
  TBASSVIS_PLUGINS = record
    PluginHandle : HVIS; // Plugin Handle
    PluginPath : string; // Plugin Name mit Pfad
    PluginName : string; // Plugin Name ohne Pfad
    ModuleCount : integer; // Module Preset Count
    ModuleName : array of string; // Module Preset Name
  end;

Mein Anfang!

markieren

Code:

    [Serializable, StructLayout(LayoutKind.Sequential)]
    public sealed class BASSVIS_PLUGINS
    {
        public int PluginHandle;
        [MarshalAs(UnmanagedType.LPStr)]
        public string PluginPath = string.Empty;      
        [MarshalAs(UnmanagedType.LPStr)]
        public string PluginName = string.Empty;        
        public int ModuleCount;
        [MarshalAs(UnmanagedType.LPStr)]
        public string[,] ModuleName;
        public BASSVIS_PLUGINS(BASSVIS_PLUGINS[,] Plugins)
        {
        }
    }

markieren

Delphi-Quellcode:

function BASSVIS_GetPlugins(
  Kind: TBASSVIS_KIND_T;
  PluginPath: PAnsiChar;
  Searchflags: DWORD
): TPlugins; stdcall; external dllfile;

markieren

Code:

//BASSVIS_GetPlugins
[return: MarshalAs(UnmanagedType.Struct)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_GetPlugins", CharSet = CharSet.Auto)]
private static extern BASSVIS_PLUGINS[,] BASSVIS_GetPlugins(BASSVISKind kind, [In, MarshalAs(UnmanagedType.LPStr)] string PluginPath, BASSVISFindFlags BASSVIS_FIND_DEFAULT);

TPlugins = array of TBASSVIS_PLUGINS

markieren

Code:

public BASSVIS_PLUGINS(BASSVIS_PLUGINS[,] Plugins)

EDIT:
Bin mir aber nicht sicher ob das alles seine richtigkeit hat.

gruss

Gibt es einen speziellen Grund, dass du nicht einfach Bass .NET benutzt?

Laut Beschreibung sollten doch alle Addons dabei sein.

Zitat von jaenicke:

Gibt es einen speziellen Grund, dass du nicht einfach Bass .NET benutzt?

Laut Beschreibung sollten doch alle Addons dabei sein.

Weil die Library Bass_Vis von mir in Delphi geschrieben wurde.
Und Bass.NET diese nicht unterstützt da ich meinen eigenen NET.Wrapper habe.

Das dauert zwar solche sachen wie hier zu Konvertieren damit bin ich aber unabhängig.

Sorry deine Frage hilft mir aber nun wirklich nicht weiter.

gruss

Hätte ja sein können, dass du das nicht kennst.

Gut, also was mir auf den ersten Blick auffällt ist, dass da das stdcall fehlt. In DllImport muss noch stehen:

markieren

Code:

CallingConvention=CallingConvention.StdCall

Zitat von jaenicke:

Hätte ja sein können, dass du das nicht kennst.

Gut, also was mir auf den ersten Blick auffällt ist, dass da das stdcall fehlt. In DllImport muss noch stehen:

markieren

Code:

CallingConvention=CallingConvention.StdCall

Ahh Danke werd es mal addieren und sehen was bei rum kommt.

Bekomme jetzt diese Meldung nach meiner Änderungen.

Zitat:

An unhandled exception of type 'System.Runtime.InteropServices.MarshalDirectiveEx ception' occurred in BassVisAPI.Net.dll
Additional information: "return value" kann nicht gemarshallt werden: Ungültige verwaltete/nicht verwaltete Typenkombination..

markieren

Code:

private BASSVIS_PLUGINS[,] Plugins;

markieren

Code:

Plugins = BassVis.BASSVIS_GetPlugins((BASSVISKind)cbVisType.SelectedIndex, PluginDir, true);
if (Plugins != null)
{
  foreach (BASSVIS_PLUGINS p in Plugins)
  {
    string name = Path.GetFileName(p.PluginPath);
    string path = Path.GetDirectoryName(p.PluginPath);

    lstPlugins.Items.Add(name);
    pluginPathList.Add(path);
  }
}

Meine Änderung!

markieren

Code:

//BASSVIS_GetPlugins
public static BASSVIS_PLUGINS[,] BASSVIS_GetPlugins(BASSVISKind kind, string pluginPath, bool recursive)
{
  BASSVIS_PLUGINS[,] Plugins = BASSVIS_GetPlugins(kind, pluginPath, recursive ? BASSVISFindFlags.BASSVIS_FIND_RECURSIVE : BASSVISFindFlags.BASSVIS_FIND_DEFAULT);
  return Plugins;
}
[return: MarshalAs(UnmanagedType.LPArray)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_GetPlugins", CharSet = CharSet.Auto)]
private static extern BASSVIS_PLUGINS[,] BASSVIS_GetPlugins(BASSVISKind A_0, [In, MarshalAs(UnmanagedType.LPStr)] string A_1, BASSVISFindFlags A_2);

ObjectBrowser..

markieren

Code:

public static BassVis_Api.BASSVIS_PLUGINS[,] BASSVIS_GetPlugins(BassVis_Api.BASSVISKind kind, string pluginPath, bool recursive)
    Member of BassVis_Api.BassVis

PS:
Hat leider nichts gebracht gleicher Fehler wie oben.
Hätte mich auch gewundert da ich in allen meinen Funktionen das stdcall nicht addiert habe.
Und diese Funktionieren. (Aber ein versuch konnte ja nicht schaden )

Neuer versuch..

markieren

Code:

[return: MarshalAs(UnmanagedType.SafeArray)]

Jetzt hat er nach dem Einsprungspunkt in der DLL gefragt. DLL ersetzt nächster Fehler.

Zitat:

An unhandled exception of type 'System.ExecutionEngineException' occurred in BassVisAPI.Net.dll

Verdammt schwierig

gruss

Soweit habe ich es schon mal..

markieren

Code:

#region Winamp

if (index == Convert.ToInt32(BASSVISKind.BASSVISKIND_WINAMP))
{

  Plugins = BassVis.BASSVIS_GetPlugins((BASSVISKind)cbVisType.SelectedIndex, PluginDir, true);
  if (Plugins != null)
  {
    foreach (BASSVIS_PLUGINS p in Plugins)
    {
      string name = Path.GetFileName(p.PluginPath);
      string path = Path.GetDirectoryName(p.PluginPath);

      lstPlugins.Items.Add(name);
      pluginPathList.Add(path);
    }
       
    lstPlugins.SelectedIndex = 0;

    mVisParam.VisHandle = Plugins[lstPlugins.SelectedIndex].PluginHandle;
    int NumModule       = Plugins[lstPlugins.SelectedIndex].ModuleCount;
    string Pluginname   = Plugins[lstPlugins.SelectedIndex].PluginName;

    if (!(NumModule > 0))
    {
      return;
    }                   
    Descript.Text = Pluginname;

    for (int IntI = 0; IntI <= (NumModule - 1); IntI++)
    {
      VisModules.Items.Add(Plugins[lstPlugins.SelectedIndex].ModuleName);
    }

    if (NumModule > 0)
    {
      VisModules.SelectedIndex = 0;
    }

    if (Stream != 0 && NumModule == 1)
    {
      cmdStartVis_Click(null, null);
    }
  }
}

#endregion Winamp

Aber immer noch einen Fehler.

markieren

Code:

Plugins = BassVis.BASSVIS_GetPlugins((BASSVISKind)cbVisType.SelectedIndex, PluginDir, true);

Zitat:

An unhandled exception of type 'System.ExecutionEngineException' occurred in BassVisAPI.Net.dll

Die Ausnahme, die bei einem internen Fehler im Ausführungsmodul der Common Language Runtime ausgelöst wird. Die Klasse kann nicht vererbt werden.

Hatte ein 2Dimensionales Array [,] das war schon mal falsch.
Was soll da falsch sein das die Klasse nicht vererbt wird?

markieren

Code:

//BASSVIS_GetPlugins
public static BASSVIS_PLUGINS[] BASSVIS_GetPlugins(BASSVISKind kind, string pluginPath, bool recursive)
{
  BASSVIS_PLUGINS[] Plugins = BASSVIS_GetPlugins(kind, pluginPath, recursive ? BASSVIS_FINDFLAGS.BASSVIS_FIND_RECURSIVE : BASSVIS_FINDFLAGS.BASSVIS_FIND_DEFAULT);
  if (Plugins != null)
  {
    return Plugins;
  }
  return null;
}
[return: MarshalAs(UnmanagedType.SafeArray)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_GetPlugins", CharSet = CharSet.Auto)]
private static extern BASSVIS_PLUGINS[] BASSVIS_GetPlugins(BASSVISKind kind, [In, MarshalAs(UnmanagedType.LPStr)] string pluginPath, BASSVIS_FINDFLAGS recursive);

An der Überladenen Function kann es eigentlich nicht liegen.

Hmm....

gruss