Klasse mit "class var" an DLL übergeben

[Win32.API]

Hallo,

mein Problem ist folgendes, wenn ich eine Klasse an eine DLL übergebe und anschließend auf eine class var zugreife stimmt der Wert in der class var nicht. (Ist ja auch logisch, da executable/lib beide die class var in ihrem Data-Segment speichern)

Beispiel:

Deklaration der Klasse:

Delphi-Quellcode:

type
  TFoobar = class
    class var Foo: Integer;
    procedure Bar(I: Integer);
  end;

  TFoobarProc = procedure (MainModule: TFoobar);

procedure TFoobar.Bar(I: Integer);
begin
  writeln(I);
end;

Library:

Delphi-Quellcode:

procedure Init(MainModule: TFoobar);
begin
  MainModule.Bar(MainModule.Foo);
end;

exports
  Init;

Executable

Delphi-Quellcode:

var
  aFoobar: TFoobar;
begin
  aFoobar := TFoobar.Create;
  aFoobar.Foo := 42;
  aFoobar.Bar(aFoobar.Foo);
  TFoobarProc(GetProcAddress(LoadLibrary('lib.dll'), 'Init'))(aFoobar);
  readln;
end.

Ausgabe:

Zitat:

42
0

Wünschenswert wäre es, beide zweimal 42 als Ausgabe zu erhalten.

Kennt einer eine Möglichkeit dies umzusetzen?


Gruß,
Win32

[mkinzler]

Keine Klasse im interface benutzen, sondern "flachklopfen" (Methoden als Prozeduren/Funktionen im Interface + Getter/Setter für Eigenschaften; Klasse auf der anderen seite wieder zusammensetzen) oder Interfaces verwenden

[himitsu]

du könntes dir eine Funktion anlegen, als Virtual kennzeichnen und über diese die Class-Vars abfragen ... durch das Virtual sollte immer nur die Funktion des Modules (EXE/DLL) aufgerufen werden, in welchem das Objekt erstellt wurde ... hoff ich mal :nerd:

[Win32.API]

Zitat:

Zitat von mkinzler

Keine Klasse im interface benutzen, sondern "flachklopfen" (Methoden als Prozeduren/Funktionen im Interface + Getter/Setter für Eigenschaften; Klasse auf der anderen seite wieder zusammensetzen) oder Interfaces verwenden

Wäre auch mein nächster Versuch gewesen, wenn die Methode von himitsu nicht perfekt würde :cyclops:

Zitat:

Zitat von himitsu

du könntes dir eine Funktion anlegen, als Virtual kennzeichnen und über diese die Class-Vars abfragen ... durch das Virtual sollte immer nur die Funktion des Modules (EXE/DLL) aufgerufen werden, in welchem das Objekt erstellt wurde ... hoff ich mal :nerd:

:thumb:
Auf sowas muss man erstmal kommen, tausend dank! :dp:


--Win32

[himitsu]

:angel: aber gut, daß ich daruf auch noch hingewiesen wurde ... bei der (schrittweisen) Umstellung meines himXML auf Interfaces hatte ich auch mit einer Modulübergreifenden Object-Verion experimentiert, also auf das Problem mit den Class-Vars wär ich bestimmt auch bald gestoßen -.-°