function ccExport( fCode : LongInt;
                   fData : PChar;
                   fSize : LongInt;
                   Msg   : PChar ) : LongInt;

function ccWideExport( fCode : LongInt;
                       fData : PWideChar;
                       fSize : LongInt;
                       Msg   : PWideChar ) : LongInt;

library ccExampleExport;

// ================================================================
{$R *.res}
{$WARN UNIT_PLATFORM OFF}
{$WARN SYMBOL_PLATFORM OFF}

// ================================================================
uses
  Classes;

// ================================================================
const
  Version          = '1.0.0';
  InterfaceVersion = '1';

// ----------------------------------------------------------------
const
  ccfCode_ES_Initialize         = 100;
  ccfCode_ES_GetInterfaceVersion= 101;
  ccfCode_ES_GetVersion         = 105;
  ccfCode_ES_SetConfig          = 110;
  ccfCode_ES_SetParameter       = 115;
  ccfCode_ES_SetOEMInfos        = 116;
  ccfCode_ES_GetDocPath         = 120;
  ccfCode_ES_SetDestination     = 130;
  ccfCode_ES_SetExpBuffer       = 160;
  ccfCode_ES_GetExpBuffer       = 170;
  ccfCode_ES_StartDoc           = 200;
  ccfCode_ES_StartStack         = 250;
  ccfCode_ES_AddTitle           = 300;
  ccfCode_ES_AddField           = 400;
  ccfCode_ES_AddTableData       = 450;
  ccfCode_ES_AddBlob            = 500;
  ccfCode_ES_AddBlobName        = 510;
  ccfCode_ES_AddBlobDocType     = 530;
  ccfCode_ES_AskBlobDelete      = 550;
  ccfCode_ES_EndDoc             = 600;
  ccfCode_ES_EndStack           = 650;
  ccfCode_ES_RollBack           = 700;
  ccfCode_ES_CallCfgDlg         = 800;
  ccfCode_ES_GetConfig          = 850;
  ccfCode_ES_Finalize           = 900;

// ----------------------------------------------------------------
const
  ccfCode_FB_Common             = 100;

// ================================================================
// Unicode Interface
// ================================================================
function ccWideExport( fCode : LongInt;
                       fData : PWideChar;
                       fSize : LongInt;
                       Msg   : PWideChar ) : LongInt;

begin
  Result := 0;
  try
    case fCode of

      // ---------------------------------
      // Initialisierung
      // ---------------------------------
      ccfCode_ES_Initialize :
      begin
      end;

      // ---------------------------------
      // Get Interface Version
      // ---------------------------------
      ccfCode_ES_GetInterfaceVersion :
      begin
        strpcopy(fData,InterfaceVersion);
      end;

      // ---------------------------------
      // Get Version
      // ---------------------------------
      ccfCode_ES_GetVersion :
      begin
        strpcopy(fData,Version);
      end;

      // ---------------------------------
      // Konfiguration übergeben
      // ---------------------------------
      ccfCode_ES_SetConfig :
      begin
      end;

      // ---------------------------------
      // Dokumentablage
      // ---------------------------------
      ccfCode_ES_GetDocPath :
      begin
      end;

      // ---------------------------------
      // Destination übergeben
      // ---------------------------------
      ccfCode_ES_SetDestination :
      begin
      end;

      // ---------------------------------
      // Dokumentstart
      // ---------------------------------
      ccfCode_ES_StartDoc :
      begin
      end;

      // ---------------------------------
      // Stapelstart
      // ---------------------------------
      ccfCode_ES_StartStack :
      begin
      end;

      // ---------------------------------
      // Titel
      // ---------------------------------
      ccfCode_ES_AddTitle :
      begin
      end;

      // ---------------------------------
      // Indizes (Feld=Wert)
      // ---------------------------------
      ccfCode_ES_AddField :
      begin
      end;

      // ---------------------------------
      // Tabellendaten (ColName,Row=Wert)
      // ---------------------------------
      ccfCode_ES_AddTableData :
      begin
      end;

      // ---------------------------------
      // Blobs (voller Pfad)
      // ---------------------------------
      ccfCode_ES_AddBlob :
      begin
      end;

      // ---------------------------------
      // Blobbezeichnung
      // ---------------------------------
      ccfCode_ES_AddBlobName :
      begin
      end;

      // ---------------------------------
      // Blob-Dokumenttyp
      // ---------------------------------
      ccfCode_ES_AddBlobDocType :
      begin
      end;

      // ---------------------------------
      // Dokumentende
      // ---------------------------------
      ccfCode_ES_EndDoc :
      begin
      end;

      // ---------------------------------
      // Stapelende
      // ---------------------------------
      ccfCode_ES_EndStack :
      begin
      end;

      // ---------------------------------
      // Stapel Rollback
      // ---------------------------------
      ccfCode_ES_RollBack :
      begin
      end;

      // ---------------------------------
      // Exportservice schliessen
      // ---------------------------------
      ccfCode_ES_Finalize :
      begin
      end;


      // ---------------------------------
      // Konfigurationsdialog öffnen
      // ---------------------------------
      ccfCode_ES_CallCfgDlg :
      begin
      end;

      // ---------------------------------
      // Konfiguration abfragen
      // ---------------------------------
      ccfCode_ES_GetConfig :
      begin
      end;

    end;
  except
    on e: exception do
    begin
      Result := -1;
      strpcopyw(msg,'Process exception (' + e.message + ')');
    end;
  end;
end;

// ================================================================
// clarc final builder Engine Test Function
// ================================================================
function ccBuildTest( fCode   : LongInt;
                      fData   : PWideChar;
                      Msg     : PWideChar ) : LongInt;
begin
  Result := -1;

  case fCode of
    // ---------------------------------
    // Common
    // ---------------------------------
    ccfCode_FB_Common:
    begin
      // Test something...
      Result := 0;
    end;
  end;
end;

// ================================================================
Exports
  ccWideExport,
  ccBuildTest;

begin
end.

#include "stdafx.h"
#include <atlstr.h>
#include <msclr\marshal.h>
#include <msclr\marshal_cppstd.h>
#include <string>

using namespace std;
using namespace System::Diagnostics;
#pragma warning(disable: 4996) // because of wcscpy


extern "C" int  __declspec(dllexport) __stdcall ccSTDCALLSupport()
{
  return 0;
}


extern "C" int  __declspec(dllexport) __stdcall ccWideExport(long fCode, wchar_t* data, long fSize, wchar_t* pMsg)
{
  int ret = 0;
  System::String^ szCaptureValue = 
    gcnew System::String(reinterpret_cast<const wchar_t*>(data));
  
  if (fCode == 850)
  {
    msclr::interop::marshal_context c3;
    System::String^ szTempString = gcnew System::String("TestNeu");
    wcscpy(data, c3.marshal_as<const wchar_t*>(szTempString));
  }
  return 0;
}

LIBRARY "ExportWrapper.dll"
EXPORTS
; Explicit exports can go here
       ccWideExport
       ccSTDCALLSupport