Aufruf Delphi-Dll von DotNet, Probleme mit struct-Parameter

[himitsu]

Statt AnsiString vielleicht WideString ... .NET sollte doch auch mit einem BSTR zurecht kommen?

Zumindestens ist es keine gute praktische Idee Delphi-Typen zu tauschen.
PAnsiChar, PWideChar oder eben BSTR, wobei Letzerer seine eigene Speicherverwaltung hat, welche von beiden Systemen angesprochen werden kann.

[edit]
Ups, TiGü übersehn.

[TiGü]

Zitat von himitsu:

[edit]
Ups, TiGü übersehn.

Die nächsten Beiträge schreibe ich in animierter Flammenschrift (Größe 36)...

[EWeiss]

bsp. von meiner LIB

*.dll

Delphi-Quellcode:

function BASSVIS_GetVersion: PAnsiChar; stdcall;

const
  cverfor = '%d.%d.%d.%d';

var
  ver : TBASSVIS_VERSION;
  str : string;
begin
  ver := GetVersionNumber;
  str := format(cverfor,[ver.Major,ver.Minor,ver.Special,ver.Build]);
  result := PAnsiChar(Ansistring(str));

end;

managed dll C#

Code:

    //BASSVIS_GetVersion
    public static string BASSVIS_GetVersion()
    {
      IntPtr ptr = BASSVIS_GetVersionPtr();
      if (ptr != IntPtr.Zero)
      {
        return Marshal.PtrToStringAnsi(ptr);
      }
      return null;
    }
    [DllImport("bass_vis.dll", EntryPoint = "BASSVIS_GetVersion", CharSet = CharSet.Auto)]
    private static extern IntPtr BASSVIS_GetVersionPtr();

Aber er scheint ja seine Lösung gefunden zu haben.

gruss

[himitsu]

Statt Boolean könnte auch noch ByteBool, WordBool oder LongBool verwendet werden.
LongBool = BOOL (4 Bytes) im C++, was es irgendwie bestimmst auch im C# gibt.

[EWeiss]

Zitat von himitsu:

Statt Boolean könnte auch noch ByteBool, WordBool oder LongBool verwendet werden.
LongBool = BOOL (4 Bytes) im C++, was es irgendwie bestimmst auch im C# gibt.

Richtig BOOL wäre bei Delphi <> Sharp die bessere Alternative.

gruss

[KodeZwerg]

Zitat von JFB:

Vielen Dank! Du hast mich auf die richtige Spur gebracht.
---> Unmanaged.LPStr (statt wie bisher in UnmanagedType.ByValTStr) geändert.

Gern geschehen und von C# Seite her Klasse das Du es hinbekommen hast, wie dort definitionen lauten müssen habe ich keine Ahnung.

[EWeiss]

Was mir noch auffällt du solltest den String initialisieren..

Code:

[MarshalAs(UnmanagedType.LPStr)]
public string Waehrung = string.Empty;

[MarshalAs(UnmanagedType.Bool)]
public bool P39A3;

Scheint irgendwie alles nur Halbfertig!

Zudem solltest du dir überlegen von der Struct abzuweichen und statt dessen eine Class verwenden.
https://docs.microsoft.com/de-de/dot...s-and-structs/

Code:

[Serializable, StructLayout(LayoutKind.Sequential)]
public sealed class TPara1Rec

https://docs.microsoft.com/de-de/dot...-class-members

gruss