c# - .NET DLL necesita recibir un procedimiento de devolución de llamada Clarion y luego todo lo que pasa tres ints?

callback

Question

Estoy escribiendo una DLL C # .NET para un programa Clarion (Clarion es C ++ como el lenguaje de programación).

Llamé a la DLL de C # .NET bien, todo funciona bien. Sin embargo, necesito esa DLL C # .NET para recibir un Procedimiento de Clarion para propósitos de devolución de llamada y luego poder llamar a ese procedimiento pasando tres parámetros int.

El procedimiento Clarion se ve así (un Clarion long es un C # int):

MyCallBack procedure(long p1, long p2, long p3)
... Data ...
    code
    ... Code ...

¿Cómo paso el procedimiento abvoe al DLL de C # .NET y cómo llama el DLL de C # a ese procedimiento que pasa tres parámetros int?

Gracias por adelantado.

Answer 1

Esperemos que este ejemplo le brinde un lugar donde comenzar, se basa en un ejemplo de los grupos de noticias de SoftVelocity (versión de texto plano en caché aquí ).

Nota: Estoy usando el paquete RGiesecke DllExport y una versión modificada de Clarion LibMaker para crear un archivo lib compatible. Usted mencionó que ya está llamando al DLL de C # sin problema, así que supongo que está haciendo algo similar. Si estás interesado, profundizaré en esto en mi blog .

Código Clarion

  PROGRAM
  MAP
    MODULE(''ManagedCSharpDLL.dll'')
CallbackProc                PROCEDURE(BSTRING PassedValue, *BSTRING ReturnValue),TYPE,PASCAL,DLL(TRUE)
SetCallback                 PROCEDURE(*CallbackProc pCallback),NAME(''SetCallback''),PASCAL,RAW,DLL(TRUE)
TestCallback                PROCEDURE(*CString passedString),NAME(''TestCallback''),PASCAL,RAW,DLL(TRUE)
    END
Callback                PROCEDURE(BSTRING PassedValue, *BSTRING ReturnValue),PASCAL
  END
a                   CSTRING(20)

CODE
  Message(''Clarion: SetCallback(Callback)'')
  SetCallback(Callback)

  a = ''Call Test Worked''
  Message(''Clarion: Send message: '' & a)

  TestCallback(a)

  Message(''Clarion: Made call and got back safely'')

Callback      PROCEDURE(BSTRING PassedValue, *BSTRING ReturnValue)

  CODE
    MESSAGE(''Clarion: Passed Value: '' & PassedValue)
    ReturnValue = ''Done''

C # Code

using System;
using System.Runtime.InteropServices;
using System.Windows.Forms;
using RGiesecke.DllExport;

namespace ManagedCSharpDLL
{
  public static class UnmanagedExports
  {

    private static CallbackProc _callback;

    [DllExport("SetCallback", CallingConvention = System.Runtime.InteropServices.CallingConvention.StdCall)]
    public static void SetCallback(CallbackProc pCallback)
    {
      _callback = pCallback;
      MessageBox.Show("C#: SetCallback Completed");
    }

    [DllExport("TestCallback", CallingConvention = System.Runtime.InteropServices.CallingConvention.StdCall)]
    public static void TestCallback(string passedString)
    {
      string displayValue = passedString;
      string returnValue = String.Empty;

      MessageBox.Show("C#: About to call the Callback. displayValue=" + displayValue + ", returnValue=" + returnValue);
      _callback(displayValue, ref returnValue);
      MessageBox.Show("C#: Back from the Callback. displayValue=" + displayValue + ", returnValue=" + returnValue);
    }

    public delegate void CallbackProc( [MarshalAs(UnmanagedType.BStr)] String PassedValue,  [MarshalAs(UnmanagedType.BStr)] ref String ReturnValue);

  }
}