WinCE Batteriestatus in Delphi VCL Anwendung (über RDP)

[Towmuz]

Hallo zusammen,

ich bin verzweifelt auf der Suche nach einer Möglichkeit den Batteriestatus von WindowsCE,
irgendwie in meine VCL Anwendung zu bekommen, bzw. überhaupt erstmal auf das Remotesystem in welcher Form auch immer.

Entwicklungsumgebung ist derzeit: Delphi XE05, Anwendung läuft auf einem Handscanner (Datalogic SkorpioX3) über RemoteDesktopVerbindung aus WindowsCE 6.0.
Remotesystem ist Windows Server 2003.

Bisherige Ansätze waren:
- mit VBS auf WinCE den BatterieStatus abfragen (scheint über die WinCE Registry zu funktionieren), in der Domäne in einen Netzwerkordner kopieren als txt..csv etc., dann über Delphi einfach aus dem Ordner die Daten abgreifen.
(Läuft nicht, nur spartanisches VBS auf WinCE möglich, WinCE kann nicht in eine Domäne eingebunden werden)
- Abfrage direkt durch das Remotesystem, idr. wohl möglich über die "Windows Management Instrumentation", aber auch diese gibt es auf WinCE nicht.
- jede Menge wirres Rumgegoogle bei dem man immer auf VisualStudio + WinCE SDK aufmerksam gemacht wird.

Auf VisualStudio oder andere Software habe ich keinen Zugriff und irgendwie muss das doch auch mit Bordmitteln gehen :|

Über Denkanstöße oder auch -tritte würde ich mich freuen.

Mfg
Towmuz

[himitsu]

Mit Hausmitteln garnicht.
Delphi-Programme können nicht und ich vermute werden auch niemals auf WinCE laufen. (nichtmal WinRT oder das neuere Windows Phone sind in Planung)

Du kannst maximal mit FreePascal (Lazarus und Co.) ein Programm für Windows CE schreiben, was direkt dort laufen kann.

[add]
Gibt es in WinCE auch eine "Aufgabenplanung" ?
Dort dein VBS alle x Minuten aufrufen lassen und den Wert in eine Datei oder via TCP/IP an euer Programm schicken

[Aviator]

Zitat:

Zitat von Towmuz (Beitrag 1348287)

Auf VisualStudio oder andere Software habe ich keinen Zugriff und irgendwie muss das doch auch mit Bordmitteln gehen :|

Also wenn es mit VS gehen sollte und du das nur in eurer Firma verwendest, dann müsstest du eigentlich auch mit der kostenlosen Visual Studio Community Version arbeiten können. Falls euer Projekt mit mehreren Sprache geschrieben werden darf.

[Bambini]

Zitat:

Zitat von Aviator (Beitrag 1348300)

Zitat:

Zitat von Towmuz (Beitrag 1348287)

Auf VisualStudio oder andere Software habe ich keinen Zugriff und irgendwie muss das doch auch mit Bordmitteln gehen :|

Also wenn es mit VS gehen sollte und du das nur in eurer Firma verwendest, dann müsstest du eigentlich auch mit der kostenlosen Visual Studio Community Version arbeiten können. Falls euer Projekt mit mehreren Sprache geschrieben werden darf.

Ich bezweifel dass man mit dieser Version noch WindowsCE Programme erstellen kann.
Laut dieser Matrix kann Windows CE 6.0 nur noch Visual Studio 2008 + SDK or Visual Studio 2012 + SDK.

[Towmuz]

@Himitsu
https://edn.embarcadero.com/article/33507 aber der Aufwand scheint seeeehr groß und umständlich.
Nach Lazarus werde ich mal schauen, Danke. Da der Prozessor aber ARM ist, wird das auch nicht ohne Weiteres funktionieren :)
Da die Anwendung selbst ja auf einem normalen WinOS remote läuft bräuchte ich aber trotzdem noch irgendwas, womit CE und Server 2003 dann die Daten austauschen.
[add]
Wenn ich wüsste, wie ich an den Batteriestatus käme, dann hätte ich das so in etwa versucht.

@Aviator
Fällt wahrscheinlich aus, aber wenn ich nichts anderes finde, muss ich das wohl nochmal beim Admin vortragen :D
Community Edition wahr ja auch für Unternehmensanwendungen nutzbar solange man sie nicht verkaufen möchte mein ich.

@Bambini
Es gibt ein SDK für .Net vom Hersteller, das sollte auch im neusten VS laufen.

Wie gesagt, am besten und einfachsten wäre es, sowas wie die WMI vom normalen Windows zu haben, das man per VBS vom Remotesystem abfragen kann. Bisher hab ich allerdings nur so eine KlitzeAnleitung für das olle Miniwindows gefunden und dort die Shell verarbeitet scheinbar auch nur rudimentäre Dinge (Dateisystem, Programm ausführen etc.).

[Aviator]

Zitat:

Zitat von Towmuz (Beitrag 1348305)

