Fehler im header für eine DLL

[StepLaz]

Hallo zusammen ...

da ich jetzt das erste Mal eine fremde DLL in einem Programm benutzen will, stehe ich etwas auf der Leitung.

Ich will folgende (Delphi)Unit unter Windows benutzen:

Code: Alles auswählen

unit LJUDDelphi;
 
{$MODE Delphi}
 
interface
 
type
  LJ_HANDLE = Integer;
  LJ_ERROR = LongInt;
  TPLongInt = ^LongInt;      //LongInt pointer
  TPDouble = ^Double;        //Double pointer
 
  function ListAll(DeviceType: LongInt; ConnectionType: LongInt; var pNumFound: LongInt; pSerialNumbers: TPLONGINT; pIDs: TPLONGINT; pAddresses: TPDOUBLE): LJ_ERROR stdcall;
  function ListAllS(pDeviceType: PChar; pConnectionType: PChar; var pNumFound: LongInt; pSerialNumbers: TPLongInt; pIDs: TPLongInt; pAddresses: TPDouble): LJ_ERROR stdcall;

und bekomme dabei immer diese Fehlermeldung:

LJUDDelphi.pas(543,12) Error: function header doesn't match the previous declaration "ListAll:LongInt; StdCall;"

Wo liegt denn hier der Fehler? Ich habe vorher die Unit in eine Lazarus-Unit gewandelt ... worauf muss ich hier noch achten? Bin leider über die Suchfunktion hier im Forum auf keine Antwort gekommen ...

Gruß Step

[af0815]

Im interface UND implemention Teil ist die Definition gleich ?

[StepLaz]

Ich denke schon ... hier der Implementation-Teil:

Code: Alles auswählen

implementation
  function ListAll: LJ_ERROR stdcall; external 'labjackud.dll';

Gibt es hier evtl. etwas, was fehlt :

Code: Alles auswählen

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  Menus, Windows, LJUDDelphi;

?

[theo]

Wie soll das gehen? Im Interface hast du zwei überladene Funktionen, mal mit PChar, mal mit Longint und in der implementierung nur eine?

[StepLaz]

Es geht (erstmal) nur um die function ListAll (NICHT ListAllS) und dort ist kein PChar ...

Die Fehlermeldung kommt schon bei der ersten function ListAll.

Hier noch mal der Vollständigkeit halber:

Code: Alles auswählen

interface
 
type
  LJ_HANDLE = Integer;
  LJ_ERROR = LongInt;
  TPLongInt = ^LongInt;      //LongInt pointer
  TPDouble = ^Double;        //Double pointer
 
  function ListAll(DeviceType: LongInt; ConnectionType: LongInt; var pNumFound: LongInt; pSerialNumbers: TPLONGINT; pIDs: TPLONGINT; pAddresses: TPDOUBLE): LJ_ERROR stdcall;
  function ListAllS(pDeviceType: PChar; pConnectionType: PChar; var pNumFound: LongInt; pSerialNumbers: TPLongInt; pIDs: TPLongInt; pAddresses: TPDouble): LJ_ERROR stdcall;
 
 
implementation
  function ListAll: LJ_ERROR stdcall; external 'labjackud.dll';
  function ListAllS: LJ_ERROR stdcall; external 'labjackud.dll';

Es gibt hier noch wesentlich mehr Funktionen, die ich aber erstmal ausgeblendet habe ...

[theo]

Soweit ich weiss, reicht es, das Ganze im interface zu deklarieren:

Code: Alles auswählen

interface
 
type
LJ_HANDLE = Integer;
LJ_ERROR = LongInt;
TPLongInt = ^LongInt; //LongInt pointer
TPDouble = ^Double; //Double pointer
 
function ListAll(DeviceType: LongInt; ConnectionType: LongInt; var pNumFound: LongInt; pSerialNumbers: TPLONGINT; pIDs: TPLONGINT; pAddresses: TPDOUBLE): LJ_ERROR stdcall; external 'labjackud.dll';
function ListAllS(pDeviceType: PChar; pConnectionType: PChar; var pNumFound: LongInt; pSerialNumbers: TPLongInt; pIDs: TPLongInt; pAddresses: TPDouble): LJ_ERROR stdcall; external 'labjackud.dll';
 
implementation      
..

Ansonsten Parameterliste in implementation wiederholen

[carli]

LJUDDelphi.pas(543,12) Error: function header doesn't match the previous declaration "ListAll:LongInt; StdCall;"

Ich denke schon ... hier der Implementation-Teil:

implementation
function ListAll: LJ_ERROR stdcall; external 'labjackud.dll';

