hallo zusammen,
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
Link
Delphi-Quellcode:
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.
danke für eure Hilfe
Gruss KH