Подключение в Бд DTL & EVT формат

[Катя Анисина]

Я конечно не спец в форумах, как писать в личку не нашла(( Там затруднение не выйдет что в DTL формате русские заголовки??? их не проблема переписать, и еще могу для удобства выложить dtl файлик с маленьким списком =)

[Slym]

первая кнопка evt
вторая кнопка dtl без заголовков
третья кнопка dtl с заголовками

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DateUtils;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  TDtlStaticRec=packed record
    Sec010170:integer;
    MSec:byte;
    params:array[1..16] of word;
  end;
  TEvtStaticRec=packed record
    Sec010170:integer;
    Event,Category,Length:byte;
  end;
  TEvtVarRec=packed record
    Head:TEVTStaticRec;
    Message:string;
  end;

function SecToDateTime(Sec:integer):TDateTime;
begin
  result:=25569;//EncodeDate(1970,01,01);
  result:=IncSecond(result,Sec);
end;

function FormatEvtRec(const Rec:TEVTVarRec):string;
var d:TDateTime;
begin
  d:=SecToDateTime(Rec.Head.Sec010170);
  result:=AnsiQuotedStr(IntToStr(Rec.Head.Event),'"')+','+
          AnsiQuotedStr(IntToStr(Rec.Head.Category),'"')+','+
          AnsiQuotedStr(FormatDateTime('YY"/"MM"/"DD',d),'"')+','+
          AnsiQuotedStr(FormatDateTime('HH:mm:ss',d),'"')+','+
          AnsiQuotedStr(UTF8Decode(Rec.Message),'"');
end;

function FormatDtlRec(const Rec:TDtlStaticRec):string;
var
  d:TDateTime;
  i:integer;
begin
  d:=SecToDateTime(Rec.Sec010170);
  result:='"'+FormatDateTime('YY"/"MM"/"DD',d)+'",'+
          '"'+FormatDateTime('HH:mm:ss',d)+'",'+
          '"'+IntToStr(Rec.Msec*10)+'",';
   for i:=low(Rec.params) to high(Rec.params) do
    result:=result+'"'+IntToStr(Rec.params[i])+'",';
  result:=copy(result,1,length(result)-1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream:TFileStream;
  Rec:TEVTVarRec;
begin
  Stream:=TFileStream.Create('EL_20110922.evt',fmOpenRead);
  try
    Stream.Position:=16;
    while Stream.Position<Stream.Size do
    begin
      Stream.ReadBuffer(Rec.Head,SizeOf(Rec.Head));
      SetLength(Rec.Message,Rec.Head.Length);
      Stream.ReadBuffer(PChar(Rec.Message)^,Rec.Head.Length);
      memo1.Lines.Add(FormatEvtRec(Rec));
    end;
  finally
    Stream.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Stream:TFileStream;
  Rec:TDtlStaticRec;
begin
  memo1.Lines.BeginUpdate;
  try
    memo1.Lines.Clear;
    Stream:=TFileStream.Create('20110922.dtl',fmOpenRead);
    try
      Stream.Position:=404;
      while Stream.Position<Stream.Size do
      begin
        Stream.ReadBuffer(Rec,SizeOf(Rec));
        memo1.Lines.Add(FormatDtlRec(Rec));
      end;
    finally
      Stream.Free;
    end;
  finally
    memo1.Lines.EndUpdate;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
type
  TDtlStaticHeader=packed record
    Sign,Undef1,Date:integer;
    Count1,Count2:integer;
  end;
  TDtlFieldDef=packed record
    FieldType,FieldSize:integer;
    FieldName:string;
  end;
  TDtlHead=record
    Header:TDtlStaticHeader;
    Fields:array of TDtlFieldDef;
  end;
var
  Stream:TFileStream;
  Head:TDtlHead;
  i:integer;
  w:word;
  s:string;
  Rec:TDtlStaticRec;
begin
  memo1.Lines.BeginUpdate;
  try
    memo1.Lines.Clear;
    Stream:=TFileStream.Create('20110922.dtl',fmOpenRead);
    try
      with Head do
      begin
        Stream.ReadBuffer(Header,SizeOf(Header));
        SetLength(Fields,Header.Count1);
        for i:=low(Fields) to high(Fields) do
          Stream.ReadBuffer(Fields[i],SizeOf(Int64));
        Stream.ReadBuffer(i,SizeOf(integer));
        for i:=low(Fields) to high(Fields) do
        begin
          Stream.ReadBuffer(w,SizeOf(w));
          SetLength(Fields[i].FieldName,w);
          Stream.ReadBuffer(PChar(Fields[i].FieldName)^,w);
        end;
        s:='"Date","Time","Millisecond",';
        for i:=low(Fields) to high(Fields) do
          s:=s+'"'+UTF8Decode(Fields[i].FieldName)+'",';
        s:=copy(s,1,length(s)-1);
        memo1.Lines.Add(s);
      end;

      while Stream.Position<Stream.Size do
      begin
        Stream.ReadBuffer(Rec,SizeOf(Rec));
        memo1.Lines.Add(FormatDtlRec(Rec));
      end;
    finally
      Stream.Free;
    end;
  finally
    memo1.Lines.EndUpdate;
  end;
end;

end.

[Катя Анисина]

Все работает !!! Slym низкий поклон за его светлый труд и огромное спасибо!

[D.i.M.K.i.N.]

Сообщение от Slym

реверс evt дал вот это

доброе время суток.
подскажите пжлста что значит реверс?
и если не затруднит описать подробнее
что это за файла dtl и evt и как их обработать...

[Slym]

http://ru.wikipedia.org/wiki/%CE%E1%...E1%EE%F2%EA%E0

что конкретно нужно?

чел дал файл с неизвестной структурой, я эту неизвестность методом тыка почикал, и разсувал по полочкам

[D.i.M.K.i.N.]

Есть необходимость тоже почикать эти файлы, но на С#.
Знаний Delphi = 0. Поэтому и интересует как Вы
почикали, и разсували по полочкам эти файлы.
Можите объяснить?

[Slym]

бери и чикай весь секрет в приведёном выше листинге...
файлы опираются на структуры фиксированного размера...
варианта 2:
1. если шарп умеет оперировать записями (аналог record) и считывать их из файла, то тупой копипаст с конвертацией в c# моего листинга
2. чтение каждой переменной известного размера, тоже самое по сути но гиморней
аля

TDtlStaticHeader=class
Sign,Undef1,Date:integer;
Count1,Count2:integer;
end;

StaticHeader.Sign:= Stream.readinteger;
StaticHeader.Undef1:= Stream.readinteger;
StaticHeader.Date:= Stream.readinteger;
строка имеет спереди длинну, сначала читаем 2 байта длинны потом считываем строку длинной длинна
length=Stream.readWord;
string=Stream.readstring(length);

p.s.
в шарпе я только читатель, но подредактировать смогу - выкладывай свою поделку допилим
я нынче безработный время есть... донат по желанию

[John Doe]

D.i.M.K.i.N. вы сделали на С#?

Кто может "перевести" пост №12 с Delphi на С#(WinForm VS2010)?

[Slym]

Такой востребованный формат? И почему его всем надо на шарпе?
Ставлю студию попилю шарп... Как распилю выложу...
а ваабще товарищи шарп очень похож на дельфю по синтаксису так что не сидите сложа руки...

[Alex11223]

Наверно можно не пилить, для John Doe я сделал уже (не за бесплатно).