Win32 Dll erzeugen

[lazcad]

Hallo,

ich habe lange nichts mit Delphi gemacht und jetzt möchte ich eine Win23 Dll mit Delphi erzeugen.

Dabei habe ich 2 interne Funktionen und eine externe. Rufe ich die interne Funktion auf, bekomme ich "nicht deklarierter Bezeichner". Warum ?

Delphi-Quellcode:

library Project1;

uses
  SysUtils,
  Classes;

{$R *.res}

function Calc (x,y :Byte): word; stdcall;
begin
  Result:= Addieren (x,y);  // <--- nicht deklarierter bezeichner Addieren ???
end;

function Addieren(x, y: Byte): Word; // stdcall;
begin
  Result := x + y;
end;

function Subtrahieren(x, y: Byte): ShortInt; //stdcall;
begin
  Result := x - y;
end;

// exports  Addieren; // index 1;
// exports Subtrahieren; // index 2;
exports Calc;

begin
end.

Kann mir jemand einen Tip geben, wie das Problem zu lösen ist ?

Danke !

Gruß
Stefan

[Assertor]

In dem Du Addieren vor Calc verschiebst.

Gruß Assertor

[Die Muhkuh]

Hi Stefan,

füge vor dem Calc mal das hier ein:

Delphi-Quellcode:

function Addieren(x, y: Byte): Word; forward;

[Luckie]

Da du keine Klasse mit einer Deklaration hast, in der die Methoden bekannt gemacht werden - auch für den Compiler, sondern eine einfache Sammlung von Routinen in einer Unit, geht der Compiler von oben nach unter vor. Und wenn er in der Funktion calc auf den Funktionasaufruf Addiere stößt, weiß er damit nichts anzufagen, weil die Funktion Addiere erst weiter unten im Quelltext implementiert wird.

Du hast jetzt zwei Möglichkleiten, die beide schon erwähnt wurden. Entweder du sortierst die Funktionen in deinem Quellcode um, was hier noch möglich ist, oder aber, wenn das nicht möglich ist, kannst du dem Compiler die Routinen auch mit sogenannten foward-Deklarationen bekannt machen:

Delphi-Quellcode:

function Addieren(x, y: Byte): Word; forward;

Das reicht schon, weil der Compiler nur wissen muss, wie der Funktionskopf aussieht, um entscheiden zu können, ob die Funktion korrekt aufgerufen wird.

Das noch mal zum Verständnis zu den Lösungen meiner Vorposter.

[Die Muhkuh]

Hab es jetzt nicht ausprobiert, aber wäre es nicht möglich eine Klasse mit Klassenmethoden zu erstellen und diese zu exportieren?

[Luckie]

bei Klassen in einer DLL bin ich immer vorsichtig. Außerdem halte ich die Lösung mit Klassenmethoden für etwas übertrieben. Und was mir noch einfällt, mit Klassenmethoden können eventuell andere Programmiersprachen nichts anfangen. Ach und wie willst du die exportieren? Das wären jedenfalls noch Punkte, die geklärt werden müssten und die eventuell Probleme bereiten könnten.

[Apollonius]

Wenn die Klassenmethoden mit der Direktive "static" deklariert werden, wird kein Self-Parameter entgegengenommen, also können sie aus anderen Sprachen benutzt werden. Allerdings weiß ich nicht, ob Delphi den Export erlaubt.

[Luckie]

Die Direktive static gibt es aber auch erst in den neueren Delphi Versionen oder?

[Apollonius]

Wenn ich die Dokumentation richtig verstanden habe, gibt es sie erst ab BDS 2006 in Win32.

[Reinhardtinho]

So eine DLL könnte man nicht in C einbinden, sehe ich das richtig?

[Luckie]

Zitat:

Zitat von Reinhardtinho

So eine DLL könnte man nicht in C einbinden, sehe ich das richtig?

Das diskutieren wir gerade. Wenn man keine klare Aussage in der Hilfe oder mit Google findet, müsste man es mal ausprobieren.

[Apollonius]

Statische Klassenmethoden sind eigentlich normale Routinen, die in einem Namensraum zusammengefasst sind. Insofern kann man sie, sofern eine C-kompatible Aufrufkonvention verwendet wird, durchaus aus C aufrufen. Die Frage ist, ob Delphi den Export erlaubt.

[lazcad]

Hallo an alle,

vielen Dank für eure Tips, ich werde es testen.

Diese Dll sollte auch von C oder anderen Programmiersprachen erreichbar sein, durch stdcall in der Funktionsdeklaration soll das laut Beschreibung möglich sein.

Ich werde die Tage alles testen und melde mich dann noch mal

Gruß
Stefan

[Cyf]

Diese dll in C einzubinden sollte nicht das Problem sein, aber die Frage ist, ob es auch mit statische Klassenmethoden funktioniert, aber eigentlich gehört das nicht mehr in diesen Thread.