Delphi-PRAXiS - Delphi C++ DLL in Delphi einbinden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi C++ DLL in Delphi einbinden (https://www.delphipraxis.net/73505-c-dll-delphi-einbinden.html)

C++ DLL in Delphi einbinden

Hi Leute,

wie kann ich eine C++ DLL in Delphi einbinden? Habe mal eine TestDll in C erstellt wollte dann darauf zugreifen. Beim Delphi Programmstart gibt's dann eine Zugriffsverletzung. Hier mal der Code in Delphi:

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

//c++ DLL

function _berechne(var A, B : Integer) : Integer; cdecl; external 'c:\dll\MatheC.dll';

type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var wert1 : integer;

var wert2 : Integer;

begin

Wert1 := 2;

Wert2 := 3;

Edit1.Text := intToStr(_berechne(Wert1,Wert2));

end;

end.

Hier die C++ Dll. Hab ich aus dem Netz:
----------------------------------------------------------------------------------------------------------------------------------
#include <windows.h>

#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
return 1;
}

// extern verfügbare funktionen:
extern "C" __declspec(dllexport)int berechne(int, int);

// implemetierungen aller funktionen
int __export berechne(int A, int B)
{
return A + B;
}
-----------------------------------------------------------------------------------------------------------------------------------

Kann mir jemand von euch helfen?

Danke im voraus.
Gruss
xthing

Re: C++ DLL in Delphi einbinden

Hallo,
ich bin mir nicht sicher, ob die Deklaration der externen C-Funktion in Delphi richtig ist.

Delphi-Quellcode:

			function _berechne(var A, B : Integer) : Integer; cdecl; external 'c:\dll\MatheC.dll';
		

Ich glaube nicht, daß die C-Funktion wirklich _berechne() heißt. Dies kannst du aber mit dem Programm TDump von Delphi herausfinden:

TDump name.dll

Soweit ich weiß, müßte in der Deklaration nach dem external der wirkliche Name der C-Funktion in Anführungszeichen stehen und ein @-Zeichen gehört auch noch dazu. Aber wie schon geschrieben, mit TDump bekommst du das heraus.

Bis denne,
Woto

Re: C++ DLL in Delphi einbinden

Welche Fehlermeldung kommt genau?

Und dann probier folgendes:

Delphi-Quellcode:

function berechne(A, B : Integer): Integer; cdecl; external 'MatheC.dll';

Re: C++ DLL in Delphi einbinden

Hallo!

Assarbad hat dazu ein schönes Tutorial veröffentlicht.

siehe hier

Hope it helps

onlinekater

Re: C++ DLL in Delphi einbinden

Danke an alle!!!
@Bernhard: so geht's, danke.

Gruss
xthing

AW: C++ DLL in Delphi einbinden

Hallo,
ich möchte stat eine DLL einbinden. Doch in der h Datei ist die Fn definiert als:

SLAB_HID_DEVICE_API DWORD WINAPI HidDevice_GetNumHidDevices(WORD vid, WORD pid);

als WORD sind die Parameter. Doch wie muss ich beim Aufruf den Parameter übergeben?

ok diese Problem hab ich mit einer Hex Umrechnung gemacht. (Sieh unten)

Aber jetzt das nächste:
in der h datei ist:

typedef void* HID_DEVICE;

wie muss ich jetzt diesen Type in mein delphi prg importieren dass ich folgendes
C-aquivalient machen kann?

HID_DEVICE m_hid;

BYTE status = HidDevice_Open(&m_hid, devNum-1, VID, PID);

Mein Code:

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

const

  DLLNAME = 'SLABHIDDevice.dll';

  function HidDevice_GetNumHidDevices(VID: Integer; PID: Integer): integer; stdcall; external DLLNAME ;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

    function Hex2Int(hex: String): Integer;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

const

  VID = '152A';

  PID = '8261';

var

  devNum: integer;

function TForm1.Hex2Int(hex: String): Integer;

var

i,count: Integer;

begin

val('$'+hex,i,count);

if count = 0 then result:= i

else result := -1;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  devNum := HidDevice_GetNumHidDevices(Hex2Int(VID), Hex2Int(PID));

  ShowMessage('DeviceID = '+IntToStr(devNum));

  if devNum <> 0 then

    begin

    ......

    end;