@Aviator
Fällt wahrscheinlich aus, aber wenn ich nichts anderes finde, muss ich das wohl nochmal beim Admin vortragen :D
Community Edition wahr ja auch für Unternehmensanwendungen nutzbar solange man sie nicht verkaufen möchte mein ich.

@Bambini
Es gibt ein SDK für .Net vom Hersteller, das sollte auch im neusten VS laufen.

Also wenn es so ein Plugin gibt und es die einzige Möglichkeit wäre an die Information zu kommen und ihr die unbedingt braucht, dann solltest ihr VS auch verwenden können. Nachfolgend mal die von Microsoft angezeigten Lizenzbestimmungen.

Die vollen Lizenzbestimmungen können hier nachgelesen werden: https://www.visualstudio.com/support/legal/mt171547

Zitat:

Zitat von Microsoft Visual Studio Übersicht

Einzelpersonen

Organisationen

Ein einzelner Entwickler kann mit Visual Studio Community eigene kostenlose oder kostenpflichtige Apps erstellen.

Eine unbegrenzte Anzahl Benutzer innerhalb einer Organisation kann Visual Studio Community für die folgenden Szenarien verwenden: in Schulungsumgebungen, für die akademische Forschung oder für die Beteiligung an Open Source-Projekten. Alle anderen Verwendungsszenarien: In kleinen Organisationen können bis zu fünf Benutzer Visual Studio Community verwenden. In Unternehmen (darunter verstehen wir Organisationen mit >250 PCs oder > 1 Million USD Jahresumsatz) ist eine Verwendung jenseits der oben beschriebenen Szenarien zu Open Source, akademischer Forschung oder Schulungszwecken nicht erlaubt.

[Bambini]

Zitat:

Zitat von Towmuz (Beitrag 1348305)

@Bambini
Es gibt ein SDK für .Net vom Hersteller, das sollte auch im neusten VS laufen.

Das SDK für WinCE kommt von Microsoft. Vermutlich meinst du ein SDK vom Hersteller des Handyscanner?
Ich meinte, das du mit dem neuen Visual Studio überhaupt keine Programme mehr für WinCE bauen kannst, sondern nur noch für Windows Phone (<> WinCE).

Wie man den Battery Status unter WinCE mit C# auslesen kann, zeigt Microsoft hier:
https://msdn.microsoft.com/en-us/library/aa457088.aspx
https://msdn.microsoft.com/en-us/library/aa446550.aspx

[Benedikt Magnus]

Zitat:

Zitat von Towmuz (Beitrag 1348305)

Nach Lazarus werde ich mal schauen, Danke. Da der Prozessor aber ARM ist, wird das auch nicht ohne Weiteres funktionieren :)

Doch, wird es. FreePascal kann auch für ARM kompilieren. Wenn du es aber nicht auf dem WinCE selbst machen willst (haha), empfehle ich CodeTyphon zum Crosscompiling. Dort einfach als Target-OS WinCE und als Target-CPU ARM und alles klappt. Hier sogar eine Anleitung für WinCE und WinCE 6.5.3.

[Towmuz]

Zitat:

Zitat von Bambini (Beitrag 1348314)

Zitat:

Zitat von Towmuz (Beitrag 1348305)

@Bambini
Es gibt ein SDK für .Net vom Hersteller, das sollte auch im neusten VS laufen.

Das SDK für WinCE kommt von Microsoft. Vermutlich meinst du ein SDK vom Hersteller des Handyscanner?
Ich meinte, das du mit dem neuen Visual Studio überhaupt keine Programme mehr für WinCE bauen kannst, sondern nur noch für Windows Phone (<> WinCE).

Jup ich meinte das vom Hersteller, da ich in VS ja auch die .Net Plattformversion einstellen kann für die kompiliert wird, sollte mindestens die Hersteller SDK laufen.

Zitat:

Zitat von Bambini (Beitrag 1348314)

Wie man den Battery Status unter WinCE mit C# auslesen kann, zeigt Microsoft hier:
https://msdn.microsoft.com/en-us/library/aa457088.aspx
https://msdn.microsoft.com/en-us/library/aa446550.aspx

Die Anleitung von MS hat ich schon gefunden, ärgert mich auch ein wenig das ich nicht einfach so VS installieren kann :)

Zitat:

Zitat von Benedikt Magnus (Beitrag 1348315)

Zitat:

Zitat von Towmuz (Beitrag 1348305)

Nach Lazarus werde ich mal schauen, Danke. Da der Prozessor aber ARM ist, wird das auch nicht ohne Weiteres funktionieren :)

Doch, wird es. FreePascal kann auch für ARM kompilieren. Wenn du es aber nicht auf dem WinCE selbst machen willst (haha), empfehle ich CodeTyphon zum Crosscompiling. Dort einfach als Target-OS WinCE und als Target-CPU ARM und alles klappt. Hier sogar eine Anleitung für WinCE und WinCE 6.5.3.

