ich möchte unter Lazarus eine dll erzeugen um Klassen aus dieser zu verwenden.
Was mach ich falsch, dass ich beim Kompilieren keine dll sondern eine exe erzeuge
hab grad mal ein Beispiel aus dem Netz genommenum diese Möglichkeit zu testen.
Lazarus erstelltbeim Erzeugen einer Bibliothek ein neues Projekt und beim Kompilieren ne exe
was mach ich falsch?
hier ´nur mal der DLL-Code.
EDIT: der Link zum Beitrag http://entwickler-forum.de/showthread.php?t=24504" onclick="window.open(this.href);return false;
Code: Alles auswählen
library MWStObj;
{$mode objfpc}{$H+}
uses
SysUtils,
Classes,
Obj_Unit in 'Obj_Unit.pas';
type
TMWSt98 = class(TMWSt)
private
FMWStSatz : Real;
public
constructor Create;
function GetBrutto(const aNetto: Currency): Currency; override;
procedure SetPercent(const aPercent : Integer); override;
end;
constructor TMWSt98.Create;
begin
inherited Create;
FMWStSatz := 1.15;
Assert(MWST_VERSION = 1, 'Falsche Unit-Version!');
end;
function TMWSt98.GetBrutto(const aNetto: Currency): Currency;
begin
Result := aNetto * FMWStSatz
end;
procedure TMWSt98.SetPercent(const aPercent : Integer);
begin
FMWStSatz := 1.0 + (aPercent/100);
end;
{ Schnittstellenprozedur }
function CreateMWStObj: TMWSt98; stdcall;
begin
Result := TMWSt98.Create;
end;
{ Export der Schnittstellenprozedur }
exports
CreateMWStObj resident;
begin
{ nichts zu tun }
end.Gruss KH
Verein
Links
Suche