Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Neuen Beitrag zur Code-Library hinzufügen (https://www.delphipraxis.net/33-neuen-beitrag-zur-code-library-hinzufuegen/)
-   -   Delphi dll in Delphi verwenden (https://www.delphipraxis.net/201558-dll-delphi-verwenden.html)

MorrisF 5. Aug 2019 13:29

AW: dll in Delphi verwenden
 
Ja, die Meldung kommt beim Create, also während das Programm schon läuft, hast recht.
Laut pdf kann man cdecl oder stdcall verwenden, wobei cdecl wohl besser für C++ Methoden ist(in meiner dll steht C++ Code). Im übrigen habe ich schon cdecl und stdcall probiert. Geht beides nicht
BOOL habe ich auch schon probiert, der Fehler ist in beiden Fällen der Selbe.
Der Befehl LoadLibrary() macht in meinem Code keine Probleme, beim debuggen hüpft er munter weiter. Die ganze GetEntryPoints() Function macht keine Probleme. Der Fehler kommt beim Aufruf von Scanner98x_Init(1, 1000, nil) in meiner Create Prozedur

hoika 5. Aug 2019 13:56

AW: dll in Delphi verwenden
 
Hallo,
also ergibt das hier NIL?

@Scanner98x_Init := GetProcAddress(lib, ct_Init);

Welchen Wert hat lib?

hoika 5. Aug 2019 13:59

AW: dll in Delphi verwenden
 
Hallo,
Scanner98x_Init(1, 1000, nil)

nil als ErrorCode-Variable ist doch etwas ungewöhnlich, oder ?
Wohin soll denn die Dll den Code hinschreiben und wenn es nur 0 für "kein Fehler" wäre?

MorrisF 5. Aug 2019 14:34

AW: dll in Delphi verwenden
 
Was soll/kann ich denn übergeben?

hoika 5. Aug 2019 14:37

AW: dll in Delphi verwenden
 
Hallo,
var
Error: DWORD;

, @Error);


Wenn dir das LPDWORD nicht gefällt,
kannst du auch
; var Error: DWORD als Parameter nehmen

Der Aufruf sieht dann so aus
, Error);

MorrisF 5. Aug 2019 14:37

AW: dll in Delphi verwenden
 
lib hat ne ganz lange Zahl und @Scanner98x_Init hat $ und ne ganz lange Zahl als Wert.
... is das richtig?

hoika 5. Aug 2019 14:39

AW: dll in Delphi verwenden
 
Hallo,
Zitat:

lib lange Zahl
ja.

Sollte halt nicht <(=)32 sein.

MorrisF 5. Aug 2019 14:41

AW: dll in Delphi verwenden
 
Habe das mit dem Error jetzt so gemacht, wie du gesagt hast. Bekomme leider den selben Fehler wie vorher

MorrisF 5. Aug 2019 14:42

AW: dll in Delphi verwenden
 
Zitat:

Sollte halt nicht <(=)32 sein.
ist es nicht

hoika 5. Aug 2019 14:43

AW: dll in Delphi verwenden
 
Hallo,
stdcall genommen?
BOOL genommen?

Wenn ja, poste mal danach noch mal den ganzen Code.


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

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