PLATFORM PROPERTIES

Version 2004.2 (Geändert)

PLATFORM PROPERTIES (Plattform{; System{; Rechner{; Sprache}}})

Der Befehl PLATFORM PROPERTIES gibt Information über die Art der eingesetzten Plattform, die Version und die Sprache des Betriebssystems sowie den Prozessor Ihres Rechners zurück.

PLATFORM PROPERTIES gibt Informationen zur Umgebung in den Parametern Plattform, System, und Rechner zurück.

Plattform gibt an, ob von 4th Dimension eine PowerPC Version unter Windows oder auf Macintosh läuft. Dieser Parameter gibt eine der vordefinierten Konstanten zurück:

Die in System zurückgegebene Information hängt von der eingesetzten 4th Dimension Version ab.

Läuft eine Mac OS Version von 4th Dimension, gibt der Parameter System einen 32-bit Wert (Lange Ganzzahl) zurück, dessen höherwertiger Teil unbenutzt ist. Der niederwertige Teil ist folgendermaßen aufgebaut:

- Das höherwertige Byte enthält die Hauptversionsnummer,

- Das niederwertige Byte besteht aus zwei "nibbles" (je 4 Bits). Das hohe "nibble" ist die Versionsnummer des Mayor-Update, das niedere "nibble" ist die Versionsnummer des Minor-Update. Beispiel: System 7.5.1 ist codiert als $0751, das ergibt den Dezimalwert 1873.

Hinweis: In 4D können Sie diese Werte mit den numerischen Operatoren % (Restwert oder Modulo) und \ (Ganzzahlige Division) oder den Bit Operatoren entnehmen.

Mit folgender Formel erfahren Sie die Versionsnummer von Mac OS :

   PLATFORM PROPERTIES($vlPlatform;$vlSystem)
   $vlResult:=$vlSystem\256
      `If $vlResult = 8  --> Sie arbeiten mit Mac OS 8.x
      `If $vlResult = 9  --> Sie arbeiten mit Mac OS 9.x
      `If $vlResult = 16  --> Sie arbeiten mit Mac OS 10.x

Windows Version

Läuft eine Windows Version von 4th Dimension, gibt der Parameter System einen 32-bit Wert (Lange Ganzzahl) zurück, dessen Bits und Bytes folgendermaßen aufgebaut sind:

Hat das höherwertige Bit den Wert 1, läuft eine Windows 95 oder Windows 98. Hat es den Wert 0, läuft Windows NT 4 oder Windows 2000.

Hinweis: Das höherwertige Bit legt das Vorzeichen für den Wert vom Typ Lange Ganzzahl fest. So müssen Sie in 4D lediglich das Vorzeichen des Werts prüfen; ist es positiv, läuft Windows NT, 2000 oder Windows XP. Sie können auch die Bit Operatoren verwenden.

Das niederwertige Byte gibt die Hauptversionsnummer an. Bei 3 läuft Version 3.x von Windows oder Window NT. Bei 4 läuft Windows 95 oder Windows NT 4. In beiden Fällen erkennen Sie am Vorzeichen, ob NT läuft.

Das nächstniedere Byte gibt die Minor Windows Versionsnummer an.

Hinweis: In 4D können Sie diese Werte mit den numerischen Operatoren % (Restwert oder Modulo) und \ (Ganzzahlige Division) oder den in Version 6 eingeführten Bit Operatoren entnehmen.

• Der Parameter Rechner gibt einen Wert an, den Sie mit einer der folgenden vordefinierten Konstanten vergleichen können:

Hinweis: Apple Computer, Inc. veröffentlicht in seiner Entwickler- und Technik-Dokumentation eine aktuelle Liste der einmaligen Kenn-Nummern für MacOS. Es können neue Nummern hinzukommen, wenn Apple oder andere Hersteller neue Macintosh-Modelle auf den Markt bringen.

Der optionale Parameter Sprache gibt die aktuelle Sprache des Systems an, auf welchem die Datenbank läuft. Hier die Liste mit den Codes und den zugeordneten Sprachen:

Hinweis: Kann der Befehl die Systemsprache nicht identifizieren, wird Wert 9 (Englisch) zurückgegeben.

Beispiel

      ` Projektmethode SHOW OS VERSION 

   PLATFORM PROPERTIES($vlPlatform;$vlSystem;$vlMachine)
   If (($vlPlatform<1) | ($vlPlatform>3))
      $vsPlatformOS:=""
   Else 
      If ($vlPlatform=3)
         $vsPlatformOS:=""
         If ($vlSystem<0)
            $winMajVers:=((2^31)+$vlSystem)%256
            $winMinVers:=(((2^31)+$vlSystem)\256)%256
            If ($winMinVers=0)
               $vsPlatformOS:="Windows™ 95"
            Else
               $vsPlatformOS:="Windows™ 98"
            End if
         Else 
            $winMajVers:=$vlSystem%256
            $winMinVers:=($vlSystem\256)%256
            Case of
               : ($winMajVers=4)
                  $vsPlatformOS:="Windows™ NT"
               : ($winMajVers=5)
                  If ($winMinVers=0)
                     $vsPlatformOS:="Windows™ 2000"
                  Else
                     $vsPlatformOS:="Windows™ XP"
                  End if
            End case
         End if 
         $vsPlatformOS:=$vsPlatformOS+" version "+String($winMajVers)+"."+String($winMinVers)
      Else 
         $vsPlatformOS:="MacOS™ version "
         If (($vlSystem\256) = 16)
            $vsPlatformOS:=$vsPlatformOS+"10"
         Else
            $vsPlatformOS:=$vsPlatformOS+String($vlSystem\256)
         End if
         $vsPlatformOS:=$vsPlatformOS+"."+String(($vlSystem\16)%16)+
                                 (("."+String($vlSystem%16))*Num(($vlSystem%16) # 0))
      End if 
   End if 
   ALERT($vsPlatformOS)

Unter Windows kann die Meldung folgendermaßen aussehen:

Auf Macintosh kann die Meldung folgendermaßen aussehen:

Bit Operatoren.

Anwendung des Befehls

File Names and Paths, Multiple Platform Deployment, OnWebConnection, Opening Windows, User Modifiable Forms

---