Interface-Instanz-basierte Plugins auf Linux

Martok · Verfasst: Mo 25.10.10 01:36

Hallo,

ganz einfache Frage heute mal: kriegt man sowas unter Linux & Lazarus zum laufen?
(Code ist im Editor entstanden, also: wahrscheinlich nichtmal unter Win direkt compilierfähig

Mir gehts um das Konzept.)

Main.dpr

markieren

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

program Main;

uses IntfDef;

function GetIntf: IMyInterface; stdcall; external 'Plugin.dll';

var Foo: IMyInterface;
begin
  Foo:= GetIntf;
  Foo.TestFunc;
end;

Plugin.dpr

markieren

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

Library Plugin;

uses IntfDef;

type 
  TIntfImpl = class(TInterfacedObject, IMyInterface)
    procedure TestProc; stdcall;
  end;

procedure TIntfImpl.TestProc;
begin
  //Something
end;

function GetIntf: IMyInterface; stdcall;
begin
  Result:= TIntfImpl.Create as IMyInterface;
end;

exports GetIntf;
begin
end;

IntfDef.pas

markieren

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

Unit IntfDef;

interface

type 
  IMyInterface = interface
    ['InsertGUIDHere']
    procedure TestProc; stdcall;
  end;

implementation
end;

In einer Windows/Delphi-Umgebung ist das eine schön einfache Variante Plugins zu bauen. Kriegt man das vernünftig cross-compiliert, oder geht das nicht? Im Grunde ist das ja die Idee hinter COM, und damit eigentlich Windows-Only.
Aber nichts genaues weiß (ich/man) nicht...

Danke,
Sebastian

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."
Ich code EdgeMonkey -~==~- #ee-lounge in Freenode

jaenicke · Verfasst: Mo 25.10.10 01:40

Ich sehe erst einmal keinen Grund dagegen (außer, dass es sich um Lazarus handelt, meine jüngsten Erfahrungen damit... ;-)

). Bibliotheken gibt es unter Linux genauso wie Interfaces, denn die sind nativ umgesetzt und ein Sprachbestandteil.

Interfaces werden gebraucht um COM benutzen zu können, aber nicht COM um Interfaces benutzen zu können.

// EDIT:
Ach ja: Unter Lazarus gibt es noch eine andere Interface-Art. Corba oder so, hab mir das aber nie näher angeschaut.

Martok · Verfasst: Mo 25.10.10 01:56

jaenicke hat folgendes geschrieben :

(außer, dass es sich um Lazarus handelt, meine jüngsten Erfahrungen damit... ;-)

).

Dann nehm ich halt Kylix... see my point?

Spannend ist halt, dass es Delphi compiliert. Was genau, ist mir wurscht

Man darf die Frage auch gerne nach anderen Programmiersprachen stellen, aber dass das funktioniert, weiß ich zumindest unter Win32 auch definitiv.

jaenicke hat folgendes geschrieben :

Interfaces werden gebraucht um COM benutzen zu können, aber nicht COM um Interfaces benutzen zu können.

Klar, aber gibt es außerhalb von COM auch den fest definierten Aufbau im Speicher bzgl. Methodentabelle, Supports etc.? Darauf zielte die Frage ja so ein bisschen ab.

jaenicke hat folgendes geschrieben :

Ach ja: Unter Lazarus gibt es noch eine andere Interface-Art. Corba oder so, hab mir das aber nie näher angeschaut.

Die gehen seit D4 (damals groß beworben) wohl auch mit Delphi, aber außer "es gibt kein RefCounting" ist mir an denen noch nichts wirklich seltsames aufgefallen...

EDIT: was mal noch gesagt werden muss: wow, war das eine schnelle Antwort :shock:

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."
Ich code EdgeMonkey -~==~- #ee-lounge in Freenode

jaenicke · Verfasst: Mo 25.10.10 02:17

Martok hat folgendes geschrieben :

Spannend ist halt, dass es Delphi compiliert.

Da warte ich auf Delphi XE2. Damit werde ich dann auch für Linux mit Pascal entwickeln. Bis dahin quäle ich mich halt mit C++ und Konsorten herum.

Martok hat folgendes geschrieben :

Klar, aber gibt es außerhalb von COM auch den fest definierten Aufbau im Speicher bzgl. Methodentabelle, Supports etc.?

Das ist meines Wissens alles unabhängig von COM umgesetzt. Dementsprechend sage ich einmal: Ja. ;-)

Supports selbst ruft ja auch "nur" QueryInterface auf. Und das wiederum ist eine Methode, die das Objekt implementieren muss, damit es als Interface funktioniert.

Nebenbei (weil du das bei Corba angeschrieben

hast):
Ich unterdrücke teilweise bei der Verwendung von Interfaces auch die Referenzzählung, weil das manches einfach vollkommen undurchsichtig machen würde. Nämlich an den Schnittstellen, wenn man einen Teil des Projektes mit Interfaces umsetzen muss und einen andere Teil ohne. Und das dürfte wohl eher die Regel als die Ausnahme sein.

Martok hat folgendes geschrieben :

EDIT: was mal noch gesagt werden muss: wow, war das eine schnelle Antwort :shock:

Man tut was man kann, ich hab auch schon ein paar mal in der selben Minute geantwortet. :mrgreen:

delfiphan · Beiträge: 2682 Erhaltene Danke: 26

Ich denke es spricht nichts dagegen. Bibliotheken gibt es und Interfaces sind auch nur Pointers auf Funktionenstabellen. System.pas hat auch keine Abhängigkeiten zu irgend etwas COM-Spezifischem; TObject.GetInterface gibt es in FPC auch.

Martok · Verfasst: Mo 25.10.10 20:10

Danke euch beiden, dann glaube ich das mal so

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."
Ich code EdgeMonkey -~==~- #ee-lounge in Freenode

Implementation · Verfasst: Mo 25.10.10 20:39

Martok hat folgendes geschrieben :

Main.dpr

markieren

1:	function GetIntf: IMyInterface; stdcall; external 'Plugin.dll';

Aber es muss dann "Plugin.so" heißen

so = Shared Object

_________________
Chuck Norris kann in einem Word 65537 verschiedene Werte speichern. Und das gleichzeitig.

Martok · Verfasst: Mo 25.10.10 20:58

Muss nicht, aber sollte. Das hab ich mal als gegeben angenommen

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."
Ich code EdgeMonkey -~==~- #ee-lounge in Freenode


Delphi-Forum.de	Delphi-Library.de
C-Sharp-Forum.de	C-Sharp-Library.de