Plugin problem

[EWeiss]

Hi

Ein seltsames verhalten zeigt sich wenn ich das Plugin Visual Ball (und andere) ausführen will.
Aus VB heraus gibt es keine Probleme Visual Ball für Sonique wird ordnungsgemäß ausgeführt mit der BassVis.dll

Starte ich das gleiche plugin auf die gleiche weise wie in VB
unter Delphi dann gibt es mir immer einen Fehler aus

Zitat:

floating point division durch null

Mit allen Sprachen C#, VB_NET, VB, MSVC funktioniert das Plugin nur unter Delphi nicht.

Die ausführung ist in allen Anwendungen gleich da sie über die BassVis gehen müssen.

VB

Delphi-Quellcode:

Public Declare Function BASS_SONIQUEVIS_CreateVis Lib "bass_vis.dll" ( _
    ByVal f As Any, _
    ByVal visconfig As Any, _
    ByVal flags As Long, _
    ByVal w As Long, _
    ByVal h As Long _
) As Long
VisChan = BASS_SONIQUEVIS_CreateVis(lstPathList.List(lstPlugins.ListIndex), sdir & "\vis.ini", 0, Picture1(0).ScaleWidth, Picture1(0).ScaleHeight)

Delphi

Delphi-Quellcode:

function BASS_SONIQUEVIS_CreateVis(f, visconfig:PChar; flags, w, h: DWORD):HVIS; stdcall; external 'bass_vis.dll';

vischan := BASS_SONIQUEVIS_CreateVis(PChar(vislist[ListBox1.ItemIndex]), PChar(PluginDir + '\vis.ini'), 0, Panel2.Width, Panel2.Height);

Irgend jemand eine Idee woran das liegen könnte ?
Nur Anwendungen in Delphi verursachen dieses Problem.


gruss Emil