4D v13.4PLATFORM PROPERTIES |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v13.4
PLATFORM PROPERTIES
|
PLATFORM PROPERTIES ( plataforma {; sistema {; procesador {; lenguaje}}} ) | ||||||||
Parámetro | Tipo | Descripción | ||||||
plataforma | Entero largo |
![]() |
2 = Mac OS, 3 = Windows | |||||
sistema | Entero largo |
![]() |
Depende de la versión que utilice | |||||
procesador | Entero largo |
![]() |
Familia del procesador | |||||
lenguaje | Entero largo |
![]() |
Depende del sistema que utilice | |||||
El comando PLATFORM PROPERTIES devuelve información sobre el tipo de sistema operativo que está utilizando, la versión y el lenguaje del sistema operativo, como también el procesado instalado en su equipo.
PLATFORM PROPERTIES devuelve la información en los parámetros plataforma, sistema, procesador y lenguaje.
Constante | Tipo | Valor |
Mac OS | Entero largo | 2 |
Windows | Entero largo | 3 |
El siguiente método de proyecto muestra una caja de diálogo de alerta describiendo el sistema operativo utilizando:
` Método de proyecto SHOW OS VERSION
PLATFORM PROPERTIES($vlPlataforma;$vlSistema;$vlMachine)
If(($vlPlataforma<2)|($vlPlataforma>3))
$vsPlataformaOS:=""
Else
If($vlPlataforma=Windows)
$vsPlataformaOS:=""
If($vlSistema<0)
$winMajVers:=((2^31)+$vlSistema)%256
$winMinVers:=(((2^31)+$vlSistema)\256)%256
If($winMinVers=0)
$vsPlataformaOS:="Windows™ 95"
Else
$vsPlataformaOS:="Windows™ 98"
End if
Else
$winMajVers:=$vlSistema%256
$winMinVers:=($vlSistema\256)%256
Case of
:($winMajVers=4)
$vsPlataformaOS:="Windows™ NT"
:($winMajVers=5)
Case of
:($winMinVers=0)
$vsPlataformaOS:="Windows™ 2000"
:($winMinVers=1)
$vsPlataformaOS:="Windows™ XP"
:($winMinVers=2)
$vsPlatformOS:="Windows™ 2003"
Else
$vsPlataformaOS:="Windows (versión indeterminada)"
End case
:($winMajVers=6)
Case of
:($winMinVers=0)
$vsPlataformaOS:="Windows™ Vista"
:($winMinVers=1)
$vsPlataformaOS:="Windows™ Seven"
Else
$vsPlataformaOS:="Windows (versión indeterminada)"
End case
End case
End if
$vsPlataformaOS:=$vsPlataformaOS+" version "+String($winMajVers)+"."+String($winMinVers)
Else
$vsPlataformaOS:="Mac OS™ version "
If(($vlSistema\256)=16)
$vsPlataformaOS:=$vsPlataformaOS+"10"
Else
$vsPlataformaOS:=$vsPlataformaOS+String($vlSistema\256)
End if
$vsPlataformaOS:=$vsPlataformaOS+"."+String(($vlSistema\16)%16)+(("."+String($vlSistema%16))*Num(($vlSistema%16) # 0))
End if
End if
ALERT($vsPlataformaOS)
En Windows, obtiene una caja de diálogo similar a esta:
En Macintosh, obtiene una caja de diálogo similar a esta:
Si está corriendo una versión Windows de 4D, el parámetro sistema devuelve un valor 32 bits (Entero largo), los bits y los bytes están estructurados así:
Si el bit superior vale 0, significa que usted está utilizando Windows NT, Windows 2000, Windows XP o Windows Vista. Si el bit vale 1, significa que está utilizando Windows 95 o Windows 98 (ambos obsoletos).
Nota: el bit superior determina el signo del valor Entero largo. Por lo tanto, en 4D, sólo necesita probar el signo del valor; si es positivo usted está bajo Windows NT, Windows 2000, Windows XP o Windows Vista. Igualmente puede utilizar .
El octeto inferior da el número de versión principal de Windows. Si devuelve 4, usted utiliza Windows 95, 98 o Windows NT 4. Si devuelve 5, usted utiliza Windows 2000 o Windows XP (en ambos casos, el signo del valor indica si usted utiliza Windows NT/2000 o no). Si devuelve 6, usted utiliza Windows Vista.
El octeto inferior siguiente da el número de versión secundaria de Windows. Bajo Windows 95, este valor es 0.
Nota: en 4D, puede extraer estos valores utilizando los % (módulo) y \ (división entera) o los .
Constante | Tipo | Valor |
Power PC | Entero largo | 406 |
Intel Compatible | Entero largo | 586 |
Código | Lenguaje |
1 | Árabe |
2 | Búlgaro |
3 | Catalán |
4 | Chino |
5 | Checo |
6 | Danés |
7 | Alemán |
8 | Griego |
9 | Inglés |
10 | Español |
11 | Finlandés |
12 | Francés |
13 | Hebreo |
14 | Húngaro |
15 | Islandés |
16 | Italiano |
17 | Japonés |
18 | Coreano |
19 | Holandés |
20 | Noruego |
21 | Polonia |
22 | Portugués |
24 | Rumano |
25 | Ruso |
26 | Croata |
26 | Serbio |
27 | Esloveno |
28 | Albanés |
29 | Suizo |
30 | Tailandés |
31 | Turco |
33 | Indonesio |
34 | Ucraniano |
35 | Bielarruso |
36 | Esloveno |
37 | Estonio |
38 | Latvio |
39 | Lituania |
41 | Farsi |
42 | Vietnamés |
45 | Vasco |
54 | Africano |
56 | Feroés |
Nota: si comando no puede identificar el lenguaje del sistema, se devuelve el valor 9 (inglés).
Si está corriendo una versión Mac OS de 4D, el parámetro sistema devuelve un valor de 32 bits (Entero largo), en el cual la palabra de nivel más alto no se utiliza y la palabra de nivel más bajo se estructura de esta forma:
- El byte superior contiene el número de versión principal,
- El byte inferior está compuesto de dos cuartetos o nibbles (conjuntos de 4 bits). El nivel superior es el número de actualización principal y el nibble inferior el número de actualización secundaria. Ejemplo: el sistema 9.0.4 está codificado como $0904, de manera usted reciba el valor decimal 2308.
Nota: en 4D, puede extraer estos valores utilizando los % (módulo) y \ (división entera) o los .
Utilice la siguiente fórmula para conocer el número de versión principal de Mac OS:
PLATFORM PROPERTIES($vlPlataforma;$vlSistema)
$vlResult:=$vlSistema\256
`If $vlResult = 8 --> usted está bajo Mac OS 8.x
`If $vlResult = 9 --> usted está bajo Mac OS 9.x
`If $vlResult = 16 --> usted está bajo Mac OS 10.x
Producto: 4D
Tema: Entorno del sistema
Número
365
Lista alfabética de los comandos
Modificado: 4D v11 SQL