Deutsches Lazarusforum

Ich habe das mal hinzugefügt.
<<< DATEI GELÖSCHT >>> neuere gibt es direkt hier: viewtopic.php?p=146609#p146609

Beim Beispiel ist auch das "Invoice.addTotals();" nicht drin.

Un ein paar Typecastst Unicodestring() wären auch gut.

Beim .Create diese Variablen nullen?

// Rechnungs-Summen
FTaxBasisTotal: Double; // Nettosumme
FTaxTotalAmount: Double; // Gesamte Steuer
FGrandTotalAmount: Double; // Bruttosumme

Ich habe mal gesucht nach "Touchpad mit RFID" und habe das gefunden:
https://www.minova-rfid.de/

Was fertiges kenne ich aus dem Stehgreif auch nicht, jedoch hilft dir vielleicht das:

Suche mal nach "ESP32 RFID", da gibt es so einige Selbstbau Projekte. Der ESP32 hat auch ein WLAN mit dabei, daraus sollte sich was machen lassen.

Hier mal ein kleines Video (Beispiel):
https://www.youtube.com ...

Ich habe das Projekt nun selbst in das Git gestellt, daher habe ich die Downloads hier aus dem Forum gelöscht:

https://github.com/mmvisualgit/TMQTT3---Pascal

Ich hatte doch noch ein paar Bugs drin, ich musste ziemlich lange suchen, bis ich auf die Idee kam die ganzen Prüfungs-Häkchen bei den Projekteinstellungen zu aktivieren. :idea:

Nun ist auch QoS 1 und QoS 2 Handshake mit drin und die Komponente kann "AutoResponse" um den Server zu bedienen. Über ...

Fehlt bei der Prozedur nicht die Klasse?

procedure aufzug_umstellen(akt_element :Pdaten_element);

so z.B.:

procedure TFrmMain.aufzug_umstellen(akt_element :Pdaten_element);

Ich denke nun habe ich es...

Bei MQTT2 habe ich den Thread umgeschrieben und die Ansteuerung der Socket Komponnete anders gemacht. Nun verbraucht der Thread auch nicht mehr die komplette Rechenleistung eines Prozessor-Kerns. Auch wird nun das Senden der Daten mit im Thread gemacht, was das ganze ...

Ein klein wenig habe ich noch heraus gefunden:

- Inherited Create haben gefehlt
- Es muss irgendwie mit dem "Subscribe" / "UnSubscribe" zusammen hängen. Bei Subscribe werden die Botschaften dann empfangen, jedoch bei "UnSubscribe" stürzt das ab, bzw. bring Speicherfehler.
- Wenn man kein "Subscribe ...

Ich habe mich nun an die MQTT2 Version ran getraut, die kann mehr und ist wohl ein Upgrade bei dem deutlich mehr MQTT Funktionalität drin ist...

Das ganze ist schon ziemlich verschachtelt programmiert mit überlagernden Klassen usw.

Connect geht. Publish geht auch. Subscribe geht jedoch nicht ...

Ich habe es hin bekommen :D

- QoS: 0 geht
- Man kann mehrere Subscribe machen und diese wieder Unsubscriben
- Läuft mit Lazarus 3.6
- Braucht nur Synapse, das man nicht extra installieren muss (mit im ZIP, aktuelle Version)
- Keine Exceptions beim Beenden der EXE, der Thread wird nun korrekt ...

Ich habe was gefunden was funktioniert :D

https://github.com/jamiei/Delphi-TMQTT2/tree/master

Mit Lazarus das Delphi Projekt auf Lazarus konvertieren
Dazu noch ein Ordner "Synapse" anlegen und die aktuellen Dateien da rein.

Läuft. Publish und Subscribe. Perfekt.
Nur Disconnect geht nicht so ...

Vielen Dank für die vielen guten Antworten.

Ich bin noch nicht ganz durch mit allen, aber schon viel weiter als wie vor ein paar Tagen.

Der Code von Corpsman:
Da muss ich sagen, das ist der einzige Code, der mit Lazarus V3.6 problemlos zu übersetzen ging, Broker & Publisher haben mit einander ...

Hallo,

Ich wollte mal mit "MQTT" Kommunikation was machen, Es gibt ja schon einiges dazu. Bevor ich nun damit beginne wollte ich mal fragen, ob jemand damit schon Erfahrungen gesammelt hat und vor allem mit welchen Komponenten er zufrieden ist.

Vielen Dank für die Ideen.

VG Markus