Tarih Saat Formatı Hk;

[G.Arkas]

Merhaba arkadaşlar;

Windows'ta bazı bilgileri okurken bana dönen bir tarih formatını dönüştürmekte problem yaşıyorum.

Dönen değer :

Kod: Tümünü seç

20140506091536.303851-000

FormatDateTime ile convert ettiğimde hata dönüyor. Zaten değişik bir format ilk defa karşılaştım. Bilgisi olan arkadaşlarım yardım ederse çok sevinirim.

İlk 4 hane yıl sonra ki 2 hane ay ve sonraki 2 hane gün olarak geliyor. Devamı da saat formatı. Parse ile yapabilirim ama çook yavaş olur çünkü zaten bir defa da binlerce veri geliyor.



İyi çalışmalar...

[The_aLiEn]

Bu veri ne tip bir kaynaktan üretiliyor, veri nereden geliyor?

[G.Arkas]

Merhaba;

Windows Event Viewer'dan geliyor. WMI ile çekerken.

Kod: Tümünü seç

 FWbemObjectSet:= FWMIService.ExecQuery('SELECT Category,ComputerName,EventCode,Message,Type,SourceName,TimeWritten,RecordNumber FROM Win32_NTLogEvent  Where Logfile="System"','WQL',wbemFlagForwardOnly);

[SimaWB]

Bu WMI'da kullanılan bir tarih formatıdır: CIM_DATETIME.
WMI tarih formatları ile Delphi arasında dönüşüm için bakınız: http://theroadtodelphi.wordpress.com/20 ... and-times/

[SimaWB]

Şöyle bir fonk. buldum sanırım işinize yarayacaktır:

Kod: Tümünü seç

function  WmiDateToTDatetime(vDate : OleVariant) : TDateTime;
var
  FWbemDateObj  : OleVariant;
begin;
  FWbemDateObj  := CreateOleObject('WbemScripting.SWbemDateTime');
  FWbemDateObj.Value:=vDate;
  Result:=FWbemDateObj.GetVarDate;
end;

[G.Arkas]

@SimaWB

Çok teşekkür ederim işimi gördü. Hakkını helal et uğraştırdık seni de

WMI ile ilk defa çalışıyorum çok bilgim yok yabancı kaldık biraz..

İyi çalışmalar...

[SimaWB]

Estağfurullah ne hakkı. Ben WMI ile epey uğraşmıştım bi ara. WMI+Delphi ile ilgili Rodrigo'nun sitesi çok iyi kaynaktır.