API - DLL für Zugriff auf interne Variablen

To activate, rename this file to "test.opl"

[dll]
Test.dll

[varlist]
2
Velocity
cockpit_heizregler_temp

[triggers]
1
bus_doorfront0

library Test;

uses
  SysUtils,
  Dialogs,
  Classes,
  TestU in 'TestU.pas' {Form1};

{$R *.res}

procedure Start( AOwner: TComponent ); stdcall;
begin
        form1 := TForm1.Create( AOwner );
        form1.Show;
end;

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

procedure AccessVariable( varindex: word; var value: single; var write: boolean ); stdcall;
begin
        case varindex of
                0:
                begin
                        form1.Label2.Caption := floattostrF( value, ffFixed, 5, 1 ) + ' km/h';
                        form1.Gauge1.Progress := round( value );
                        write := false;                       
                end;
                1:
                begin
                        value := form1.TrackBar1.Position / 30;
                        write := true;
                end;
        end;
end;

procedure AccessTrigger( triggerindex: word; var active: boolean ); stdcall;
begin
        case triggerindex of
                0:
                begin
                        active := form1.button1_pressed;
                end;
        end;
end;

exports
        AccessVariable,
        AccessTrigger,       
        Start,
        Finalize;


begin
end.

Public Class Class1
    Dim frm As New Form1
    Public Sub Start(ByVal AOwner As Object)
        frm.Show()
    End Sub

    Protected Overrides Sub Finalize()
        frm.Close()
        MyBase.Finalize()
    End Sub
End Class

PlugInIBIS_Day
PlugInIBIS_Month
PlugInIBIS_Year

{macro:PlugInIBIS_frame}
    (L.S.Day) (S.L.PlugInIBIS_Day)
    (L.S.Month) (S.L.PlugInIBIS_Month)
    (L.S.Year) (S.L.PlugInIBIS_Year)
{end}