DLL - Bushaltestelle

library Test;

uses
  SysUtils,
  Dialogs,
  Classes,
  Unit2 in 'Unit2.pas' {Form2};

procedure Start( AOwner: TComponent ); stdcall;
begin
        form2 := TForm2.Create( AOwner );
        form2.Show;
end;

procedure Finalize; stdcall;
begin
        form2.Free;
end;

procedure AccessVariable( varindex: word; var value: single; var write: boolean ); stdcall;
begin
        case varindex of
                0:
                begin
                        form2.Label1.Caption := floattostrF( value, ffFixed, 50, 1 ) ;
                        write := false;
                end;

        end;
end;

procedure AccessTrigger( triggerindex: word; var active: boolean ); stdcall;
begin
        case triggerindex of
                0:
                begin
                        active := true

                end;
        end;
end;

exports
        AccessVariable,
        AccessTrigger,     
        Start,
        Finalize;


begin
end.