FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 922, dernière mise à jour : 6 février 2020  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireSystèmeWMIConversions diverses (2)
précédent sommaire suivant
 

WMI peut renvoyer des propriétés qui contiennent une date dans une chaîne de caractères au format yyyymmddHHMMSS.mmmmmmsUUU (CIM DATETIME)

Par exemple '20050820151418.734375-000' est équivalent à '20/08/2005 17:14:18' tout en tenant compte du fuseau horaire.
On utilise ici un objet de type TSWbemDateTime qui permet de gérer ce type de date. Il suffit de renseigner toutes les propriétés composant la date et l'heure afin de récupérer une date au format TDateTime par l'appel à la méthode GetVarDate(True).
Le paramètre, de valeur True, indique qu'on souhaite manipuler le fuseau horaire (Format UTC, les quatre derniers caractères 'sUUU' de la chaîne formatée).

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Procedure EnumSR;  
var  
  WmiDateTime : TSWbemDateTime;  
  CreationTime : String;  
  
begin  
 ...  
  WmiDateTime:= TSWbemDateTime.Create(Nil);  
 try  
  ...  
   If WmiProperty.name='CreationTime'  
     then  
       With WmiDateTime do  
       begin  
  
          // Format de date CIM_DATETIME (UTC)  
         CreationTime:=WmiProperty.Get_Value;  
         UTCSpecified:=True;  
         Year:=StrToInt(Copy(CreationTime,1,4));  
         Month:=StrToInt(Copy(CreationTime,5,2));  
         Day:=StrToInt(Copy(CreationTime,7,2));  
         Hours:=StrToInt(Copy(CreationTime,9,2));  
         Minutes:=StrToInt(Copy(CreationTime,11,2));  
         Seconds:=StrToInt(Copy(CreationTime,13,2));  
         Microseconds:=StrToInt(Copy(CreationTime,16,6));  
         Utc:=StrToInt(Copy(CreationTime,22,4));  
  
        // Format de date DATETIME  
         Write('Date : ',DateTimeToStr(GetVarDate(True)));  
       end;  
   end;  
  end;  
 Finally  
  WmiDateTime.Free;  
 end;  
end;

Mis à jour le 15 janvier 2014 Laurent Dardenne

Lors de certains appels on peut manipuler des paramètres contenant un nom de fichier ayant une syntaxe particulière.
Le nom du fichier contenant le nom de l'espace de nom et de la classe, il nous faut le parser pour récupérer un nom de fichier au format NTFS/FAT.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
Function WMIGetNomFichier(PartComponent:String):TFileName; 
//Reçoit:  \\AMD2800\root\cimv2:CIM_DataFile.Name="c:\\temp\\NouveauFichier.TXT" 
//Renvoie un nom de fichier Win32 : c:\temp\NouveauFichier.TXT 
  
Var lpos:Integer; 
begin 
 lpos:=Pos('=',PartComponent); 
 Delete(PartComponent,1,Lpos); 
  
  //Supprime les \ en double et supprime les guillemets 
 Result:=AnsiReplaceStr(AnsiReplaceStr(PartComponent,'\\','\'),'"','');; 
end;

Mis à jour le 15 janvier 2014 Laurent Dardenne

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2020 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.