1:
2:
3:
4:

Abhängigkeiten des Projekts werden überprüft...
Compilieren von Project1.dproj (Debug-Konfiguration)
Erfolg
Verstrichene Zeit: 00:00:00.2                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

library graphic;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }


uses
  sharemem,
  SysUtils,
  Classes,
  PNGImage,
  ExtCtrls,
  Controls,
  Graphics;

type
  TImageArray = array of array of TImage;
{$R *.res}

function CreateTerrain(Zeilen, Spalten, ImageRes : integer; Owner : TWinControl;
          FilePath : string; ImageTyp : string = 'png'): TImageArray; //ImageRes = Auflösung des Bildes z.B. 64x64px
var
  Z,S : Integer;
begin
  SetLength(result,Zeilen,Spalten);
  for Z := 0 to Zeilen - 1 do
  begin
    for S := 0 to Spalten - 1 do
    begin
      result[Z,S] := TImage.Create(owner);
      if ImageTyp = 'bmp' then result[Z,S].Picture.Bitmap.LoadFromFile(ExtractFilePath(ParamStr(0))+FilePath+'.'+ImageTyp)
      else result[Z,S].Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+FilePath+'.'+ImageTyp);
      result[Z,S].Left   := result[Z,S].Left + (Z * ImageRes);
      result[Z,S].Top    := result[Z,S].Top  + (S * ImageRes);
      result[Z,S].Width  := ImageRes;
      result[Z,S].Height := ImageRes;
      result[Z,S].Parent := owner;
    end;
  end;
end;

exports
  CreateTerrain;

begin
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit Unit1;

interface

uses
  sharemem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TImageArray = array of array of TImage;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    function CreateTerrain(Zeilen, Spalten, ImageRes : integer; Owner : TWinControl;
          FilePath : string; ImageTyp : string = 'png'): TImageArray;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.CreateTerrain(Zeilen, Spalten, ImageRes : integer; Owner : TWinControl;
          FilePath : string; ImageTyp : string = 'png'): TImageArray;
          external 'graphic.dll';

procedure TForm1.Button2Click(Sender: TObject);
begin
  CreateTerrain(10,5,64,form1,'image/gras64x64');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateTerrain(10,10,64,form1,'image/gras64x64','png');
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

library mydll;

uses
  System.SysUtils,
  Winapi.Windows;

var
  PreviousDLLProcEx: TDLLProcEx;

procedure MyDllMainEx(Reason: Integer; Reserved: Pointer);
begin
  case Reason of
    // dll wurde geladen, Initialisierungsaufgaben können jetzt durchgeführt werden
    DLL_PROCESS_ATTACH: {...};
    // dll wird entladen, Aufräumarbeiten können jetzt durchgeführt werden
    DLL_PROCESS_DETACH: {...};
  end;
  // die Meldung an den vorigen Handler weiterleiten, falls er existiert
  if Assigned(PreviousDLLProcEx) then PreviousDLLProcEx(Reason, Reserved);
end;

{ ... code ...}

exports
  Proc1,
  etc;

begin
  DisableThreadLibraryCalls(HInstance);
  PreviousDLLProcEx := DllProcEx;
  DllProcEx := @MyDllMainEx;
  DllProcEx(DLL_PROCESS_ATTACH, nil);
end.                    

1:
2:
3:
4:
5:
6:
7:
8:

// in der DLL:
function Bla(Param1, Param2: Integer): Integer; stdcall;
begin
//...
end;

// im Programm, das die DLL importiert:
function Bla(Param1, Param2: Integer): Integer; stdcall; external 'mydll.dll';