[DLL] Procedure Deklarieren

[gsh]

Hi DPler

Bin ich echt zu blöd um in einer DLL eine procedure zu deklarieren?
Also ich hab zwei proceduren in meiner DLL eine davon wird export und die andere nicht.

Ich muss eine davon deklarieren da sonst immer eine davon nicht gefunden wird, denn die eine ruft die andere auf und umgekert. Also wenn ich jetzt eine davon unter die andere schreib dann wird klarerweiße die andere nicht mehr gefunden. Naja kompliziert aber logisch :mrgreen:

Hier mal mein Source:

Delphi-Quellcode:

library TestPlugin;

uses [..]

{$R *.res}

var
  PluginSend : procedure(Befehl : integer; Parameter : Pointer);

procedure PluginMain(Befehl : integer; Parameter : Pointer); stdcall;
begin
  case Befehl of
    BefehlToPlugin_PluginInit://PluginInit
    begin
      PluginSend := TPluginRecordToPlugin_PluginInit(Parameter^).PluginSend;
      ObserverAnmeldung;     //<-- Wird nicht gefunden weil es unten steht
    end;
  end;
end;

procedure ObserverAnmeldung;
var
  TempPluginRecordToApp_PluginMain : TPluginRecordToApp_PluginMain;
begin
  TempPluginRecordToApp_PluginMain.PluginMain := PluginMain;  //<-- Hier wird die PluginMain zwar gefunden aber nur weil diese procedure unten steht
  PluginSend(BefehlToPlugin_PluginFree*-1, @TempPluginRecordToApp_PluginMain);
end;

exports PluginMain;

begin
end.

Ich hoff ihr versteht mich

[mkinzler]

Delphi-Quellcode:

exports PluginMain;

Du exportierst ja auch nur eine. Üch würde dem export auch einen namen geben, wenn die cassensitive Procedure auch von anderen Sprachen genutzt werden soll.

[Khabarakh]

@mkinzler: Lies dir den ersten Post nochmal durch.

@gsh: Dazu gibt es den interface-Abschnitt ;) . interface-Abschnitte gibt es jedoch wiederum nur in seperaten Units. Deine library-Datei besteht dann also nur noch aus uses und exports.

[gsh]

Ja des ist mir klar des ich nur eine exportiere
Die andere will ich ja nicht exporiteren

Die procedure ObserverAnmeldung; soll nur in der DLL aufrufbar sein und dient der Übersicht.

//Nachtrag (dank roter box):
@Khabarakh: Meine DLL hat keinen interface abschnitt. und wenn ich interface hinschreib dann mag er des nicht. Des hät ich nämlich schon probiert

[mkinzler]

Zitat:

@mkinzler: Lies dir den ersten Post nochmal durch.

Hätte ich die frage genauer gelesen hätte ich das eigentlich Problem gesehen :oops:
[edit: Warum verwendest du kein forward?]

[Khabarakh]

@gsh: Editiert.

@mkinzler: Auch eine Möglichkeit. Wenn die Dll umfangreicher wird, würde ich trotzdem mit dem Auslagern anfangen.

[gsh]

Zitat:

Zitat von mkinzler

[edit: Warum verwendest du kein forward?]

Ein Forward? was ist das?

edit:

Zitat:

Zitat von Khabarakh

@gsh: Editiert.

@mkinzler: Auch eine Möglichkeit. Wenn die Dll umfangreicher wird, würde ich trotzdem mit dem Auslagern anfangen.

Ja habs gesehen gesehen aber ich möchte diese Procedure nicht in eine Unit auslagern da sie imho dafür zu klein ist.

[Chewie]

Notier ObserverAnmeldung einfach vor PluginMain.

[gsh]

Zitat:

Zitat von Chewie

Notier ObserverAnmeldung einfach vor PluginMain.

Ja dann findert er aber in der Procedure ObserverAnmeldung die Procedure PluginMain nicht mehr :wall:

[mkinzler]

Delphi-Quellcode:

procedure ObserverAnmeldung; forward;

procedure PluginMain(Befehl : integer; Parameter : Pointer); stdcall; 
begin
   ...
end;

procedure ObserverAnmeldung;
var
  TempPluginRecordToApp_PluginMain : TPluginRecordToApp_PluginMain;
begin 
...

[gsh]

ah danke mkinzler

so gehts :thumb:

[mkinzler]

Gern geschehen, aber Khabarakh Tipp hätte auch funktioniert.

[gsh]

Zitat:

Zitat von mkinzler

Gern geschehen, aber Khabarakh Tipp hätte auch funktioniert.

ja sicher hätte es auch funktioniert aber ich hätte es persönlich nicht für fein empfunden wegen so einer kleinen Procedure eine eigene Unit zu schreiben ... in dem Projekt hab ich schon genug units dann bin ich froh wenn ich eine vermeiden kann.