AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

C dll Aufruf in Delphi

Ein Thema von MikeS · begonnen am 24. Mär 2008 · letzter Beitrag vom 24. Mär 2008
Antwort Antwort
Seite 1 von 2  1 2   
MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#1

C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:23
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
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:24
PChar, PChar, PChar; longint
Markus Kinzler
  Mit Zitat antworten Zitat
MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#3

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:32
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
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:40
Wo genau?
Markus Kinzler
  Mit Zitat antworten Zitat
MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#5

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:42
Hallo mkinzler,
der Fehler tritt immer beim Aufruf der Dll auf. Wenn ich diese Zeile auskommentiere dann gibt es keinen Fehler.
Mike
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:46
Versuch mal:
Delphi-Quellcode:
var ... encryptedStr: string;
...
      resultlength := encryptData(PChar(Edit1.Text), PChar( Edit2.Text), PChar(encryptedStr));
Markus Kinzler
  Mit Zitat antworten Zitat
MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#7

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:53
Hallo,

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

Mike
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#8

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:57
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?
Thomas
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.802 Beiträge
 
Delphi 10.4 Sydney
 
#9

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 18:57
Ja es ist ein Rückgabewert.
Markus Kinzler
  Mit Zitat antworten Zitat
MikeS

Registriert seit: 3. Mai 2003
Ort: München
157 Beiträge
 
Delphi 7 Professional
 
#10

Re: C dll Aufruf in Delphi

  Alt 24. Mär 2008, 19:01
@toms: was meinst du damit??

@mkinzler: was ändert sich dadurch?

Mike
Mike Schröder
Fleiß kann man vortäuschen, faul muss man schon selber sein!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf