Téléchargement delphi wmi class generator - delphi wmi class generator Téléchargement du code source

delphi wmi class generator

Code source de Delphes

1.0.0.0

Télécharger

Le générateur de classes Delphi Wmi est une application qui crée des classes Object Pascal entièrement documentées pour accéder au WMI (Windows Management Instrumentation).

Caractéristiques

Le code généré est compatible Delphi 7, 2005, BDS/Turbo 2006 et RAD Studio 2007-2010, XE-XE7 et le Free Pascal Compiler 2.2.4 (win32)
Créez des classes entièrement documentées compatibles avec la fonctionnalité Help Insight, disponible depuis Delphi 2005.

Remarque : la langue de la description des méthodes, paramètres et propriétés dépend de la langue des fenêtres où vous générez les unités.

Créez des fonctions d'assistance pour récupérer la description des valeurs renvoyées pour les propriétés et les fonctions.

Limites

L'application génère du code prêt à l'emploi à 99 % environ. Dans certains cas, cependant certaines classes WMI exposent les métadonnées dans un format incorrect ou la structure des métadonnées n'est pas compatible avec l'algorithme utilisé pour créer le code Pascal de l'objet. Dans de tels cas, vous devez corriger le code manuellement.

Sur cette page, vous pouvez trouver les classes avec des problèmes. une autre option consiste à télécharger les classes corrigées générées directement depuis le référentiel,

Internes

L'outil extrait et analyse les métadonnées (propriétés, méthodes, qualificatifs, valeurs valides et descriptions) stockées dans la classe WMI, pour recréer une classe compatible Object Pascal.

Chaque classe Pascal Object générée par l'application descend de la classe de base TWmiClass, cette classe encapsule l'accès au wmi, convertit les valeurs (OleVariant) renvoyées par la classe appelante en types natifs, et stocke dans une collection interne (buffer) les valeurs des propriétés et l'adresse des instances.

la classe TWmiClass peut être compilée selon deux modes.

Utilisation de la bibliothèque de scripts Microsoft WMI V1.2

Ce wrapper (WbemScripting_TLB) est généré par le compilateur Delphi, cette option améliore l'accès initial au WMI (cette option n'est pas compatible avec FPC). si vous utilisez ce mode, vous devez inclure dans vos projets l'unité WbemScripting_TLB.

Utilisation de la liaison tardive

Cette option est utile lorsque vous devez générer de petits fichiers exe. les performances sont un peu plus lentes lors de l'exécution initiale.

Pour choisir entre ces 2 modes vous devez commenter ou décommenter dans l'unité uWmiDelphiClass la ligne suivante

 { $DEFINE WbemScripting_TLB }

Usage