Klar mach ich das auf WinCE, über den Scanner mit T9 Tastatur :p
Im Ernst, Danke, dass schaue ich mir mal an.

[Bambini]

Zitat:

Zitat von Towmuz (Beitrag 1348320)

Zitat:

Zitat von Bambini (Beitrag 1348314)

Zitat:

Zitat von Towmuz (Beitrag 1348305)

@Bambini
Es gibt ein SDK für .Net vom Hersteller, das sollte auch im neusten VS laufen.

Das SDK für WinCE kommt von Microsoft. Vermutlich meinst du ein SDK vom Hersteller des Handyscanner?
Ich meinte, das du mit dem neuen Visual Studio überhaupt keine Programme mehr für WinCE bauen kannst, sondern nur noch für Windows Phone (<> WinCE).

Jup ich meinte das vom Hersteller, da ich in VS ja auch die .Net Plattformversion einstellen kann für die kompiliert wird, sollte mindestens die Hersteller SDK laufen.

.NET <> .NET.
Das .NET für WinCE ist wieder etwas spezielles. Das nennt sich Compact Framework (CF) und ist eine sehr kleine Untermenge von .NET
Daher bezweifele ich das die aktuellen VS das noch können.

[Towmuz]

So hab ichs nun verbaut, vieleicht brauchts mal wer...

Für die Mini-Anwendung auf dem Handscanner mit Windows CE, wurden SharpDevelop(sone Art freies VisualStudio) und das CompactFramework verwendet. SharpDevelop V3.2 für .Net 3.5 und CompactFramework 3.5.
SharpDevelop 3.2 ist wohl die letzte Version, die das CompactFramework mit NET 3.5 unterstützt.

Generelle Funktionsweise CE Anwendung C#, schreibt jede Minute den Batteriestatus in eine Ini.

Code:

using System;
using System.Collections.Generic;
using System.Drawing;
using System.Windows.Forms;
using System.Runtime.InteropServices;
using System.IO;
using System.Threading;

namespace JZPW1310_Battery
{
   public class SYSTEM_POWER_STATUS_EX
   {
       public byte ACLineStatus;
       public byte BatteryFlag;
       public byte BatteryLifePercent;
       public byte Reserved1;
       public uint BatteryLifeTime;
       public uint BatteryFullLifeTime;
       public byte Reserved2;
       public byte BackupBatteryFlag;
       public byte BackupBatteryLifePercent;
       public byte Reserved3;
       public uint BackupBatteryLifeTime;
       public uint BackupBatteryFullLifeTime;
   }
   
   public partial class MainForm : Form
   {      
      [DllImport("coredll")]
      private static extern uint GetSystemPowerStatusEx(SYSTEM_POWER_STATUS_EX lpSystemPowerStatus, bool fUpdate);
      
      public static void Main(string[] args)
      {
         System.Threading.Timer t = new System.Threading.Timer(TimerCb, null, 0, 60000);
         Console.ReadLine();
      }   
      
      private static void TimerCb(Object o)
      {
         try {
            SYSTEM_POWER_STATUS_EX status = new SYSTEM_POWER_STATUS_EX();         
            string dir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase);
            if (GetSystemPowerStatusEx(status, false) == 1)
            {                        
//               Console.WriteLine("BatteryLifePercent=" + status.BatteryLifePercent.ToString());
               StreamWriter sw = new StreamWriter(dir + @"\battery.status");            
               sw.WriteLine("[BatteryStatus]");
               sw.WriteLine("BatteryLifePercent=" + status.BatteryLifePercent.ToString());
               sw.Close();
               GC.Collect();
            }   
         } catch (Exception ex) {
//            Console.WriteLine(ex.Message + ' : ' + ex.StackTrace);
         }         
      }
   }
}

In WinCE RDP-Verbindungseigenschaften noch die Ordnerfreigabe definieren und auf dem RD-System (WinServ2003 in dem Fall oder sonst irgendnem Win) in der DelphiAnwendung über einen Timer die Ini auslesen.

Delphi-Quellcode:

uses IniFiles;

procedure Tfrm_bla_Programm.tmr1Timer(Sender: TObject);
var
  ini: TIniFile;
  percent: Integer;
  caption: string;
begin
  try
    begin
      ini := TIniFile.Create('\\tsclient\Files\Temp\battery.status');
      caption := ini.ReadString('BatteryStatus', 'BatteryLifePercent', '') + ' %';
      percent := StrToInt(ini.ReadString('BatteryStatus', 'BatteryLifePercent', ''));
      pb1.Position := percent;
      lbl1.Caption := caption;
      ini.Free;
    end;
  except on e: exception do
    begin
      pb1.Position := 100;
      lbl1.Caption := 'ERROR';
    end;
  end;
end;

Fals das hier zu Detail- oder Erleuterungsarm erscheint, schreib ichs gern ausführlicher bzw. aufgeräumter, habe noch nicht viel Programmierforenerfahrung :).