Record/Struct rückgabe by ref/var

[Dejan Vu]

Bei Delphi ist das ein Rekord. Mit 'var' wird auf den Parameter per übergebener Referenz zugegriffen und Du kannst den Inhalt bearbeiten.

Bei C# wird die Referenz übergeben, weswegen das imho überhaupt erst funktioniert. Die Referenz an sich wird nicht verändert.

Wäre TBASSVIZ_PARAM eine Klasse, bräuchtest Du in Delphi das 'var' nicht, aber dann könntest Du von C# nicht drauf zugreifen.

[EWeiss]

Zitat:

Bei Delphi ist das ein Rekord. Mit 'var' wird auf den Parameter per übergebener Referenz zugegriffen und Du kannst den Inhalt bearbeiten.

Ja das ist mir schon klar ;)

Zitat:

Bei C# wird die Referenz übergeben, weswegen das imho überhaupt erst funktioniert. Die Referenz an sich wird nicht verändert.

An dieser aussage kann irgend etwas nicht stimmen..
Oder aber ich bin schlichtweg zu blöd dafür.

2 Kriterien die dagegen sprechen.

In meinen beiden Samples C# und VB_NET. Funktioniert es ohne übergabe aus meiner WrapperDLL.
Also.
WrapperDLL.

Code:

//BASSVIS_Free
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_Free", CharSet = CharSet.Auto)]
public static extern void BASSVIS_Free(BASSVIS_PARAM param);

Funktioniert also..
Aber nicht mit MediaPortal.

übergebe ich aus dem Wrapper bei "ref"

Code:

//BASSVIS_Free
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_Free", CharSet = CharSet.Auto)]
public static extern void BASSVIS_Free(ref BASSVIS_PARAM param);

funktionieren meine Samples nicht mehr.
MediaPortal sowieso nicht.
Weil ich Probleme habe dein Beispiel umzusetzen.
Es gibt da mehr als ein Interface in der ich das kapseln muss.

Warum also funktionieren meine Samples ohne Übergabe bei "ref" und mit dann nicht mehr ?
Natürlich habe ich dann die Funktionen in den Samples Angepasst.

Code:

BassVis.BASSVIS_Free(ref mVisParam);
bFree = mVisParam.VisHandle == 0;

bFree ist dann immer False weil das Handle > 0 (mit "ref") ohne ist es 0.

Kann es sein das es nicht ausreicht nur param by ref zurückzugeben?
Müsste ich speziell für den Fall noch selbst für die Rückgabe der Handles aus dem Wrapper sorgen?
Obwohl das eigentlich mir "ref" erledigt sein sollte.

Deshalb mein Einwand!

gruss

[EWeiss]

Vorher hatte ich eine Function zum prüfen ob das Handle 0 ist.

Delphi-Quellcode:

function BASSVIS_IsFree(Param: PBASSVIS_PARAM): BOOL; stdcall;

Diese wollte ich mir durch das bei "var" sparen.
Weil jegliche zusätzliche Export Funktion das Arbeiten mit der DLL unnötig verkompliziert.
Aber scheinbar geht es nicht ohne.

gruss

[Dejan Vu]

Ich bin auch etwas verwirrt. Vielleicht habe ich auch etwas falsch verstanden. Könntest Du noch einmal genau wiedergeben, wie die Methode in der DLL deklariert ist, oder den Post zeigen, wo das erklärt ist.

[EWeiss]

Zitat:

Zitat von Dejan Vu (Beitrag 1302733)

Ich bin auch etwas verwirrt. Vielleicht habe ich auch etwas falsch verstanden. Könntest Du noch einmal genau wiedergeben, wie die Methode in der DLL deklariert ist, oder den Post zeigen, wo das erklärt ist.

Gerne doch wenn es hilft.

Der Wrapper Schnittstelle zwischen BassVis.dll und der .NET Anwendung.
Damit User die VB_NET verwenden nicht so viel Probleme mit unmanaged code haben.
Zudem können beide .NET Environment dann diese eine DLL als reference zum Projekt hinzufügen.

Die Class BASSVIS_PARAM..

Code:

    [Serializable, StructLayout(LayoutKind.Sequential)]
    public sealed class BASSVIS_PARAM
    {
        public int VisHandle;
        public IntPtr VisGenWinHandle;
        public BASSVISKind Kind;
        public BASSVIS_PARAM(BASSVISKind kind)
        {
            this.Kind = kind;
            this.VisHandle = 0;
            this.VisGenWinHandle = IntPtr.Zero;
        }

        public BASSVIS_PARAM(BASSVISKind kind, int visHandle)
        {
            this.Kind = kind;
            this.VisHandle = visHandle;
            this.VisGenWinHandle = IntPtr.Zero;
        }
    }

und die external Funktion vom Export aus der BassVis.dll

Code:

//BASSVIS_Free
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("bass_vis.dll", EntryPoint = "BASSVIS_Free", CharSet = CharSet.Auto)]
public static extern void BASSVIS_Free(ref BASSVIS_PARAM param);

Der Record in BassVis.dll (Delphi Seite)

Delphi-Quellcode:

  PBASSVIS_PARAM = ^TBASSVIS_PARAM;
  TBASSVIS_PARAM = record
    VisHandle        : HVIS;            // VisHandle
    VisGenWinHandle  : DWORD;           // General Vis Window Handle W5
    Kind             : TBASSVIS_KIND_T; // Aktive Plugin Art
  end;

die Funktion die exportiert wird.

Delphi-Quellcode:

procedure BASSVIS_Free(var Base: TBASSVIS_PARAM); stdcall;

gruss