Frage zum Disconnect mit Indy und einer TCP/IP Verbindung

[Photoner]

Ja die Message gibt es.

Eine schnelle Suche ergab:

WM_ENDSESSION message

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

In den Kommentare steht aber, dass man evtl. nur sehr wenig Zeit zur Verfügung hat bis der eigene Prozess abgewürgt wird.
Ich würde da eher einen Ticken früher sichern, egal ob sich der Benutzer des Rechners es anders überlegt und doch nicht herunterfährt.

WM_QUERYENDSESSION message

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Notfalls kann man den Shutdown verhindern indem der Rückgabewert auf False gesetzt wird.

Findet sich auch schon im Forum:
Anwendung beenden bei Windows Shutdown (WM_QueryEndSession)

[Harry Stahl]

[QUOTE=Photoner;1305223]Ja die Message gibt es.

Eine schnelle Suche ergab:

WM_ENDSESSION message

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Ich glaube, es geht hier nicht das Herunterfahren. Die Notebooks schalten die Bildschirm ab und sind in einer Art Energiesparmodus. Ein Tastendruck und sie sind direkt wieder da. Allerdings wird hier ein Anmeldebildschirm angezeigt (wo ich aber kein Passwort erneut eingeben muss, da ich das so eingestellt habe). Also wird es eher um eine Abmeldenachricht gehen. Oder gibt es auch eine spezielle, ich gehen jetzt in den Energiespar-Modus Nachricht?

Die Clients empfangen jedenfalls keine Nachrichten vom Server, wenn sie in diesem Energiesparmodus sind (hier im Beispiel Windows 8.1 auf dem Surface Pro 3).

[Harry Stahl]

Oh weh, 6 Jahre her und schon vergessen...

Bei dieser Diskussion kam eine dunkle Erinnerung hoch und siehe da, hatte vor längerer Zeit diese Problematik in einer anderen Client/Server Anwendung schon mal eingebaut, also für alle, die das evtl. mal brauchen könnten, hier, wie es geht:

Delphi-Quellcode:

procedure TF_Main.WMPowerBroadcast(var MyMessage: TMessage);
begin
  if MyMessage.Msg = WM_POWERBROADCAST then begin
    // windows powermanagement message

    if (MyMessage.WParam = PBT_APMSUSPEND) or
       (MyMessage.WParam = PBT_APMSTANDBY) or
       (MyMessage.WParam = PBT_APMQUERYSUSPEND) or
       (MyMessage.WParam = PBT_APMQUERYSTANDBY)
    then begin
      // Hier hin, was getan werden muss, bevor Windows in den Standby darf,
      // z.B. Netzwerk- oder Datenbankverbindungen trennen, Timer abstellen, etc.
      // Seit Vista hat man hier nur noch max. 2 Sekunden Zeit was zu erledigen.

      if NetFileMode then begin
        mnu_CloseMainFileClick (self);
      end;

      MyMessage.Result := 1; // Standby/Ruhezustand erlauben
      // MyMessage.Result := BROADCAST_QUERY_DENY; // Standby/Ruhezustand verweigern

    end
    else
    if (MyMessage.WParam = PBT_APMRESUMECRITICAL) or
       (MyMessage.WParam = PBT_APMRESUMESUSPEND) or
       (MyMessage.WParam = PBT_APMRESUMESTANDBY)
    then begin
      // Windows kommt aus dem Standby/Ruhezustand wieder.
      // Hier z.B. Verbindungen wiederherstellen.
      hs_delay (2000, True);
      if LastNetFile <> '' then begin
        if EstablishServerConnection = 'OK' then begin
          GetFileFromServer (AsStr (['UserId=' + MyNetUserID, 'cmd=GetThisFile', 'Password=' + LastPW, 'FileName=' + LastNetFile]));
        end;
        LastNetFile := '';
      end;
    end;
  end;

  inherited;

end;

[BadenPower]

Zitat von Harry Stahl:

Die Clients empfangen jedenfalls keine Nachrichten vom Server, wenn sie in diesem Energiesparmodus sind (hier im Beispiel Windows 8.1 auf dem Surface Pro 3).

Voher aufwecken mit Wake-On-Lan?

https://technet.microsoft.com/de-de/...(v=ws.10).aspx

Wenn es denn geht.

[Harry Stahl]

Wobei ich feststellen muss, dass man sich jetzt wohl für die Broadcast-Nachricht explizit registrieren muss, um diese zu erhalten (war früher definitiv nicht so).

