C++ DLL in Delphi einbinden

[Andru]

also danke erstmal an alle.
habe den letzten fehler gefunden. es hat noch eine datei im verzeichnis gefehlt...

allerdings würd ich gern nochmal wissen, was das jetzt mit dem type auf sich hat.

habe jetzt folgendes unter den uses:

Delphi-Quellcode:

{$MINENUMSIZE 4}


type
  eResult = (
    OperationFailed = -4,
    InvalidPlayerRef = 3,
    LibNotInitialized = -2,
    LibInitFailed = -1,
    LibAlreadyInitialized =  0,
    Success =  1
  );

aber wie komm ich jetzt daran?

eResult := InitLibrary('', eLevel, false, false, 'de'); klappt nicht, da er nach eResult eine Klammer erwartet, aber ich kann die function
auch nicht als Parameter dann übergeben.

Um das richtig zu verstehen:
Die Typ-Deklaration ist doch dafür gedacht, dass ich den Text (z.B. 'InvalidPlayerRef') zurück bekomme, oder?


Gruß,

Andru

[Robert Marquardt]

Na du weist an einen Typen zu und nicht an eine Variable. Das ist doch Unsinn.

Delphi-Quellcode:

var
  Ret: eResult;
begin
  Ret := InitLibrary('', eLevel, false, false, 'de');

[Andru]

Ach klar...
Der Typ wird erstellt und demnach erhält dann eine Variable des Typs das Ergebnis.

Aber kann ich das jetzt auch noch auswerten?
Also z.b. in einer Label-Komponente anzeigen?

Denn ich hab da ja jetzt keinen Integerwert mehr, den ich z.B. mit IntToStr konvertieren könnte...

[ste_ett]

Eine (unschöne) Möglichkeit wäre das Umcasten auf Integer.

Delphi-Quellcode:

  i := Integer(Ret);
  ShowMessage(IntToStr(i));

[Robert Marquardt]

Doch natuerlich. Alle Enums sind ordinale Typen und daher kann ihr Zahlenwert mittels der Funktion Ord() erhalten werden.
Ich glaube hier bestehen noch Defizite bei der Kenntnis von Pascal.

[Andru]

Ohja.. die bestehen bei mir auf jeden Fall!!
Allerdings kommt man durch solche Probleme ja immer ein Stückchen weiter.

Jedenfalls schönen Dank für eure Hilfe!


Gruß,

Andru

[Reinhard Kern]

Noch eine Ergänzung zu Bool (Zitat MSDN):

Microsoft Specific
In Visual C++4.2, the Standard C++ header files contained a typedef that equated bool with int. In Visual C++ 5.0 and later, bool is implemented as a built-in type with a size of 1 byte. That means that for Visual C++ 4.2, a call of sizeof(bool) yields 4, while in Visual C++ 5.0 and later, the same call yields 1. This can cause memory corruption problems if you have defined structure members of type bool in Visual C++ 4.2 and are mixing object files (OBJ) and/or DLLs built with the 4.2 and 5.0 or later compilers.

END Microsoft Specific

Wie man sieht, ist sich nicht einmal MS einig mit MS. Man muss also wohl oder übel wissen, wo die Library herkommt und womit sie erstellt wurde. Und dabei ist das noch der einfachste aller Datentypen. Meistens wird dann die genaue Typdefiniton noch durch 5fach verschachtelte Präprozessoranweisungen versteckt.

Delphi hat doch auch Vorteile.

Gruss Reinhard

[Andru]

... da bin ich schon wieder.

Ich kann leider noch nicht auf alle Funktionen der DLL zugreifen.
Init und Destroy klappen. Dort bekomme ich das richtige Result.
Nun hab ich aber eine PlayerCreate-Funktion, die mir nicht das gewünschte
Ergebnis liefert.
Kann das mit folgendem zusammenhängen?
Es gibt wohl zwei Arten des DLL-Einbinden unter C. implicit und explizit.
Ist das so wie bei Delphi statisch und dynamisch?

Dort steht, dass bei einer impliziten Einbindung eine Präprozessoranweisung
gemacht werden muss: PLAYER_SDK_USE_IMPLICIT

Bei einer expliziten Einbindung ein Include:

Code:

#define LOAD_FUNCTION_POINTER
#include <PlayerLibInterface.h>

//Einmaliger Aufruf wohl im ganzen Projekt:

PlayerLib::LoadPlayerLib( "<path>\\PlayerLib.dll" );

Meine Problem-Funktion ist folgende:

Code:

int CreatePlayer( HWND hWNdParent,
RECT& rectPlayer,
const char* szWndTitle);

umgesetzt hab ich sie wie folgt:

Delphi-Quellcode:

function CreatePlayer(hWndParent: HWND; rectPlayer: TRect;
         szWndTitle: PChar): Integer; cdecl; external 'lib\PlayerLib.dll';

und führe sie so aus:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
rechteck: TRect;
resultCreate: Integer;
begin

rechteck.Left := 128;
rechteck.Top := 80;
rechteck.Right := 270;
rechteck.Bottom := 273;

  resultCreate := CreatePlayer(Form1.Handle, rechteck, 'test');
  Label5.Caption := IntToStr(resultCreate);
end;

Oh man,
bin wirklich aufgeschmissen ohne dieses Forum...


Danke euch allen!


Gruß,
Andru

[Robert Marquardt]

Knapp daneben:

Delphi-Quellcode:

function CreatePlayer(hWndParent: HWND; var rectPlayer: TRect;
         szWndTitle: PChar): Integer; cdecl; external 'lib\PlayerLib.dll';

Das & in der C++-Deklaration bedeutet Call-by-Reference. Es gibt drei Arten dies nach Delphi zu konvertieren.
"rectPlayer: PRect" reflektiert das auf dem Stack letztlich ein Pointer auf ein TRect uebergeben wird.
"var rectPlayer: TRect" ist die korrekte Konversion wenn die Funktion den Inhalt des TRect aendert.
"const rectPlayer: TRect" funktioniert wenn der Inhalt des TRect nicht von der Funktion geaendert wird. Es wird ausgenutzt das Delphi bei const Parametern mit mehr als 4 Bytes ein implizites Call-By-Reference macht.

Ich habe die sichere var-Variante gewaehlt.

[Andru]

Super!

Er hat mir sofort das Fenster geöffnet, das ich nun brauche!
Besten Dank!

Hoffe, den Rest schaffe ich nun allein.
Aber es sind noch ein paar Funktionen, die ich umsetzen muss -
also werd ich mich Wohl oder Übel sicherlich nochmals hier melden!


Nochmals vielen Dank!!