Aufrufparameter für C-Funktionen in DLL's

[ste_ett]

Delphi-Quellcode:

function open_session(args: PChar; session: PLongint): Longint; (*"stdcall;" oder "cdelcl;"*)
function get_license (session: Longint; license: PChar; length: PUINT): Longint; (*"stdcall;" oder "cdelcl;"*)
function get_error_msg (session, res: Longint; lang, buf: PChar; len: UINT): Longint; (*"stdcall;" oder "cdelcl;"*)

// result -> res
// Result kann nicht nochmal definiert werden in einer Funktion und muss deshalb umbenannt werden.

---

var
  session, rc, Res: Longint;
  msg: array[0..79] of Char;
  language: array[0..63] of Char;
begin
  ZeroMemory(@msg, sizeof(msg));
  ZeroMemory(@language, sizeof(language));
  language[0] := 'D';

  Res := get_error_msg(session, rc, language, msg, sizeof(msg));