Deutsches Lazarusforum

kralle hat geschrieben: Mo 16. Feb 2026, 21:03 Bisher hat mir der Deutsche Bundestag noch keine Spam geschickt.
Gruß Kralle

Wieso sollten sie?
Machen sie doch jeden Tag in den Nachrichten......

hmm ... bis auf die nicht grafische Oberfläche sieht alles gleich aus? oder bin ich da falsch?

und der Access Violation ist nach wie vor da.

hmm ??


Hö?
Nix AV in meinem projekt so wie es ist. Läuft sauber durch.
Ich hab ein paar kleine Änderungen zu dir (die property explizit in der klasse ...

Also ich hab jetzt was rudimentäres zum laufen bekommen
Achtung: Konsolenprogramm

Erster Punkt:

TDBService = class(TObject, IDBService)
...
TMenuService = class(TObject, IMenuService)


Nope
Korrekt:

TDBService = class(TInterfacedObject, IDBService)
....
TMenuService = class(TInterfacedObject, IMenuService)

EDIT: OK, jetzt bin ich verwirrt.
Ich hab in der Doku tatsächlich ...

Ich hab mit dem ganzen Qt Gedöns noch nichts gemacht aber wollte das spasseshalber mal testen.
Hab fpcupdeluxe-x86_64-linux-qt6.zip heruntergeladen, entpackt und wollte ./fpcupdeluxe-x86_64-linux-qt6 starten.

Da meckert das Linux Mint in der virtual Box, dass irgendwelche Qt6Printxxx Libs fehlen ...

Das kann man alles problemlos parallel verwenden.
Wenn du wie ich KDE auf Linux benutzt, ist Qt sowieso schon da.
Dann brauchst du nur die libqt6pas.so zusätzlich installieren und Lazarus gegen Qt6 neu bauen.
Werkzeuge -> Lazarus kompilieren einrichten -> LCL Widget Type = Qt6
Sonst halt Qt6 ...

Wenn ich mal schauen will, wie mein Programm in QT6 aussieht, was empfehlt ihr dann? Virtualbox anwerfen, Windows oder Linux nehmen und dann? Braucht man eine spezielle fpcupdeluxe oder ist es nur eine Einstellungssache? Oder kann ich gar mein aktuelles Lazarus umstellen (was ich nicht tun werde ...

Mann kann dann aber auch viele lustige Sachen machen


program Project1;
{$mode objfpc}{$H+}
Uses Classes, Sysutils;
Type
IPerson = Interface
['{B079F2A1-B8D8-471A-B938-6D20EA5243CB}']
Procedure SetName(Const AName:String);
Function GetName:String;
Procedure GrussVomKlo;
Property Name:String ...

Nur so nebenbei: Im Zusammenhang mit Interfaces ist vllt. auch die "Managed types and reference counts" Seite recht interessant:
https://www.freepascal.org/docs-html/ref/refsu71.html


Ich erinner mich daran, dass ich mit dem RefCounting von COM Kopfschmerzen hatte
{$Interfaces Corba} war dann ...

unabhängig davon, was deine Antwort mit dem Thema zu tun hat:

Mit dem Thema hat das meines Erachtens damit zu tun, dass ich herausfinden will, ob QT6 bereits eine vollwertige Option zu GTK2 ist. Denn soweit ich es verstehe hat GTK2 keine Zukunft mehr und GTK3 und GTK4 funktionieren noch nicht ...

Vom Wiki: https://wiki.freepascal.org/Interfaces

Interface isn't object! It's just way to access object. I.e., well, interface. So it's name is self-explanatory. And it should be obvious, that object can have several ways to access it, i.e. several interfaces. Think about them as about "sockets ...

unabhängig davon, was deine Antwort mit dem Thema zu tun hat:
Die Lösung zu deinem Kompilierungsproblem steht doch im Quelltext-Kommentar......

Und wenn man auch noch die folgende Prozedur sich anschaut, sieht man dass DORT das "angeblich" fehlende "Objects.Delete(0)" ausgeführt wird, weil aus aus der Clear-Prozedur eh immer 0 als Index übergeben wird

procedure TfrPage.Clear;
begin
while Objects.Count > 0 do
Delete(0);
end;

procedure ...

Das bisher einzig negative ist, dass die Buttons in Dialogen in Englisch (zb save statt speichern) beschriftet sind. (Mir persönlich ist das egal, aber einige meiner Kunden stört so was)
Laut Roadmap https://wiki.lazarus.freepascal.org/Roadmap ist QT6 sehr weitgehend implementiert.

Sind euch ...

Dann ist das Problem tatsächlich "sync" vs. "async".
Würde danach mal forschen

Default ist "sync" --> Heisst dein Client "wartet" solange bis der Job fertig ist, und dann die Kontrolle zurückerhält.
Wird der Client abgeschossen, fliegt auch die SP aus der Kurve.
Kann sein, dass SSMS da anderst ...