AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Message an alle Terminal-Server-Sitzungen senden

Message an alle Terminal-Server-Sitzungen senden

Ein Thema von Papaschlumpf73 · begonnen am 23. Okt 2020 · letzter Beitrag vom 27. Okt 2020
Antwort Antwort
Seite 1 von 2  1 2   
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
306 Beiträge
 
Delphi 12 Athens
 
#1

Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 15:21
Hallo Gemeinde,

für einem Windows Terminal Server habe ich einen Windows-Dienst mit einem Mini-Webserver entwickelt. Dieser überwacht einen speziellen Port der lokalen IP-Adresse und empfängt typisierte Nachrichten von anderen Servern. Soweit so gut.

Auf dem Server sind nun i.d.R. ca. 20 User via RDP/Citrix angemeldet und arbeiten gleichzeitig auf diesem Server. Eine andere Anwendung von mir läuft in diesen 20 Sitzungen quasi gleichzeitig.

Jetzt soll mein mini Webserver die empfangene Nachricht an alle 20 Sitzungen bzw. an alle aktiven Instanzen meiner Anwendung auf diesem Server senden. Anhand der Nachricht kann dann eine der aktiven Instanzen meiner Anwendung darauf reagieren.

Ich könnte natürlich den Dienst in eine Datei oder die Registry schreiben lassen und die 20 Instanzen meiner Anwendung lesen diese permanent aus. Das finde ich aber nicht besonders elegant.

Daher möchte ich gerne, dass der Windows-Dienst eine Nachricht an alle User-Sitzungen auf diesem Server sendet. Wer weiß wie das geht???
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.982 Beiträge
 
Delphi 12 Athens
 
#2

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 15:32
IPC? (Bei Google suchenInter-process communication : Messages, Pipes, Semaphore, Mutex, Event, MailSlot, TCP, ...)

CreateEvent, WaitFor...
PostMessage (Broadcast ... aber weiß grade nicht ob es zu anderen Benutzern nutzbar ist)
https://stackoverflow.com/questions/...ser-in-windows
TCP/IP bzw. UDP
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
3.862 Beiträge
 
Delphi 12 Athens
 
#3

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 17:04
Es müssten doch alle Clients eine eigene IP-Adresse haben, oder nicht ?
Dann könntest du allen einen UDP-Broadcast schicken (der aber nicht iimmer 100% sicher ankommen muss).

https://www.mcseboard.de/topic/46255...ressen-client/
https://docs.microsoft.com/en-us/win...oninformationa
v

Entweder direkt mit Daten, oder einfach einen generellen Braodcast der denen sagt das es was Neues zum Abholen gibt.
  Mit Zitat antworten Zitat
mjustin

Registriert seit: 14. Apr 2008
3.003 Beiträge
 
Delphi 2009 Professional
 
#4

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 17:41
Daher möchte ich gerne, dass der Windows-Dienst eine Nachricht an alle User-Sitzungen auf diesem Server sendet. Wer weiß wie das geht???
Da alle Client-Sessions auf dem gleichen Server laufen, können sie über die IP Adresse 127.0.0.1 oder localhost theoretisch einen Port öffnen, z.B. deinen Mini-Webserver, und auf eine bestimmte Resource per HTTP GET Request zugreifen, z.B.

GET /localhost:80/messages

Der Server antwortet dann mit einer HTTP Response, die entweder eine Nachricht oder einen leeren Body (Payload) hat.

Das ist das Prinzip 'Long Polling': der Client sendet in einer Schleife den GET-Befehl. Der Server blockiert, falls es für den Client aktuell keine neue Nachricht gibt, für eine gewisse Zeit (z.B. zehn Sekunden), bevor er die Antwort sendet. Das vermeidet unnötige CPU Last.

Technisch benötigt der Client dann eine minimale HTTP-Client Implementierung, entweder die vom Betriebssystem bereitgestellte oder eine Komponente wie TIdHttp.
Michael Justin
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.982 Beiträge
 
Delphi 12 Athens
 
#5

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 21:12
Via TCP die Clienten sich mit dem Serve verbinden, ja

Bei UDP ... alle Clienten haben die selbe IP und müssten dann unterschiedliche Ports haben.
(weiß nicht ob alle Clients auf dem selben UDP-Port lauschen können)
Wenn der Server dann alle Ports einzeln ansprechen muß, dann lohnt sich UDP nicht wirklich.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
306 Beiträge
 
