Problem beim Aufruf von funktionen aus einer dll

JanI · Hält's aus hier Beiträge: 1

Ich möchte eine dll in Delphi benutzen bei der die Funktionsbeschreibung in VC++ existiert. Folgende Funktion bereitet mir dabei Probleme:

Folgende Funktion:

Aus der *.h-Datei

PCIDIO_API BOOL pcidioGetSummeryOfAllBoards(PCIDIO_SUMMERY *SummeryBuffer);

Es wird ein Zeiger auf einen Datenpuffer übergeben der au ein Datenarray vom Typ PCIDIO_Summery zeigt. Der Datenpuffer sollte 4 Kartenübersichten aufnehmen können.

markieren

C#-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Typdef struct PCIDIO_SUMMERYSummerybuffer
{
  Pcidio_handle hPcidiohandle;
  Byte BoardIndex;
  Byte Slotnumber;
  Byte BusNumber;
  Byte BoardAdressJumper;
  Dword BoardIOAdress; 
}

Pcidio_summery       l_SummeryBuff[4];
Bool      l_bReturnValue;

Aufruf innerhalb des Programms:

markieren

C#-Quelltext

1:	L_breturnValue = pcidioGetSummeryOfAllBoards(l_SummeryBuffer);

Nun in Delphi:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Type
  PCIDIO_SUMMERYSummerybuffer = packed Record;
  Pcidio_handle     : thandle;
  BoardIndex    : byte;
  Slotnumber    : byte;
  BusNumber    : byte;
  BoardAdressJumper  : byte;
  BoardIOAdress;   : dword;
End;



Var
  Summerybuffer  : array[1..4] of PCIDIO_SUMMERYSummerybuffer

Function  pcidioGetSummeryOfAllBoards():boolean;
   Stdcall; external ‚pcidio.dll‘;

Aufruf im Programm:

markieren

Delphi-Quelltext

1:	L_bReturnValue:=pcidiogetSummeryOfAllBoards(Summerybuffer);

Mein Problem ist die Deklaration der Funktion und der eigentliche Funktionsaufruf. Kann mir jemand weiterhelfen?

Moderiert von Narses: Topic aus VCL (Visual Component Library) verschoben am Mo 28.05.2012 um 19:17

adina83 · Beiträge: 29

Die Deklaration in Delphi hab ich wie folgt probiert:

markieren

Delphi-Quelltext

1:
2:

Function  pcidioGetSummeryOfAllBoards(var pcidio_SummerySummeryBuffer):boolean;
   Stdcall; external ‚pcidio.dll‘;

und den Aufruf mit:

markieren

Delphi-Quelltext

1:	L_bReturnValue:=pcidiogetSummeryOfAllBoards(Summerybuffer);

--> Fehlermeldung: Prozedureinsprungpunkt wurde nicht gefunden.

und

markieren

Delphi-Quelltext

1:	L_bReturnValue:=pcidiogetSummeryOfAllBoards(@Summerybuffer);

--> Fehlermeldung: E2197 Konstantenobjekt kann nicht als var-Parameter übergeben werden

uall@ogc · Verfasst: Do 07.06.12 15:55

www.ebru.de/data/pcidio-de-um-3v5.pdf
Ist echt ne schlechte Dokumentation:
Der buffer heißt summEry die Funktion summAry, deshalb findert der das nicht. Versuchs mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type

TPCIDIO_SUMMERYSummerybuffer = packed record
  Pcidio_handle     : thandle;
  BoardIndex    : byte;
  Slotnumber    : byte;
  BusNumber    : byte;
  BoardAdressJumper  : byte;
  BoardIOAdress;   : dword;
end;

TSummerybuffer = array[0..3] of TPCIDIO_SUMMERYSummerybuffer
PSummerybuffer = ^TSummeryBuffer;

var
  Summerybuffer: TSummeryBuffer;

Function  pcidioGetSummaryOfAllBoards(pcidio_SummerySummeryBuffer: PSummerybuffer): Boolean; stdcall; external 'pcidio.dll';
L_bReturnValue:=pcidiogetSummaryOfAllBoards(@Summerybuffer);

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme