AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Window Service & SendMessageTimeout
Thema durchsuchen
Ansicht
Themen-Optionen

Window Service & SendMessageTimeout

Ein Thema von schwa226 · begonnen am 2. Nov 2009 · letzter Beitrag vom 3. Nov 2009
Antwort Antwort
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#1

Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 10:18
Hi,

ich habe da einmal eine Frage zum Service Programieren.
Habe gerade meinen ersten Service erstellt und er läßt sich auch starten/beenden.

Nun möchte ich per SendMessageTimeout eine Nachricht an meine Client-App schicken.
Dabei sende ich die Message an HWND_TOPMOST. Aber bei meinem Client kommt nichts an.

Auch ein senden auf HWND_BROADCAST bringt nichts:
SendMessageTimeout(HWND_BROADCAST,WM_SERVICE_STARTED,0,0,SMTO_ABORTIFHUNG,10,MsgResult) Habe mir zum Test noch eine 2. EXE erstellt die auch Nachrichten verschickt. Diese kommen bei meinem Client an!

Wieso kann ich aber vom Service her keine Nachricht schicken?
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.195 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 10:35
Zitat von schwa226:
Wieso kann ich aber vom Service her keine Nachricht schicken?
Weil der Dienst unter eigenen Konto und mit eigenem Desktop läuft. Früher konnte man interaktion erlauben. Diest ist aber ab Vista nicht mehr möglich - un das ist gut so.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 10:44
Mit Fensternachrichten wirst du nicht weit kommen. Dein Service läuft in einer anderen WindowsStation als der Desktop des Benutzers. Wenn dein Service mit einem Fenster kommunizieren soll, dann musst du eine andere Art der Interprozesskommunikation wählen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#4

Re: Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 10:51
Ok, danke!

Das System is XP und da geht es auch nicht.

Zitat:
...andere Art der Interprozesskommunikation wählen
Was bietet sich hier am besten an um an mehrere Clients Integer zu versenden?
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#5

Re: Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 16:00
So,

nach etwas Suchen habe ich die Interkomunikation zwischen Programme per MMF gefunden.

Jetzt habe ich das eingebaut und habe folgendes Problem.
Ich erzeuge den Pointer mit:
      fFileHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(TStatusService), MMFName); Wenn ich nun meine Client Windows App starte und der Service NICHT läuft ist das Handle <> 0 - also OK.
Starte ich dann den Service bekomme ich auch z.B. die Medlungen Service Started/Stopped über MMF.

Wenn aber nun der Service zuerst gestartet wird (MMF Handle im Service <> 0) bekommt die Windows App kein Handle mehr (fFileHandle = 0).

Somit können dann auch keine Messages mehr ausgetauscht werden!?!?
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Window Service & SendMessageTimeout

  Alt 2. Nov 2009, 18:32
Du könntest ruhig GetLastError abfragen - das würde vermutlich 5 (Access denied) ergeben. Du musst beim Erstellen der MMF die Rechte so setzen, dass auch andere Konten darauf zugreifen können. Suche mal danach, wir hatten dieses Problem kürzlich schon einmal.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#7

Re: Window Service & SendMessageTimeout

  Alt 3. Nov 2009, 06:08
Danke!

Es war wirklich Error 5.

Habe das mit den Security Settings gefunden und es funktioniert nun!

Noch eine Frage zu MMF:
Gibt es da etwas schöneres als dauerndes Polling des Speichers zu machen? Gibt es dazu vielleicht ein Event damit der Client merkt das sich etwas geändert hat?
Delphi 2010, Update 4 & 5
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

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

Re: Window Service & SendMessageTimeout

  Alt 3. Nov 2009, 07:05
Zitat von schwa226:
Gibt es da etwas schöneres als dauerndes Polling des Speichers zu machen? Gibt es dazu vielleicht ein Event damit der Client merkt das sich etwas geändert hat?
MSDN-Library durchsuchenCreateEvent?

Also wenn es übergreifend funktioniert, dann erstell dir ein Event und löse es nach jeder Änderung aus.
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat
Antwort Antwort


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 10:21 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