end;

end

AW: C++ DLL in Delphi einbinden

Was machst du denn da? Du schreibst selbst das da word steht aber in deinem Quelltext verwendest du Integer. Und warum legst du die Werte als String ab und wandelst diese
dann? Lege sie doch gleich als Word an:

Delphi-Quellcode:

VID = $152A;

Und warum ist devNum global wenn du es doch nur in Button1Click verwendest?

void* = Pointer also:

Delphi-Quellcode:

			type

  HID_DEVICE = Pointer;

Zitat:

ShowMessage('DeviceID = '+IntToStr(devNum));

Ich glaube nicht das die Geräteanzahl das gleiche ist wie eine GeräteID!

AW: C++ DLL in Delphi einbinden

Hi,
DANKE Herzlich.
DOch jetzt wieder ein Problem:
Wie kann ich das Prg zum Laufen bringen? Ich bekomm immer einen Zugriff Error.

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

const

  DLLNAME = 'SLABHIDDevice.dll';

  // Return Codes

 HID_DEVICE_SUCCESS                        = $00;

 HID_DEVICE_NOT_FOUND                     = $01;

 HID_DEVICE_NOT_OPENED                   = $02;

 HID_DEVICE_ALREADY_OPENED              = $03;

 HID_DEVICE_TRANSFER_TIMEOUT            = $04;

 HID_DEVICE_TRANSFER_FAILED              = $05;

 HID_DEVICE_CANNOT_GET_HID_INFO         = $06;

 HID_DEVICE_HANDLE_ERROR                 = $07;

 HID_DEVICE_INVALID_BUFFER_SIZE         = $08;

 HID_DEVICE_SYSTEM_CODE                   = $09;

 HID_DEVICE_UNSUPPORTED_FUNCTION       = $0A;

 HID_DEVICE_UNKNOWN_ERROR                = $FF;

type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

  HID_DEVICE = Pointer;

var

  Form1: TForm1;

 function HidDevice_GetNumHidDevices(VID: Word; PID: Word): integer; stdcall; external DLLNAME ;

 function HidDevice_Open(device: HID_DEVICE; DevNum: Integer; VID: Word; PID: Word): BYTE; stdcall; external DLLNAME ;

 function HidDevice_GetInputReport_Interrupt(device: HID_DEVICE; repbuffer: pointer; len: Integer; RepNums: Integer; var BytesReturned: Integer): BYTE; stdcall; external DLLNAME ;

 function HidDevice_GetInputReportBufferLength: Integer; stdcall; external DLLNAME ;

implementation

{$R *.dfm}

const

  VID = $152A;

  PID = $8261;

var

  devNum: integer;

  m_hid: HID_DEVICE; // array[0..3000] of char;

  InputEnableBuffer: array[0..255] of char;

procedure TForm1.Button1Click(Sender: TObject);

var

  status: Byte;

  BytesRead: Integer;

begin

  devNum := HidDevice_GetNumHidDevices(VID, PID);

  ShowMessage('DeviceID = '+IntToStr(devNum));

  if devNum <> 0 then

    begin

    status := HidDevice_Open(@m_hid, devNum-1,VID, PID);

    if (status = HID_DEVICE_SUCCESS) then

      ShowMessage('OK!');

      HidDevice_GetInputReport_Interrupt(m_hid,@InputEnableBuffer,HidDevice_GetInputReportBufferLength,1,BytesRead);

    end;

end;

end.

DANKE!!!!
mfg
walter

AW: C++ DLL in Delphi einbinden

Hi,
also ich konnte die DLL so einbinden. Siehe unten.
Doch mein Problem ist jetzt der InputEnableBuffer.

Ursp war in der Deklaration:
function HidDevice_GetInputReport_Control (device: HID_DEVICE;
var buffer: Byte;
bufferSize: LongInt):BYTE; stdcall; external DLLNAME ;

Doch der buffer ist 12 Bytes lang und anfangs mit 00. Das erste Byte des Buffers muss 00 sein. (= ReportID)

Also ich habs wie in C mit memget gemacht. Das Compilieren geht aber obwohl die Packete im Analyser sichtbar sind,
zeigt ShowRead immer das slebe an. Woran mag das liegen?

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

