libeay32, um IDEA erweitern

[schwa226]

Hallo,

ich habe diese angehängt libeay32.pas.

Jedoch fehlt mir dazu die orignal die IDEA Funktion.
Ich habe mit einem Program nachgesehen ob die Funktionen von der DLL exportiert werden. Werden sie auch.

Nun habe ich die pas um

Delphi-Quellcode:

  {$IFNDEF OPENSSL_NO_IDEA}
    {$IFDEF IDEA_SHORT}
  IDEA_INT = WORD;
    {$ELSE}
      {$IFDEF IDEA_LONG}
  IDEA_INT = UInt64;
      {$ELSE}
  IDEA_INT = LongWord;
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}

  {$IFNDEF OPENSSL_NO_IDEA}
  IDEA_KEY_SCHEDULE = record
    data : array [0..(9-1),0..(6-1)] of IDEA_INT;
  end;
  PIDEA_KEY_SCHEDULE = ^IDEA_KEY_SCHEDULE;
  {$ENDIF}

procedure idea_set_encrypt_key(const key : Pointer; ks : PIDEA_KEY_SCHEDULE);

procedure idea_set_encrypt_key; external LIBEAY_DLL_NAME;

erweitert. Wenn ich diese nun aber aufrufe bekomme ich die Meldung Erro bei zugreifen auf Addresse 00000000 bei 61DCC63A.
Die Funktion idea_set_encrypt_key startet ab 61DCC630. Also wird die Funktion ansheinend gefunden aber es wird ein error erzeugt...

Kann mir da jemand sagen was ich vergessen habe?

EDIT:
Manchmal sind kurze Pausen einfach Notwendig!

Das 'cdecl' hat gefehlt! Nun geht es!