Excel DNA - Marshal C# Zeichenfolge zu VBA ByRef in Rückruf

Question

Ich versuche, einen VBA-Callback in Excel aus C# -Code mit Excel-DNA aufzurufen. um mit den speziellen Datentypen Nach Messing und Rangier-Erklärungen, konnte ich endlich eine Arbeitsprobe erstellen:

C# -Code

[ComVisible(true)] 
[ClassInterface(ClassInterfaceType.AutoDispatch)] 
[ProgId("CSharpComObject")] 
public partial class CSharpComObject 
{ 
    Dictionary<string, Callback> _callbackMap = new Dictionary<string, Callback>(); 


    public void SubscribeStringData(string topic, [MarshalAs(UnmanagedType.FunctionPtr)] Callback callback) 
    { 
     _callbackMap[topic] = callback; 
    } 

    public void RaiseCallback(string topic, string data) 
    { 
     _callbackMap[topic](data); 
    } 

    public delegate void Callback([MarshalAs(UnmanagedType.BStr)] string data); 
} 

VBA-Modul

Option Explicit 

Dim testObj As Object 



Sub Subscribe() 

Set testObj = CreateObject("CSharpComObject") 

testObj.SubscribeStringData "someTopic", AddressOf StringDataCallback 

End Sub 



Sub StringDataCallback(ByVal data As String) 

MsgBox "StringDataCallback Raised [" + data + "]" 

End Sub 

---

Frage

Wie Sie aus dem Codebeispiel oben sehen können, die Standard-COM-Rangierung für Strings ist BStr auch bekannt als ByVal ... As String.

Ich frage mich, ob es eine Möglichkeit gibt, Zeichenfolgedaten (oder einen beliebigen anderen Objekttyp) an den VBA-Callback weiterzugeben, und wenn ja, wie würden die C# -Deklarationen und Marshalling-Attribute aussehen?

Answer 1

Die Angabe des Parameters als ref string sollte funktionieren.

Weitere Informationen zu den String-Marshalling-Optionen finden Sie unter https://msdn.microsoft.com/en-us/library/s9ts558h(v=vs.110).aspx.