C++ DLL (Funktion) nach Delphi

**AJ_Oldendorf**

Hallo,
ich habe eine Frage zu folgender Deklaration einer Funktion in einer C++ DLL, welche ich ansprechen muss:

Delphi-Quellcode:

			typedef char My_STRING;

Res_DWORD  Get_Error_Text ( 

    ERROR_T    *error,        // in 

    const My_STRING *language, // in 

    My_STRING    text[1024] );  // out

Im Delphi würde ich die dann wie folgt deklarieren:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  PERROR  = ^TERROR;   

  TERROR  = packed Record

    Long1 : LongWord; 

    Long2 : LongWord; 

    Byte1 : BYTE;     

    Byte2 : BYTE;    

    Byte3 : BYTE;     

  end;

function Get_Error_Text(aError: PERROR; aLanguage: String; out aErrStr: String): LongWord;stdcall;external 'ExterneDLL.dll';

Aufruf dann so:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

Const

  ErrLanguage = 'English';

var

  ErrClass  : LongWord;

  ErrStruct : TERROR;

  ErrStr    : String;

begin

  ErrClass := Get_Error_Text(@ErrStruct, ErrLanguage, ErrStr);

  ShowMessage(ErrStr);

end;

Mein Problem ist, dass in der Errorstruktur ein Fehler ansteigt aber mit meinem Aufruf bekomme ich immer in "ErrStr" nur ein LeerString geliefert. Könnt ihr mir sagen, wo das Problem besteht? ich vermute ein Fehler mit dem Datentyp String, dem Char und dem beschreiben des Parameters "ErrStr" beim Aufruf der DLL.

C++ DLL (Funktion) nach Delphi

C++ DLL (Funktion) nach Delphi

Forumregeln