const

  DLLNAME = 'SLABHIDDevice.dll';

  // Return Codes

 HID_DEVICE_SUCCESS                        = $00;

 HID_DEVICE_NOT_FOUND                     = $01;

 HID_DEVICE_NOT_OPENED                   = $02;

 HID_DEVICE_ALREADY_OPENED              = $03;

 HID_DEVICE_TRANSFER_TIMEOUT            = $04;

 HID_DEVICE_TRANSFER_FAILED              = $05;

 HID_DEVICE_CANNOT_GET_HID_INFO         = $06;

 HID_DEVICE_HANDLE_ERROR                 = $07;

 HID_DEVICE_INVALID_BUFFER_SIZE         = $08;

 HID_DEVICE_SYSTEM_CODE                   = $09;

 HID_DEVICE_UNSUPPORTED_FUNCTION       = $0A;

 HID_DEVICE_UNKNOWN_ERROR                = $FF;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Memo1: TMemo;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

    procedure ShowRead(ReportID: Byte;  Data: Pointer; Size: Word);

  end;

  HID_DEVICE = Pointer;

  TBuffer = record

    inhalt: string[14];

    end;

var

  Form1: TForm1;

 function HidDevice_GetNumHidDevices(VID: Word; PID: Word): integer; stdcall; external DLLNAME ;

 function HidDevice_Open(var device: HID_DEVICE; DevNum: Integer; VID: Word; PID: Word): BYTE; stdcall; external DLLNAME ;

 function HidDevice_GetInputReport_Control  (device: HID_DEVICE;

                                               var buffer: Pointer; // urspr ist hier var buffer: BYTE gestanden

                                               bufferSize: LongInt):BYTE; stdcall; external DLLNAME ;

 function HidDevice_GetInputReport_Interrupt(device: HID_DEVICE;

                                               var buffer: array of Char;    // urspr ist hier var buffer: BYTE gestanden

                                               bufferSize: LongInt;

                                               numReports: LongInt;

                                               var bytesReturned: LongInt):BYTE; stdcall; external DLLNAME ;

 function HidDevice_GetInputReportBufferLength(device: HID_DEVICE): Integer; stdcall; external DLLNAME ;

 function HidDevice_Close(device: HID_DEVICE):BYTE stdcall; external DLLNAME ;

 implementation

{$R *.dfm}

const

  VID = $152A;

  PID = $8261;

var

  devNum: integer;

  m_hid: HID_DEVICE;

  line : String;

  Stop: Boolean = False;

  //InputEnableBuffer: ;

    bufferPtr : Pointer;

procedure TForm1.ShowRead( ReportID: Byte;   Data: Pointer; Size: Word);

var

  I: Integer;

  Str: string;

begin

  Str := Format('RD %.2x  ', [ReportID]);

  for I := 0 to Size - 1 do

    Str := Str + Format('%.2x ', [Cardinal(PChar(Data)[I])]);

  Memo1.Lines.Add(Str);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

  status: Byte;

  len1: LongInt;

  i,BytesRead: LongInt;

begin

  devNum := HidDevice_GetNumHidDevices(VID, PID);

  ShowMessage('DeviceID = '+IntToStr(devNum));

  if devNum <> 0 then

    begin

    status := HidDevice_Open(m_hid, devNum-1,VID, PID);

    if (status = HID_DEVICE_SUCCESS) then     ShowMessage('OK!');

    repeat

    begin

    len1 := HidDevice_GetInputReportBufferLength(m_hid);

    //InputEnableBufferPtr.inhalt[1] := $00;

    if len1 <> 0 then

        begin

        //HidDevice_GetInputReport_Interrupt(m_hid,  InputEnableBuffer,len1-1,1,  BytesRead);

        HidDevice_GetInputReport_Control(m_hid,  BufferPtr,len1-1);

        //ShowRead( ReportID: Byte;   const Data: Pointer; Size: Word);

        ShowRead( 00,   BufferPtr, len1-1);

        end;

    end;

    until Stop;

    end;

    HidDevice_Close(m_hid);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Stop:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 GetMem(BufferPtr, 15 * SizeOf(Byte));

                                    ';

end;

end.