NICHTS ist gleich.
Du hast ne andere Signatur (=Parameterliste) in der implementation als im Interface stehen.

Dreister gehts doch nicht: Du schreibst nicht matchende Deklaration/Implementation, bekommst den Fehler, dass es nicht matcht, wirst gefragt, ob es wirklich nicht matcht und postest uns als Beweis den Code, der wirklich nicht matcht.

[theo]

@Carli: Mal nicht so forsch. So ähnlich geht das schon auch, allerdings in {$mode delphi} und ohne dekl. des Rückgabewerts.

Code: Alles auswählen

{$mode delphi}{$H+}
 
type
LJ_HANDLE = Integer;
LJ_ERROR = LongInt;
TPLongInt = ^LongInt; //LongInt pointer
TPDouble = ^Double; //Double pointer
 
function ListAll(DeviceType: LongInt; ConnectionType: LongInt; var pNumFound: LongInt; pSerialNumbers: TPLONGINT; pIDs: TPLONGINT; pAddresses: TPDOUBLE): LJ_ERROR stdcall;
function ListAllS(pDeviceType: PChar; pConnectionType: PChar; var pNumFound: LongInt; pSerialNumbers: TPLongInt; pIDs: TPLongInt; pAddresses: TPDouble): LJ_ERROR stdcall;
 
implementation
function ListAll; stdcall; external 'labjackud.dll';
function ListAllS; stdcall; external 'labjackud.dll';

[carli]

@Carli: Mal nicht so forsch. So ähnlich geht das schon auch, allerdings in {$mode delphi} und ohne dekl. des Rückgabewerts.

Dass das in Delphi so geht, wusste ich nicht.
Man sollte trotzdem den Abwärtskompatibilitätsmodus nicht zum Einführen neuer Features benutzen.

[StepLaz]

@carli
Wenn du dir mein Listing durchliest, hättest du diese Passage eigentlich sehen sollen ... {$mode delphi} ... aber immerhin - sehr "selbstbewußt" ...


@theo
Danke ... endlich mal eine konstruktive Antwort!

Scheint ja ein etwas rüder Umgangston hier zu herrschen ... bin ich eigentlich aus anderen Foren nicht so gewohnt ... und das "vergrault" alten Delphi-Usern auch den Umstieg - aber vielleicht ist das ja gewollt ...

[theo]

... aber immerhin - sehr "selbstbewußt" ...

Dieses Kompliment kann ich nur zurückgeben.
Im vierten Beitrag schon mal über die Forumsmitglieder ablästern ist auch nicht schlecht...

[Hitman]

Dieses Kompliment kann ich nur zurückgeben.

Kannst du nicht - weils nicht an dich gerichtet war

Aber mal im ernst: nicht alles so finster sehen. Ein paar sarkastische Kommentare muss man schon abkönnen im Internet

[af0815]

Scheint ja ein etwas rüder Umgangston hier zu herrschen ... bin ich eigentlich aus anderen Foren nicht so gewohnt ... und das "vergrault" alten Delphi-Usern auch den Umstieg - aber vielleicht ist das ja gewollt ...

Nein, der Umgangston ist nicht rüde, das war eher nett gemeint

Vielleicht als Umsteiger von Delphi - Man sollte sich alsbaldig mit den Feinheiten des Lazarus aber ganz besonders des darunter wrkenden FPC vertraut machen. Delphi hat bei etliche Sachen probiert das zu machen was der Programmierer vielleicht gemeint hat. Da ist der FPC wesentlich pingeliger, siehe oben. Gerade bei den Deklarationen sollte man im zweifelsfall es mit der vollen Ausschreibung tun, das minimiert Fehler.

Gute Quellen sind die Dokus zu FPC und Lazarus, neben der Wiki. Es ist immer wieder Wert bei Fragen dort einen Blick hinein zu machen.

Beispiele: (leider viel zu wenig beachtet)
Sprachreferenz
Programmers Guide
FCL-Refernenz
RTL_Referenz
User Guide

[carli]

Scheint ja ein etwas rüder Umgangston hier zu herrschen ... bin ich eigentlich aus anderen Foren nicht so gewohnt ... und das "vergrault" alten Delphi-Usern auch den Umstieg - aber vielleicht ist das ja gewollt ...

Tut mir leid, wenn ich dir zu nahe getreten bin, ich würde es ja eher als "direkt und ehrlich" statt "rüde" bezeichnen.
Ansonsten kenne ich auch Foren, in denen es _wirklich_ schlimmer abläuft, da ist das Lazarusforum der reine Himmel auf Erden.

[StepLaz]

Tja ... man lernt immer was dazu ... für mich ist das Thema nun erledigt. Danke ... und Tschüss ...