Habe hier weitere Informationen dazu gefunden:

http://stackoverflow.com/questions/1...-use-in-delphi

Allerdings meckert der Compiler hier:

FHPOWERNOTIFY := RegisterPowerSettingNotification(Handle,
@GUID_MONITOR_POWER_ON, DEVICE_NOTIFY_WINDOW_HANDLE);

und sagt TGUID und Pointer seien Inkompatible Typen

Die Variable ist als

const
GUID_MONITOR_POWER_ON: TGUID = '{02731015-4510-4526-99e6-e5a17ebd1aea}';

definiert. Wie geht's richtig?

[Harry Stahl]

Wobei es mehrere GUIDS gibt. Welche mag wohl die richtige für den Energiesparmodus sein:

Delphi-Quellcode:

  GUID_POWERSCHEME_PERSONALITY: TGUID = '{245d8541-3943-4422-b025-13A784F679B7}';
  GUID_MIN_POWER_SAVINGS: TGUID = '{8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c}';
  GUID_MAX_POWER_SAVINGS: TGUID = '{a1841308-3541-4fab-bc81-f71556f20b4a}';
  GUID_TYPICAL_POWER_SAVINGS: TGUID = '{381b4222-f694-41f0-9685-ff5bb260df2e}';
  GUID_ACDC_POWER_SOURCE: TGUID = '{5d3e9a59-e9D5-4b00-a6bd-ff34ff516548}';
  GUID_BATTERY_PERCENTAGE_REMAINING: TGUID = '{a7ad8041-b45a-4cae-87a3-eecbb468a9e1}';
  GUID_IDLE_BACKGROUND_TASK: TGUID = '{515c31d8-f734-163d-a0fd-11a08c91e8f1}';
  GUID_SYSTEM_AWAYMODE: TGUID = '{98a7f580-01f7-48aa-9c0f-44352c29e5C0}';
  GUID_MONITOR_POWER_ON: TGUID = '{02731015-4510-4526-99e6-e5a17ebd1aea}';

[Photoner]

Delphi-Quellcode:

function RegisterPowerSettingNotification(const hRecipient: THandle; 
  const PowerSettingGuid: TGUID; const Flags: DWORD): HPOWERNOTIFY; stdcall;

Lass das mit dem @. Parameter ist vom Typ TGUID.

PBT_APMSUSPEND event

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

[Harry Stahl]

Das hatte ich natürlich auch schon gemacht und dennoch eine Fehlermeldung erhalten. Gerade habe ich aber gesehen, dass diese Fehlermeldung sich dann auf den Rückgabewert bezog: "Inkompatible Typen NativeUInt und Pointer".


FHPOWERNOTIFY: THandle;

Das muss also ein Pointer statt ein Thandle sein.

[Harry Stahl]

Zitat von Harry Stahl:

Wobei es mehrere GUIDS gibt. Welche mag wohl die richtige für den Energiesparmodus sein:

Delphi-Quellcode:

  GUID_POWERSCHEME_PERSONALITY: TGUID = '{245d8541-3943-4422-b025-13A784F679B7}';
  GUID_MIN_POWER_SAVINGS: TGUID = '{8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c}';
  GUID_MAX_POWER_SAVINGS: TGUID = '{a1841308-3541-4fab-bc81-f71556f20b4a}';
  GUID_TYPICAL_POWER_SAVINGS: TGUID = '{381b4222-f694-41f0-9685-ff5bb260df2e}';
  GUID_ACDC_POWER_SOURCE: TGUID = '{5d3e9a59-e9D5-4b00-a6bd-ff34ff516548}';
  GUID_BATTERY_PERCENTAGE_REMAINING: TGUID = '{a7ad8041-b45a-4cae-87a3-eecbb468a9e1}';
  GUID_IDLE_BACKGROUND_TASK: TGUID = '{515c31d8-f734-163d-a0fd-11a08c91e8f1}';
  GUID_SYSTEM_AWAYMODE: TGUID = '{98a7f580-01f7-48aa-9c0f-44352c29e5C0}';
  GUID_MONITOR_POWER_ON: TGUID = '{02731015-4510-4526-99e6-e5a17ebd1aea}';

Hier gibt es eine Beschreibung: https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Obwohl es mit dem Monitor-Power_on durchaus geht, scheint mir evtl. hier noch "GUID_SYSTEM_AWAYMODE" am passendsten zu sein. Muss ich mal testen.