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 ):

zusammenfalten · markieren

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

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.

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.

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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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.