Objekt in DLL - kann das funktionieren?

[DGL-luke]

Hallo, es geht darum, Ressourcen aus einer DLL zu laden. Es gehört da aber noch ein wenig mehr dazu, was im Moment testweise in der Exe hardcoded ist. Das würd ich gerne in die DLL auslagern.

Deswegen wollt ich mal fragen, ob sowas möglich ist (ShareMem kommt nicht in Frage, VCL-versionen sind hoffentlich gleich :stupid:):

Delphi-Quellcode:

//DLL-Code
type
  PFormImages = ^TFormImages;
  TFormImages = array of TImage;

procedure SetFormImages(FormImagesArray: PFormImages; Parent: TWinControl); stdcall;
begin
    setLength(FormImagesArray^, length(FormImagesArray^) + 1);
    FormImagesArray^[length(FormImagesArray^) - 1] := TImage.Create(Parent);
    FormImagesArray^[length(FormImagesArray^) - 1].Parent := Parent;
    FormImagesArray^[length(FormImagesArray^) - 1].Top := 0;
    FormImagesArray^[length(FormImagesArray^) - 1].Left := 0;
    FormImagesArray^[length(FormImagesArray^) - 1].Height := 308;
    FormImagesArray^[length(FormImagesArray^) - 1].Width := 482;
    FormImagesArray^[length(FormImagesArray^) - 1].SendToBack;
    FormImagesArray^[length(FormImagesArray^) - 1].Show;
    FormImagesArray^[length(FormImagesArray^) - 1].Stretch := False;
end;

Knackpunkt dürfte das Erzeugen des Image in der DLL sein, nehm ich mal an, alles andere ist nur VCL-unabhängiges Pointergewurschtel.
Oder ist das setlength auch schon problematisch?

EDIT: Das ganze kompiliert und läuft, da das projekt aber ein wenig größer ist, weiß ich im Moment auch gar nicht, obs überhaupt aufgerufen wird :stupid:

[Bernhard Geyer]

Sobalst du mit Objekten in deiner DLL-Schnittstelle arbeitest darfst du nur mit Laufzeitpackages arbeiten!
Alles andere wird sehr viel Kopfschmerzen (und Abstürze) verursachen.

[DGL-luke]

OK, merk ich mir. Ich werd trotzdem noch ein wenig testen.

Zur Not schrieb ich das ganze halt so um, dass die DLL nur die Infos rausdgibt in Records, und im Main module wirds dann auf Objekte gepackt.

[Elvis]

Zitat:

Zitat von Bernhard Geyer

Alles andere wird sehr viel Kopfschmerzen (und Abstürze) verursachen.

Wenn wir Interface-referenzen ebenfalls als Objekte bezeichnen, dann gibt es zumindest eine weitere Option, die Compiler- und sprachunabhängig ist.

@Luke

Mal so aus den Fingern gesaugt...
Die Unit sollte nur die Interfaces enthalten. Dadurch kann sie in Echse und DLL benutzt werden.

Delphi-Quellcode:

type
  IImage = interface
  ['....']
    // hier die benötigten properties
  end;

  IImageList = interface
  ['....']
    function  get_Item : IImage; stdcall;
    procedure set_Item(const aValue : IImage); stdcall;

    property Item[aIndex : Integer] : IImage
      read  get_Item
      write set_Item; default;

    function Add(const aItem : IImage) : Integer; stdcall;
    function AddNew : IIMage; stdcall;
    ...
  end;

Nun müsstest du nur noch das hier exportieren:

Delphi-Quellcode:

procedure SetFormImages(const aFormImages : IImageList); stdcall;
var
  image : IImage;
begin
    image := aFormImages.AddNew();
    image.Top := 0;
    image.Left := 0;
    image.Height := 308;
    image.Width := 482;
    image.SendToBack();
    image.Show();
    image.Stretch := False;
end;

Da kann man sogar länger hingucken, ohne dass einem schlecht wird. ;)