C dll Aufruf in Delphi

[MikeS]

Hallo zusammen,
kann mit bitte jemand sagen mit welchen Datentypen ich diesen C Dll Aufruf in Delphi umsetzen kann?

long encryptData(char key[], char dec[], char enc[]) Vielen Dank
Mike

[mkinzler]

PChar, PChar, PChar; longint

[MikeS]

Hallo mkinzler,
vielen Dank für die schnelle Antwort. Das mit dem PChar dachte ich mir auch. Habe bisher folgenden Code:

Delphi-Quellcode:

implementation

function encryptData(KeyStr, DecryptedStr, EncryptedStr: PChar) : Integer; external 'EncDec.dll';

und diesen in einer Prozedur:

Delphi-Quellcode:

var resultlength: integer;
    keyStr, decryptedStr, encryptedStr: PChar;//string;//char(25);
begin
      GetMem(keyStr, length(edit1.Text) + 1);
      StrCopy(keyStr, PChar(edit1.Text));
      GetMem(decryptedStr, length(edit2.Text) + 1);
      StrCopy(decryptedStr, PChar(edit2.Text));
      GetMem(encryptedStr, 256);

      resultlength := encryptData(keyStr, decryptedStr, encryptedStr);

      FreeMem(keyStr);
      FreeMem(decryptedStr);
      FreeMem(encryptedStr);

Ich bekomme damit jedoch immer eine Speicherveltzung.

Danke
Mike

[mkinzler]

Wo genau?

[MikeS]

Hallo mkinzler,
der Fehler tritt immer beim Aufruf der Dll auf. Wenn ich diese Zeile auskommentiere dann gibt es keinen Fehler.
Mike

[mkinzler]

Versuch mal:

Delphi-Quellcode:

var ... encryptedStr: string;
...
      resultlength := encryptData(PChar(Edit1.Text), PChar( Edit2.Text), PChar(encryptedStr));

[MikeS]

Hallo,

das hat leider auch nix gebracht. Vielleicht ist es interessant, der dritte Parameter wird in der dll gesetzt.

Mike

[toms]

Zitat von MikeS:

Hallo,

das hat leider auch nix gebracht. Vielleicht ist es interessant, der dritte Parameter wird in der dll gesetzt.

Mike

Hast du die Calling Convention beachtet?

[mkinzler]

Ja es ist ein Rückgabewert.

[MikeS]

@toms: was meinst du damit??

@mkinzler: was ändert sich dadurch?

Mike