Delphi 12 Athens
 
#6

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 23:12
Vielen Dank für die vielen Vorschläge. Hier eine kurze Zwischennachricht nach ein paar Tests - das hier funktioniert leider alles nur innerhalb einer Session:

Delphi-Quellcode:
WM_BroadCast:=RegisterWindowMessage('WM_BroadCast')
SendMessage(HWND_BROADCAST,...
Postmessage(HWND_BROADCAST,...
BroadcastSystemMessage(BSF_POSTMESSAGE,...
SendNotifyMessageA(HWND_BROADCAST,...
ChangeWindowMessageFilter(...) --für 2 processe, die innerhalb einer Session mit unterschiedlichen Privilegien gestartet wurden
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
306 Beiträge
 
Delphi 12 Athens
 
#7

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 23. Okt 2020, 23:20
Via TCP die Clienten sich mit dem Serve verbinden, ja

Bei UDP ... alle Clienten haben die selbe IP und müssten dann unterschiedliche Ports haben.
(weiß nicht ob alle Clients auf dem selben UDP-Port lauschen können)
Wenn der Server dann alle Ports einzeln ansprechen muß, dann lohnt sich UDP nicht wirklich.
Das werde ich morgen mal ausprobieren.

Die anderen Vorschläge mit TCP kommen leider nicht infrage, da in den einzelnen Sessions keine eigenen IP-Adressen verfügbar sind; alle Sessions nutzen dieselbe IP-Adresse. Wenn jedoch jede Session dieselbe IP-Adresse mit einem anderen Port verwendet, bekommen wir wohl Schwierigkeiten mit den Firewallregeln.
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
961 Beiträge
 
Delphi 6 Professional
 
#8

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 24. Okt 2020, 07:21
Hmm..

Deine Clients verbinden sich mit deiner ServerApp per TCP und tauschen Daten aus.
-> Verbindung besteht von mehreren Clients auf einen Server, der die selben IP und Port hat.
-> Klappt auch, wenn die Clients auf dem selben Rechner mit der selben IP laufen..

Das geht, weil jeder Client automatisch einen anderen Port als Quellport verwendet!

Bleibt die Verbindung dann offen und wird nicht geschlossen, dann kann der Server jederzeit etwas an die verbundenen Clients schicken. Hierzu verwendet er die Quellport-Nummer als Zielport (selbe IP bei Terminal-Sessions).

Die Firewall solltest Du eh anpassen:
Wenn Du dort statt IP/Port die Applikation (Server Exe und Client EXE) angibst, dann können bei diesen die Ports wechseln, wie sie wollen. Ist halt dann nur eine Regel in der Firewall je App EXE.
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
  Mit Zitat antworten Zitat
Benutzerbild von dummzeuch
dummzeuch

Registriert seit: 11. Aug 2012
Ort: Essen
1.447 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#9

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 24. Okt 2020, 10:44
Um mal eine simple Lösung vorzuschlagen: Der Server legt irgendwo eine Datei an, die die anderen Programme regelmäßig abfragen.

Dabei ist die Datei vom Server mit allow read und deny write geöffnet und wird regelmäßig mit Timestamp neu geschrieben, so dass die Clients eine veraltete Datei erkennen und ignorieren können.

Ist old fashioned, aber funktioniert eigentlich immer.
Thomas Mueller
  Mit Zitat antworten Zitat
Papaschlumpf73

Registriert seit: 3. Mär 2014
Ort: Berlin
306 Beiträge
 
Delphi 12 Athens
 
#10

AW: Message an alle Terminal-Server-Sitzungen senden

  Alt 24. Okt 2020, 15:38
Meine Anwendung bekommt jetzt eine idTCPClient-Kompo und der Mini-HTTP-Server-Dienst bekommt noch eine idTCPServer-Kompo dazu. Sobald meine Anwendung in einer WTS-Session gestartet wird, meldet sie sich beim TCPServer an und lässt die TCP-Verbindung offen. Erhält der HTTP-Server jetzt eine Anforderung sendet der TCP-Server diese über die bestehende TCP-Verbindung an die Client-Session, die die Anforderung dann tatsächlich bearbeiten soll. Ich hoffe nur, die TCP-Verbindungen klappen nicht nach ein paar Stunden zusammen, wenn da mal keine Daten kommen...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz