Problem mit eigen geschriebenen Omsi 2 Plugin (Delphi)

**Simon_2002** · 5. Dezember 2020

Hallo,

ich habe mich heute mal an ein Plugin (in der Sprache Delphi) gesetzt.

Es ist legentlich ein Test Plugin, indem man nur einen Trigger hat, welcher die Tür 1 z.B. aufmacht.

Benutzt (als Vorlage) habe ich das Tut im Omsi 2 wiki.

Mein Problem ist nun, dass ich eine Fehler bei Bereichsprüfung und bei der Project1.dll bekomme, ich kann leider sonst nichts anderes sagen, da die Logfile nichts ausspucken tut!

Wenn sich einige Fragen, wieso ich AccessVariable, AccessSystemVariable, ... eingefügt habe, den kann ich dazu nur sagen, dass vorher in der Log stand (wo ich das ganze da nicht drin hatte) AccessSystemVariable NOT FOUNT, usw.

Hier der Delphi-Code

Code

library Project1;

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

{$R *.res}

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

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

procedure AccessVariable( varindex: word; var value: single; var write: boolean ); stdcall;
begin
end;

procedure AccessSystemVariable( varindex: word; var value: single; var write: boolean ); stdcall;
begin
end;

procedure AccessStringVariable( varindex: word; str: PWideChar; var write: boolean ); stdcall;
begin
end;

procedure AccessTrigger( triggerindex: word; var active: boolean ); stdcall;
begin
        case triggerindex of
                0:
                begin
                        active := Form1.button1.Default;
                end;
        end;
end;

exports
        AccessVariable,
        AccessStringVariable,
        AccessSystemVariable,
        AccessTrigger,
        PluginStart,
        PluginFinalize;


begin
end.

Alles anzeigen

.opl

Code

[dll]
Project1.dll

[triggers]
1
bus_doorfront0

Das Bild der Form1 habe ich angehängt!

Ich würde mich sehr um Hilfe dabei freuen Danke!

Simon

**fOcUs04** · 14. Dezember 2020

@Projekt Potsdam Design

Hi,

leider hab ich von Programmierung sowenig Ahnung wie vom Kühe melken, aber ich könnte mir vorstellen, das die verschiedenen AccessVariable'n

auch mit einer Funktion (oder einem Wert) hinterlegt sein müssen.

Ähnlich wie bei OMSI, wenn man ein Script in einen anderen Bus einfügt, die entsprechenden Variablen in eine Varlist einträgt (Damit findet OMSI keinen Fehler) aber das Script funktioniert trotzdem nicht, da die Variablen nicht angesprochen werden.

Ich hoffe, ich habe nicht zu viel Müll verzapft. Ansonsten entschuldige ich mich hiermit schonmal im Vorraus.

mfg

Daniel

Neoplan VEST · 30. März 2024

Hey,

Da ich selber am versuchen bin den Beispiel aus dem Wiki nachzubauen denke ich das hier ein guter Ort ist mit meinem Anliegen.

Das mit den Zugriffsverletzung hab ich auch und wollte daher mal nachhaken, ob es in der Zeit einen erfolgt gab?

Programmieren tu ich selbst mit Delphi.

Den Fehler konnte vorerst in der procedure PluginStart eingrenzen.

Allerdings frage ich mich wo da das Problem liegt.

Code

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

Form1 ist noch recht nackig und beinhaltet keine Elemente.

Es ändert sich auch nichts daran wenn ich einfach irgendwas einfüge.

Beim erstellen der DLL kommt keine Fehlermeldung.

Kann es vielleicht an der Einstellung für das Form liegen oder ist einfach mein Delphi Version zu alt?

Einen plausiblen Grund hab ich sonst nicht.

Selbst für Lotus ist der Pluginstart und Pluginfinalize gleich.

So sieht es bei aus:

Code: DLL libary Test

library Test;

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

{$R *.res}

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

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

procedure AccessVariable( varindex: word; var value: single; var write: boolean ); stdcall;
begin
end;

procedure AccessTrigger( triggerindex: word; var active: boolean ); stdcall;
begin
end;

procedure AccessSystemVariable( varindex: word; var value: single; var write: boolean );
begin
end;

procedure AccessStringVariable( varindex: word; str: PWideChar; var write: boolean );
begin
end;

exports
        AccessVariable,   
        AccessTrigger,       
        AccessSystemVariable,   
        AccessStringVariable,   
        PluginStart,
        PluginFinalize;


begin
end.

Alles anzeigen

Code: Form TestU

unit TestU;

interface

uses
  ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Alles anzeigen

**Simon_2002** · 31. März 2024

Moin,

die Fehlermeldung konnte ich eliminieren das liegt aber auch schon Jahre zurück den Code hab ich nicht mehr. Ich habe mich später dazu entschieden gehabt das ganze mit Textdateien zu machen da meine DLL für OMSI mit dem Delphi Programm am ende 20MB groß war da in der Zeit mehr Controls anscheinend dazugekommen sind und somit die Datenbanken für Forms größer geworden sind. und 20MB für eine Plugin.dll ist einfach zu groß für Omsi deshalb bin ich auf eine andere Möglichkeit umgesprungen.

Es soll wohl auch mit C++ oder C# Forms gehen da hab ich aber absolut kein Durchblick wie das Funktionieren soll.

Es gibt auf GitHub wo der Code ja offenliegt Plugins in C++ oder C# wo das funktioniert hat. Aber da sind so viele Verweise das ich da nicht durchblicke. Und wie man am ende aus einem C# Forms Projekt dann eine Fertige DLL macht ist mir auch dann ein Rätzel

https://github.com/space928/Omsi-Extensions

http://wiki.omnibussimulator.d…OMSI_Plugin_Framework_III

Neoplan VEST · 31. März 2024

Zitat von Simon_2002

Es soll wohl auch mit C++ oder C# Forms gehen da hab ich aber absolut kein Durchblick wie das Funktionieren soll.

C++ wenigstens.

Aber man könnte jetzt auch darüber streiten was am einfachsten ist.

Für den Visual C++ Editor gab es auch einen Zusatzmodul für den Plugin Framework den man leider nicht mehr downloaden kann.

Am Ende hängt es eh ab wie weit man sich mit der Materie beschäftigt.

Zitat von Simon_2002

die Fehlermeldung konnte ich eliminieren das liegt aber auch schon Jahre zurück den Code hab ich nicht mehr.

Das konnte ich heut' nachmittag dank die Hilfe vom Thomas beseitigen.

Entsprechend sehen die Einträge wie folgt aus:

Code

library Test;

uses
  ShareMem,
  System.SysUtils,
  System.Classes,
  vcl.Forms,
  TestU in 'TestU.pas' {Form1};

{$R *.res}

procedure PluginStart( AOwner: TComponent ); stdcall;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := true;
  Form1.Show;
end;

procedure PluginFinalize; 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.Default;
    end;
  end;
end;

procedure AccessSystemVariable( varindex: word; var value: single; var write: boolean );
begin
end;

procedure AccessStringVariable( varindex: word; str: PWideChar; var write: boolean );
begin
end;

exports
        PluginStart,
        AccessVariable,
        AccessTrigger,
        AccessSystemVariable,
        AccessStringVariable,
        PluginFinalize;

begin
end.

Alles anzeigen

Code

unit TestU;

interface

uses
  ShareMem, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  Vcl.Samples.Gauges;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Gauge1: TGauge;
    Button1: TButton;
    TrackBar1: TTrackBar;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Alles anzeigen

Dazu bin ich auf Delphi 11 CE gewechselt.

Bis auf das Button sowie die Systemvariablen und Strings funktioniert es auch soweit.

**Simon_2002** · 2. April 2024

Darf ich fragen wie groß deine Plugin DLL nun ist?

Weil das ist ja das größte Problem. Bei mir ist diese wenn ich Forms nutze 12MB groß was zu viel für OMSI ist

Neoplan VEST · 2. April 2024

Bei mir tut sich da nichts viel.

Um die 11,2MB.

Mit Delphi 7 bin ich um die 300KB wenn es funktionieren würde.

Ich hänge mal mein Testprojekt der mit Delphi 11 CE erstellt wurde an.

Edit: Nachdem ich in Delphi von Debug aus Release umgestellt habe ist die DLL nur noch 2MB hoch.

Finde ich persönlich bisschen viel wenn ich an BBS denke mit 1MB der wesentlich umfangreicher ist als ein Testobjekt.

Teilen