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?

Delphi-Quellcode:

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:

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

[mkinzler]

Ich wollte nur sagen, das mir bewusst ist, das es hier um ein Rückgabewert handelt.
Die Aufrufkonvention (cdecl, stdcall, ...) legt fest, wie Parameter übergeben werden.

[MikeS]

Hallo,

hat vielleicht noch jemand eine Idee wie ich die Zugriffsverletzung wegbekomme? Wie kann ich denn der Variablen die den Wert durch die dll bekommen soll mit einem leeren Speicherbereich vorbelegen??

Danke
Mike

[mkinzler]

Delphi-Quellcode:

setLength(encryptedStr, 255);

Welche Aufrufskonvension hast du nun verwendet?

[MikeS]

Danke,

aktuell sieht mein Code so aus:

Delphi-Quellcode:

implementation

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

{$R *.dfm}

procedure TForm1.encrypt1Click(Sender: TObject);
var resultlength: integer;
    sresult: string;
begin
      setlength(sresult, 255);
      resultlength := encryptData(PChar(edit1.Text), PChar(edit2.Text), PChar(sresult));
end;

und es gibt leider immer noch eine Zugriffsverletzung. Hat noch jemand eine Idee??

Danke
Mike

[mkinzler]

Schon mit cdecl oder stdcall versucht?

[MikeS]

Vielen Dank.
Mit "stdcall" funktioniert es einwandfrei.

Danke
Mike