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

#include "dlltest.h"

__declspec(dllexport) int addiere(int zahl1, int zahl2)

{
return zahl1+zahl2;
}					

1:
2:
3:
4:

#if!defined DLLTEST_H
#define DLLTEST_H
__declspec(dllexport) int addiere(int zahl1, int zahl2);
#endif					

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:
54:
55:
56:
57:
58:
59:
60:

unit Unit1;

interface

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

type
  TSummenFunktion = function(zahl1, zahl2: integer): integer; stdcall;
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function addieren(zahl1, zahl2: integer; var summe: integer): integer;
var SummenFunktion: TSummenFunktion;
    Handle: THandle;
begin
  Handle:=LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'dlltest.dll'));
  if Handle <> 0 then begin
    @SummenFunktion := GetProcAddress(Handle, 'addiere');
    if @SummenFunktion <> nil then begin
      summe:=SummenFunktion(zahl1, zahl2);
      result:=1;
    end
    else result:=0;
    FreeLibrary(Handle);
  end
  else result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var wert,summe: integer;

begin
  if (addieren(strtoint(edit1.Text),strtoint(edit2.Text),summe) <> 0) then
  begin
  wert:=summe;
  edit3.Text:=inttostr(wert)
  end
  else edit3.Text:= 'Fehler: DLL nicht ladbar!';
end;

end.					

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

library rechnen;   

uses 
  SysUtils, 
  Classes; 

{$R *.res} 

function addiere(zahl1, zahl2: integer): integer; stdcall; 
begin 
  result:=zahl1+zahl2; 
end; 

exports 
  addiere; 

begin 

end.					

1:
2:

type
  TSummenFunktion = function(zahl1, zahl2: integer): integer; stdcall;					

1:
2:

type
  TSummenFunktion = function(zahl1, zahl2: integer): integer; cdecl;					

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

#define EXPORT __declspec(dllexport)
extern "C" {

int EXPORT __stdcall addieren(int p0, int p2)
{
}

}					

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

#include "dlltest.h"

extern "C"{
  
int __declspec(dllexport) __stdcall addieren(int p0, int p2)
 {
 return p0+p2;
 }
}					

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

#if!defined DLLTEST_H
#define DLLTEST_H


extern "C" {
  int __declspec(dllexport) __stdcall addieren(int p0, int p2);
}
#endif					

1:
2:
3:
4:

LIBRARY  dlladd

EXPORTS
  addieren;					

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:
54:
55:
56:
57:
58:
59:

unit Unit1;

interface

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

type
  TSummenFunktion = function(zahl1, zahl2: integer): integer; stdcall;
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function addieren(zahl1, zahl2: integer; var summe: integer): integer;
var SummenFunktion: TSummenFunktion;
    Handle: THandle;
begin
  Handle:=LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'dlladd.dll'));
  if Handle <> 0 then begin
    @SummenFunktion := GetProcAddress(Handle, 'addieren');
    if @SummenFunktion <> nil then begin
      summe:=SummenFunktion(zahl1, zahl2);
      result:=1;
    end
    else result:=0;
    FreeLibrary(Handle);
  end
  else result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var summe: integer;

begin
  if (addieren(strtoint(edit1.Text),strtoint(edit2.Text),summe) <> 0) then
  begin
  edit3.Text:=inttostr(summe)
  end
  else edit3.Text:= 'Fehler: DLL nicht ladbar!';
end;

end.