C++ DLL (Funktion) nach Delphi

[zeras]

Ich möchte eine DLL nutzen, wofür es auch ein Beispiel in C gibt:

Code:

IPC_API HRESULT WINAPI InitIPC(WORD index);

Wie müsste diese in Delphi deklariert werden? Ich habe schon eine DLL eines anderen Herstellers implementiert. Dort hatte ich einige Zeit gebraucht, um das korrekt zu Implementieren. Ich denke da an cdecl oder ?

[KodeZwerg]

Meinst Du sowas wie function InitIPC(Index: Word): HRESULT; stdcall; external 'name der.dll'; ?

[Der schöne Günther]

WINAPI ist schonmal stdcall und nicht cdecl

Was IPC_API ist? Keine Ahnung. Steht da nicht mehr?

[zeras]

Zitat von Der schöne Günther:

WINAPI ist schonmal stdcall und nicht cdecl

Was IPC_API ist? Keine Ahnung. Steht da nicht mehr?

Das habe ich noch gefunden:

Code:

#ifdef IPC_EXPORTS
#define IPC_API __declspec(dllexport)
#else
#define IPC_API __declspec(dllimport)
#endif

#ifndef WINAPI
#define WINAPI __stdcall
#endif

#ifndef HRESULT
#define HRESULT long
#endif

Vielleicht hilft das noch weiter.

[zeras]

Zitat von KodeZwerg:

Meinst Du sowas wie function InitIPC(Index: Word): HRESULT; stdcall; external 'name der.dll'; ?

So in etwas hatte ich das bei einer anderen DLL eines anderen Anbieters gemacht:

Code:

function  OttOpen: int32_t stdcall; external NameDLL name 'OttOpen';

wobei NameDLL, wie zu vermuten, der Name der DLL ist.

[KodeZwerg]

Bedeutet das, dass das was ich schrieb funktioniert oder wie soll ich das interpretieren?

[zeras]

Zitat von KodeZwerg:

Bedeutet das, dass das was ich schrieb funktioniert oder wie soll ich das interpretieren?

Danke für den Code.

Das kann ich erst morgen testen. Ich gebe dann wieder Bescheid.

[KodeZwerg]

Ja gern geschehen, external 'name der.dll'; <- nicht vergessen mit richtigen Namen auszutauschen.
Ich kenne ja dll name nicht.
Viel Erfolg dabei!

[Zacherl]

Das

Code:

#ifdef IPC_EXPORTS
#define IPC_API __declspec(dllexport)
#else
#define IPC_API __declspec(dllimport)
#endif

ist lediglich die C/C++ Art mit Exports über Library/Dll Grenzen umzugehen. Die Library selbst definiert IPC_EXPORTS , wodurch die entsprechend gekennzeichneten Funktionen dann exportiert (dllexport ) werden und jedes Projekt, was die Library verwendet, definiert das Macro nicht, wodurch der Linker weiß, dass die Funkionen in einer Dll liegen (dllimport was gleichbedeutend ist mit Delphis external ).

[zeras]

Dank für eure Tipps.
Ich habe nun die ersten Werte bekommen mit folgendem Aufruf:

Code:

Const NameDLL = 'IPC.DLL';

function InitIPC(index: word): HRESULT; stdcall; external NameDLL name 'InitIPC';