Dans la fenêtre principale de l'application, vous devez sélectionner l'espace de noms et la classe à générer (par défaut toutes les classes de l'espace de noms WMI sont sélectionnées) et appuyer sur le bouton "Générer des unités", puis l'outil créera un dossier à l'emplacement de l'exe avec le nom de l'espace de noms et à l'intérieur de ce dossier sera créé un projet de console de test, une copie du fichier uWmiDelphiClass.pas et les classes sélectionnées. Chaque classe est stockée dans une unité distincte avec le nom formé de la lettre "u" plus le nom de la classe Wmi, par exemple le nom de l'unité pour la classe Win32_BIOS sera uWin32_BIOS.pas .

Démos

Dans le référentiel source, vous pouvez trouver un ensemble de démos de l'utilisation des classes générées.

vérifiez cette application console très simple, qui utilise la classe WMI Win32_BaseBoard.

 program TestWin32_BaseBoard;

{ $APPTYPE CONSOLE }

uses
  SysUtils,
  uWin32_BaseBoard in ' ....root_CIMV2uWin32_BaseBoard.pas ' , 
  uWmiDelphiClass in ' ....uWmiDelphiClass.pas ' ; // the base class

procedure TestBaseBoard ;
var
  BaseBoard : TWin32_BaseBoard;
begin
  BaseBoard:=TWin32_BaseBoard.Create;
  try
    Writeln( ' Base Board Info ' );
    Writeln( ' --------------- ' );
    Writeln( ' Manufacturer ' +BaseBoard.Manufacturer);
    Writeln( ' Model        ' +BaseBoard.Model);
    Writeln( ' SKU          ' +BaseBoard.SKU);
    Writeln( ' SerialNumber ' +BaseBoard.SerialNumber);
    Writeln( ' PartNumber   ' +BaseBoard.PartNumber);
    Writeln( ' Tag          ' +BaseBoard.Tag);
    Readln;
  finally
    BaseBoard.Free;
  end ;
end ;

begin
  try
    TestBaseBoard;
  except
    on E:Exception do
    begin
      Writeln(E.Classname, ' : ' , E.Message);
      Readln;
    end ;
  end ;
end .

Cet outil a été compilé à l'aide de Delphi XE.

Exemple de code source

Exemple de code source créé par l’application pour la classe WMI Win32_Share.

 // / <summary>
// / Unit generated using the Delphi Wmi class generator tool, Copyright Rodrigo Ruz V. 2010
// / Application version 0.1.0.113
// / WMI version 7600.16385
// / Creation Date 23-12-2010 22:39:55
// / Namespace rootCIMV2 Class Win32_Share
// / MSDN info about this class http://msdn2.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/Win32_Share.asp
// / </summary>

{ $IFDEF FPC }
 { $MODE DELPHI } { $H+ }
 { $DEFINE OLD_DELPHI }
{ $ENDIF }

unit uWin32_Share;

interface

uses
 Classes,
 Activex,
 Variants,
 ComObj,
 uWmiDelphiClass;

type
{ $IFDEF FPC }
  Cardinal=Longint;
  Int64=Integer;
  Word=Longint;
{ $ENDIF }
{ $IFNDEF FPC }
  { $IF CompilerVersion <= 15 }
    { $DEFINE OLD_DELPHI }
  { $IFEND }
{ $ENDIF }
  { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
  // / <summary>
  // / The Win32_Share class represents a shared resource on a Win32 system. This may be a disk drive, printer, interprocess communication, or other shareable device.
  // / Example: C:PUBLIC.
  // / </summary>
  { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
  TWin32_Share= class (TWmiClass)
  private
    FAccessMask                         : Cardinal;
    FAllowMaximum                       : Boolean;
    FCaption                            : String;
    FDescription                        : String;
    FInstallDate                        : TDateTime;
    FMaximumAllowed                     : Cardinal;
    FName                               : String;
    FPath                               : String;
    FStatus                             : String;
    FType                               : Cardinal;
  public
   constructor Create(LoadWmiData : boolean=True); overload;
   destructor Destroy;Override;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / This property has been deprecated in favour of the GetAccessMask method of this 
   // / class due to the expense of calling GetEffectiveRightsFromAcl. The value will 
   // / be set to NULL
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property AccessMask : Cardinal read FAccessMask;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The AllowMaximum property indicates whether the number of concurrent users for this resource has been limited.
   // / Values: TRUE or FALSE. A value of TRUE indicates the number of concurrent users of this resource has not been limited and the value in the MaximumAllowed property is ignored.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property AllowMaximum : Boolean read FAllowMaximum;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Caption property is a short textual description (one-line string) of the 
   // / object.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Caption : String read FCaption;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Description property provides a textual description of the object. 
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Description : String read FDescription;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The InstallDate property is datetime value indicating when the object was 
   // / installed. A lack of a value does not indicate that the object is not installed.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property InstallDate : TDateTime read FInstallDate;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The MaximumAllowed property indicates the limit on the maximum number of users allowed to use this resource concurrently. The value is only valid if the AllowMaximum member set to FALSE 
   // / Example: 10.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property MaximumAllowed : Cardinal read FMaximumAllowed;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Name property indicates the alias given to a path set up as a share on a  Win32 system.
   // / Example: public.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Name : String read FName;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Path property indicates the local path of the Win32 share.
   // / Example: C:Program Files
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Path : String read FPath;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Status property is a string indicating the current status of the object. 
   // / Various operational and non-operational statuses can be defined. Operational 
   // / statuses are "OK", "Degraded" and "Pred Fail". "Pred Fail" indicates that an 
   // / element may be functioning properly but predicting a failure in the near 
   // / future. An example is a SMART-enabled hard drive. Non-operational statuses can 
   // / also be specified. These are "Error", "Starting", "Stopping" and "Service". The 
   // / latter, "Service", could apply during mirror-resilvering of a disk, reload of a 
   // / user permissions list, or other administrative work. Not all such work is on-
   // / line, yet the managed element is neither "OK" nor in one of the other states.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Status : String read FStatus;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Type property specifies the type of resource being shared. Types include 
   // / disk drives, print queues, interprocess communications (IPC), and general 
   // / devices.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal read FType;
   function Create ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal; const Name : String; const Password : String; const Path : String; const { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal): Integer;overload;
   function SetShareInfo ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal): Integer;
   function GetAccessMask : Integer;
   function Delete : Integer;
   procedure SetCollectionIndex (Index : Integer); override;
  end ;


  { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
  // / <summary>
  // / Return the description for the value of the property TWin32_Share.Type
  // / </summary>
  { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
  function GetTypeAsString ( const APropValue:Cardinal) : string;

implementation


function GetTypeAsString ( const APropValue:Cardinal) : string;
begin
Result:= ' ' ;
  case APropValue of
    0 : Result:= ' Disk Drive ' ;
    1 : Result:= ' Print Queue ' ;
    2 : Result:= ' Device ' ;
    3 : Result:= ' IPC ' ;
    2147483648 : Result:= ' Disk Drive Admin ' ;
    2147483649 : Result:= ' Print Queue Admin ' ;
    2147483650 : Result:= ' Device Admin ' ;
    2147483651 : Result:= ' IPC Admin ' ;
  end ;
end ;

{ TWin32_Share }

constructor TWin32_Share.Create(LoadWmiData : boolean=True);
begin
  inherited Create(LoadWmiData, ' rootCIMV2 ' , ' Win32_Share ' );
end ;

destructor TWin32_Share.Destroy;
begin
  inherited ;
end ;

procedure TWin32_Share.SetCollectionIndex (Index : Integer);
begin
  if (Index>= 0 ) and (Index<=FWmiCollection.Count- 1 ) and (FWmiCollectionIndex<>Index) then
  begin
    FWmiCollectionIndex:=Index;
    FAccessMask          := VarCardinalNull( inherited Value [ ' AccessMask ' ]);
    FAllowMaximum        := VarBoolNull( inherited Value [ ' AllowMaximum ' ]);
    FCaption             := VarStrNull( inherited Value [ ' Caption ' ]);
    FDescription         := VarStrNull( inherited Value [ ' Description ' ]);
    FInstallDate         := VarDateTimeNull( inherited Value [ ' InstallDate ' ]);
    FMaximumAllowed      := VarCardinalNull( inherited Value [ ' MaximumAllowed ' ]);
    FName                := VarStrNull( inherited Value [ ' Name ' ]);
    FPath                := VarStrNull( inherited Value [ ' Path ' ]);
    FStatus              := VarStrNull( inherited Value [ ' Status ' ]);
    FType                := VarCardinalNull( inherited Value [ ' Type ' ]);
  end ;
end ;


// static, OutParams=1, InParams>0
function TWin32_Share.Create ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal; const Name : String; const Password : String; const Path : String; const { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal): Integer;
var
  objInParams                : OleVariant;
  objOutParams               : OleVariant;
begin
  objInParams                 := GetInstanceOf.Methods_.Item( ' Create ' ).InParameters.SpawnInstance_();
  objInParams.Properties_.Item( ' Access ' ). Value  := Access;
  objInParams.Properties_.Item( ' Description ' ). Value  := Description;
  objInParams.Properties_.Item( ' MaximumAllowed ' ). Value  := MaximumAllowed;
  objInParams.Properties_.Item( ' Name ' ). Value  := Name ;
  objInParams.Properties_.Item( ' Password ' ). Value  := Password;
  objInParams.Properties_.Item( ' Path ' ). Value  := Path;
  objInParams.Properties_.Item( ' Type ' ). Value  := { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } ;
  objOutParams                := WMIService.ExecMethod(WmiClass, ' Create ' , objInParams, 0 , GetNullValue);
  Result := VarIntegerNull(objOutParams.ReturnValue);
end ;


// not static, OutParams=1, InParams>0
function TWin32_Share.SetShareInfo ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal): Integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.SetShareInfo(Access,Description,MaximumAllowed);
  Result      := VarIntegerNull(ReturnValue);
end ;


// not static, OutParams=1, InParams=0
function TWin32_Share.GetAccessMask : integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.GetAccessMask;
  Result      := VarIntegerNull(ReturnValue);
end ;

// not static, OutParams=1, InParams=0
function TWin32_Share.Delete : integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.Delete;
  Result      := VarIntegerNull(ReturnValue);
end ;
end .

Vous recherchez l'installateur ? Vérifiez la zone de sortie

Développer

Informations supplémentaires

Version 1.0.0.0
Type Code source de Delphes
Date de mise à jour 2025-01-02
taille 2.91MB
Provenant de Github

Applications connexes

Contoso Data Generator V2

2024-11-11
Application Lingostar Class

2024-03-23
Application de cours Yunhui

2023-06-07
Classe '09

2022-08-03
Évasion en première classe : le fil de la pensée

2022-08-01
Classe PHP MSN

2010-01-29

Recommandé pour vous

chat.petals.dev

Autre code source

1.0.0
GPT Prompt Templates

Autre code source

1.0.0
GPTyped

Autre code source

GPTyped 1.0.5
BlackShark

Code source de Delphes

Release 4.0
Code source du livre supplémentaire sur le développement d'applications avancées Delphi7

Code source de Delphes
Développement d'applications réseau Delphi7 (IntraWeb)

Code source de Delphes
waymo open dataset

Autre code source

December 2023 Update
wp functions

Autres catégories

1.0.0
slugify

Autres catégories

Version 4.6.0 (10 September 2024)

Actualités connexes Tout