Moin nochmal,
ich habe die Klasse nochmal erweitert um ein Formular und ein NrComm (serielle Komponente).
Delphi-Quellcode:
unit Obj_Unit;
interface
Uses nrclasses, nrcomm, Forms, Unit2;
type
TMWSt =
class
protected
nrcomm : TnrComm;
Form : TTestForm;
public
function GetBrutto (
const aNetto : Currency): Currency;
virtual;
abstract;
procedure SetPercent(
const aPercent : Integer );
virtual;
abstract;
Function ShowPortInfo :
string;
virtual;
abstract;
published
property Comm : TnrComm
read nrcomm
write nrcomm;
property Formular : TTestForm
read Form
write Form;
end;
const
MWST_VERSION = 1;
implementation
end.
Dann habe ich in der anwendung zwei Instanzen erstellt:
Delphi-Quellcode:
Obj1 := CreateMWStObj;
Obj1.Comm := nrComm1;
Obj1.Formular := TTestForm.Create(Self);
Obj1.Formular.Show;
Obj2 := CreateMWStObj;
Obj2.Comm := nrComm2;
Und natürlich in der
DLL die Funktion ergänzt.
Auch das funktioniert. Habe mir auf das Formular 2 Buttons gesetzt um jeweils ShowPortInfo der Instanz aufzurufen. Klappt bis jetzt tadellos.
Aber ich bin mir irgendwie fast sicher das diese Technik einen Haken hat
