Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Funktionsaufruf von C nach Delphi übersetzen (https://www.delphipraxis.net/96838-funktionsaufruf-von-c-nach-delphi-uebersetzen.html)

Daniel 31. Jul 2007 15:56


Funktionsaufruf von C nach Delphi übersetzen
 
Moin,

ich habe Schwierigkeiten, eine C-DLL aus Delphi (Win32) heraus anzusprechen. Ich habe zu der DLL eine Header-Datei, von der ich annehmen kann, dass sie korrekt ist.

In der Header-Datei sind zum Einen Strukturen (struct) definiert, die ich in packed records überführt habe und die Typen anhand einschlägiger Dokumentation übersetzt habe. Da sind auch wenig schräge Sachen dabei gewesen, es ging um char* -> PChar, double -> Double und long -> Longint, teilweise auch als Arrays.

Nun verbleiben noch drei Funktionsdeklarationen, die vom strukturellen Aufbau der identisch sind, daher hier nur einer dieser Aufrufe als Beispiel:

Code:
extern void __declspec (dllexport) FUNKTIONSNAME(datentyp1*,datentyp2*,long*);
ich habe daraus das Folgende in Delphi gemacht:

Delphi-Quellcode:
procedure(var _1 : datentyp1; var _2: datentyp2; var _3: LongInt) cdecl;
Bedauerlicherweise bekomme ich nur eine Schutzverletzung aus der DLL. Ich gehe davon aus, dass meine Daten nicht richtig in der DLL ankommen, da die DLL selbst mit einer ganzen Reihe an Plausibilitäts-Prüfungen versehen ist. Wenn ich also in den Datenstrukturen Felder falsch initialisiere, so sollte ich Fehlercodes erhalten, aber keine Schutzverletzung.


Irgtendwelche Ideen zu meiner Übersetzung?

SirThornberry 31. Jul 2007 16:14

Re: Funktionsaufruf von C nach Delphi übersetzen
 
aus meiner Sicht völlig korrekt übersetzt. An welcher Adresse beim lesen/schreiben von welcher Adresse kommt die AV?

Daniel 31. Jul 2007 16:26

Re: Funktionsaufruf von C nach Delphi übersetzen
 
hm. Danke für die Bestätigung meiner Übersetzung. Aber Deine Frage nach der Adresse könnte auf die Ursache meines Problems hinweisen.
Zitat:

'Access violation at address 1000F624 in module 'TARIF.DLL'. Write of address 00000000' aufgetreten.
Wenn ich jetzt im Hinterkopf habe, dass die Datenstrukturen unter anderem aus PChars bestehen, könnte der Fehler daraus resultieren, dass ich die nicht alle initialisiert habe, weil ich einie für optional hielt. Ich habe zu Anfang ein FillChar( Variable, SizeOf(VariablenTyp), 0 ) drüber laufen lassen.


*seufz* Na gut, dann schaue ich mal, was ich hier tun könnte. :-)

Robert Marquardt 31. Jul 2007 16:32

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Probier stdcall statt cdecl. Die C Deklaration ist nicht eindeutig, da Projektoptionen die Calling Convention veraendern koennen.
Es ist bei C Deklarationen nicht erkennbar ob man "datentyp * param1" zu "var Param1: datentyp" oder "param1: Pdatentyp" uebersetzen soll. Nur die Dokumentation kann da helfen. Ein Zeiger kann in C Call-by-reference oder Zeiger auf den Beginn eines Arrays bedeuten. Nur die Dokumentation kann da helfen.
"long *" deutet aber ein "var Param3: Longint" an und die uebliche Bedeutung das man eine Arraylaenge darin platziert und der Aufruf dann mit der Anzahl ausgefuellter Array-Elemente zurueckkommt.

Zeig mal wie du die Funktion aufrufst.

Daniel 31. Jul 2007 16:38

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Zitat:

Zitat von Robert Marquardt
Zeig mal wie du die Funktion aufrufst.

Vielen Dank für Deine Antwort, ich werde morgen weiteren Code veröffentlichen können, jetzt bin ich auf dem Sprung zu meinem Fris... Hair-Stylisten und zuhause habe ich noch keinen Zugang zum Internet (grummelt auf eine Telefongesellschaft mit einem A am Anfang).

Robert Marquardt 31. Jul 2007 16:40

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Du sollt die Loesung nicht an den Haaren herbeiziehen!

sirius 31. Jul 2007 16:43

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Zitat:

(grummelt auf eine Telefongesellschaft mit einem A am Anfang).
Vorsicht! Manche Telefongesellschaften müssen den Draht zu deiner Wohnung erst von einer anderen TTelefongesellschaft kaufen (bzw. mieten). Und dieses Kauf-Interface hat ne ganze Menge sleeps mit in der Implementation.
Kann alles ein, muss aber nicht

SirThornberry 31. Jul 2007 17:10

Re: Funktionsaufruf von C nach Delphi übersetzen
 
das schreiben an Adresse 0 deutet wirklich darauf hinn das du einen Pointer ins nichts übergibst oder deine Struktur irgendwo einen Pointer ins nichts hat obwohl da ein Pointer auf Speicher erwartet wird.
Oftmals hilft es dann das CPU-Debug-Window mit einzuschalten und dann in die DLL rein zu steppen.

Christian Seehase 31. Jul 2007 22:01

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Moin Zusammen,

Zitat:

Zitat von Robert Marquardt
Es ist bei C Deklarationen nicht erkennbar ob man "datentyp * param1" zu "var Param1: datentyp" oder "param1: Pdatentyp" uebersetzen soll.

Nur kann man nichts falsch machen, wenn man bei solchen Parametern grundsätzlich "param1: PDatentyp" nimmt, wohingegen die var-Variante, je nachdem, was als Wert möglich ist, durchaus Probleme machen kann.

Zitat:

Zitat von Daniel
jetzt bin ich auf dem Sprung zu meinem Fris... Hair-Stylisten

Zitat:

Zitat von Robert Marquardt
Du sollt die Loesung nicht an den Haaren herbeiziehen!

:mrgreen: :thumb:

(er lässt ja auch herbeiziehen ;-))


Zitat:

Zitat von Daniel
und zuhause habe ich noch keinen Zugang zum Internet (grummelt auf eine Telefongesellschaft mit einem A am Anfang).

Zitat:

Zitat von sirius
Manche Telefongesellschaften müssen den Draht zu deiner Wohnung erst von einer anderen TTelefongesellschaft kaufen

Die haben halt noch nicht den richtigen Draht zu Dir :mrgreen:

Luckie 31. Jul 2007 22:15

Re: Funktionsaufruf von C nach Delphi übersetzen
 
Zitat:

Zitat von Daniel
Wenn ich jetzt im Hinterkopf habe, dass die Datenstrukturen unter anderem aus PChars bestehen,

Hast du auch Speicher für die PChars reserviert?


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:45 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz