Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=26)
-   -   Usando GLibWMI (https://www.clubdelphi.com/foros/showthread.php?t=68492)

Suriu 16-06-2010 21:59:17

Usando GLibWMI
 
Hola hace un tiempo que no escribo. Me dirijo a ustedes porque como indica el
titulo estoy utilizando el componente GLibWMI en específico ComputerSystemInfo, de el me gustaría utilizar la función

Código Delphi [-]
function TComputerSystemInfo.Rename(AInstanceProp: string;
 AInstanceValue: Variant;Name, PassWord, Username: String): integer;

pero no entiendo como utilizarla; me podrían ayudar a hacer una implementación que la utilice a modo de ejemplo.

Neftali [Germán.Estévez] 17-06-2010 11:28:14

Hola.
La primera pregunta que me viene a la mente es, ¿has revisado los ejemplos que vienen con el componente?

Basta con que "sueltes" el componente en el formulario y lo actives.
Código Delphi [-]
Active := True;

Ya sea por código o desde el IDE.

Si lo activas verás que la propiedad ObJectsCount vale 1. Significa que sólo ha encontrado un elemento de esas clase.

Para consultar las propiedades basta con acceder de esta forma:
Código Delphi [-]
  label1.Caption := ComputerSystemInfo1.ComputerSystemProperties.Caption;
  label1.Caption := ComputerSystemInfo1.ComputerSystemProperties.Description;
  label1.Caption := ComputerSystemInfo1.ComputerSystemProperties.Name;
  label1.Caption := ComputerSystemInfo1.ComputerSystemProperties.UserName;
  label1.Caption := ComputerSystemInfo1.ComputerSystemProperties.SystemType;
  i := ComputerSystemInfo1.ComputerSystemProperties.NumberOfLogicalProcessors;
  i := ComputerSystemInfo1.ComputerSystemProperties.NumberOfProcessors;
  i := ComputerSystemInfo1.ComputerSystemProperties.PCSystemType;
  ...

La Refencia de la clase y de las propiedades, tal y como aparece en la propiedad MSDNHelp del componente, la tienes en esta dirección.

Neftali [Germán.Estévez] 17-06-2010 12:13:25

Perdona, que me he dejado la mitad de la solución.
En cuanto a usar el método Rename, es sencillo (o debería serlo :)).

Los dos primeros parámetros se usan para identificar la instancia de la clase que se quiere modificar (es un método genérico y en este caso, como sólo hay una -ObjectsCount=1-, basta con colocar una propiedad y un valor para identificar a la instancia actual).

Código Delphi [-]
  // Utilizar nombre y valor
  ComputerSystemInfo1.Rename(
     'Caption',       // propiedad Caption
     'GESTEVEZ',   // valor de la propiedad Caption
     'CLUBDELPHI', // Nombre NUEVO
     mi_username, // Usuario con el que me he logeado
     mi_password);// Password
  // o Utilizar nombre y valor de la propiedad directamente
  ComputerSystemInfo1.Rename(
        'Caption',
        ComputerSystemInfo1.ComputerSystemProperties.Caption,
        'CLUBDELPHI',  // Nombre nuevo
        mi_usuario,
        mi_password);



La franja horaria es GMT +2. Ahora son las 17:15:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi