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

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

О уважаемые умы этого форума, столкнулась с производственной задачей создание БД. Никогда не с талкивалась. Необходимо прочитать их в dbf или в MS Access. Есть конвертор к этим файлам, конвертирует их в xls, они в 16-ти ричной системе, вроде, но тот же notepad их не просматривает. Все сделано, только с xls -> бд, все работает программа написана, но преобразование затрудняет, то что читаешь конвертором, потом xls в базу, а файлы огромные. Может кто сталкивался с таким форматом. При необходимости могу прикрепить конвертор.

[rdama]

Вы знаете сложно сказать чем можно почитать эти файлы не зная от чего они.
Что за программа их создает.

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

Файлы считываються с дисплея, в котором есть память на 128мб. Софт пишеться через программу EasyBuilder8000 там же есть и конвертор. Я прикрепила отделила конвертор для просмотра файлов. Все пишеть в битах по строчно.

[alexiz]

Программное обеспечение EasyBuilder 8000 предназначено для создания пользовательского интерфейса ( экранов ) для операторских панелей EasyView серий 6000i , 8000 .

Что можно делать с помощью EasyBuilder8000:

- размещать на экранах графические файлы в формате BMP ( логотипы, схемы, пиктограммы, итд)
- создавать кнопки,в том числе и невидимые, при нажатии на которые будет изменяться заданный регистр в PLC (бит, байт, выход, счетчик)
- выводить на экран значение любого регистра PLC в цифровом виде с возможностью пересчета
- выводить на экран значение любого регистра PLC в графическом виде ( прогресс бар, график, анимация, смена нескольких изображений в зависимости от состояния регистра )
- создавать текстовые надписи, изменяющиеся в зависимости от состояния регистра в PLC
- переключать экраны (до 2000 экранов ) в произвольном порядке, с помощью кнопок, либо с помощью регистра в PLC
- защищать любые парамеры с помощью пароля
- создавать макросы, запускаемые по таймеру, по нажатию кнопки, либо с PLC

И ни слова про работу с базами данных.

Если конвертер умеет сохранять в XLS, то Excel умеет сохранять в DBF!

Лучше прикрепить кусочек файла данных..

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

В теме есть dtl & evt формат в файле data.rar в первом сообщение, и конвенртор в xls.Excel я подключаю к БД но проблема в том, что это процесс очень долгий, в каждом файле 80 тыс строк и 18 столбцов. Дело в том, что необходимо прочитат сам dtl файл, а с остальным я справилась.

[Slym]

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

type
  TStaticRec=packed record
    Sec010170:integer;
    Event,Category,Length:byte;
  end;
  TVarRec=packed record
    Head:TStaticRec;
    Message:string;
  end;

function FormatRec(const Rec:TVarRec):string;
var d:TDateTime;
begin
  d:=EncodeDate(1970,01,01);
  d:=IncSecond(d,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;


procedure TForm1.Button1Click(Sender: TObject);
var
  Stream:TFileStream;
  Rec:TVarRec;

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(FormatRec(Rec));
    end;
  finally
    Stream.Free;
  end;
end;

[Slym]

первичный реверт dtl напоминает структуру dbf

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

Slym ты просто ГУРУ. УРАА! Работает. только функция incsecond ругаеться, пишет Undeclared identifier: 'IncSecond', сейчас посмотрю. С dtl еще не смотрела, если что можно обратиться в личку???

[Slym]

uses dateutils;
можно и в личку...
если dtl однотипный могу по типу evt смастерить, если разные (с разными полями) то сложнее... в личку не запретиш

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

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

uses dateutils;
можно и в личку...
если dtl однотипный могу по типу evt смастерить, если разные (с разными полями) то сложнее... в личку не запретиш

Да dtl однотипный, если тебя это не затруднит =). Я прописала ручками функцию IncSecond и все заработало=) Я еще не совсем разобралась как это работает =( Пока изучаю TStream и все что с ним связанно =)