[MathType API] Word-Formelfelder zu MathML konvertieren

[Aenogym]

hi nochmal,

es will einfach nicht klappen
ich habe schon etliche dinge versucht, doch mein resultierender string bleibt immer leer. sogar den weg, die ausgangsformel in die zwischenablage zu kopieren, der DLL dies per parameter mitzuteilen und das konvertierte ergebnis wieder aus der zwischenablage zu holen, bin ich gegangen. doch der string in der zwischenablage bleibt im ausgangszustand...

so sieht das ganze im VBA-original-source aus:

Code:

//deklaration
Public Declare Function MTXFormEqn Lib "MathPage.WLL" ( _
   ByVal src As Integer, ByVal srcFmt As Integer, ByVal srcData As String, ByVal srcDataLen As Long, _
   ByVal dst As Integer, ByVal dstFmt As Integer, ByVal dstData As String, ByVal dstDataLen As Long, _
   ByVal dstPath As String, ByRef dims As MTAPI_DIMS) As Long

//aufruf
stat = MTXFormEqn(mtxfmCLIPBOARD, mtxfmTEXT, dummyStr1, 1, _
        dest, destFormat, dummyStr2, 1, path, dummyDims)

und so sieht mein delphi-code jetzt aus:

Delphi-Quellcode:

//deklaration
function MTXFormEqn(src: SmallInt; srcFmt: SmallInt; srcData: PChar;
           srcDataLen: Cardinal; dst: SmallInt; dstFmt: SmallInt;
           var dstData: PChar; dstDataLen: Cardinal; dstPath: PChar;
           var dims: MTAPI_DIMS): Cardinal; stdcall; external 'MathPage.wll';

//aufruf
  iFormResult := MTXFormEqn(mtxfmCLIPBOARD, mtxfmTEXT, ' ', 1, mtxfmCLIPBOARD,
                           mtxfmTEXT, ' ', 1, ' ', rDims);

ist das so wenigstens richtig übersetzt?

aeno