C++ DLL in Delphi einbinden

[sniper_w]

Code:

PseudoDB* CreatePseudoDB();

void PseudoDB_Destroy(PseudoDB* pDB);

int PseudoDB_LoadFromUSBRoot(PseudoDB* pDB,const wchar_t* sUSBRoot);

Delphi-Quellcode:

function CreatePseudoDB():pPseudoDB;

procedure PseudoDB_Destroy( pDB:pPseudoDB );// oder procedure PseudoDB_Destroy( var pDB:PseudoDB );

function PseudoDB_LoadFromUSBRoot( pDB:pPseudoDB;const {wchar_t*} sUSBRoot: pwchar_t ):Integer;
// oder
//function PseudoDB_LoadFromUSBRoot( var pDB:PseudoDB;const {wchar_t*} sUSBRoot: pwchar_t ):Integer;

Code:

typedef struct{} PseudoDB;
typedef struct{} PseudoTrack;
typedef struct{} PseudoPlayList;

Delphi-Quellcode:

type pPseudoDB = ^PseudoDB; PseudoDB = record end;
             pPseudoTrack =^PseudoTrack; PseudoTrack = record end;
             pPseudoPlayList = ^PseudoPlayList; PseudoPlayList = record end;