[SantilaS]

Здравствуйте. Столкнулся с проблеммой открытия файла созданного при помощи измерительной лаборатории МПИ СЦБ с расширением adc (осцилограмма, график зависимости напряжения от времени). Разработчики прибора отписали, что данный тип файла является проетарным (авторские права) и с ним нельзя работать. Посоветовали использовать конвертор внутри пакета ПО прибора, который делаем из него файл с расширением dat. Задача состоит в том, чтобы открыть этот файл в Delphi для просмотра, т.к. ПО написано под DOS. Прошу откликнуться знающих людей или дать совет по работе над данным файлом. Отвечать можно на avfelichev@mail.ru. Примеры в приложенном файле.

[poli-smen]

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

Здравствуйте. Столкнулся с проблеммой открытия файла созданного при помощи измерительной лаборатории МПИ СЦБ с расширением adc (осцилограмма, график зависимости напряжения от времени). Разработчики прибора отписали, что данный тип файла является проетарным (авторские права) и с ним нельзя работать. Посоветовали использовать конвертор внутри пакета ПО прибора, который делаем из него файл с расширением dat. Задача состоит в том, чтобы открыть этот файл в Delphi для просмотра, т.к. ПО написано под DOS. Прошу откликнуться знающих людей или дать совет по работе над данным файлом. Отвечать можно на avfelichev@mail.ru. Примеры в приложенном файле.

Файлы dat - это обычные текстовые файлы. Можешь открыть в том же блокноте (или ворде). В Delphi также работаешь как с обычным текстовым файлом, например через TStringList.

[SantilaS]

Этот файл содержит данные об измерении, координаты точек, по которым строится график. Файл нужно открыть в Delphi.

[poli-smen]

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

Этот файл содержит данные об измерении, координаты точек, по которым строится график. Файл нужно открыть в Delphi.

Ты уверен, что внимательно и до конца прочитал то что я тебе написал?

[NumLock]

Код:

TFileStream.Create('МПИСЦБ.dat', fmOpenRead);

Код:

var
  f: file;
begin
  AssignFile(f, 'МПИСЦБ.dat');
end;

есть еще несколько вариантов, но для начала этого хватит.

[icWasya]

Код:

procedure TForm1.ReadDatFile(FileName:String);
var
  dat:TextFile;
  S1,S2:String;
  fX,fY:Single;
  X,Y:Integer;
  procedure ReadXY;
  begin
    Read(dat,fX,fY);
    X := Round(kX*fX);
    Y := Round(kY*fY);  
  end;
begin
  Assignfile(dat,FileName);
  Reset(dat);
  ReadLN(dat,S1);
  ReadLN(dat,S2);


  ReadXY;
  Image1.Canvas.MoveTo(X,Y);

  while not Eof(dat) do begin
    ReadXY;
    Image1.Canvas.LineTo(X,Y);
  end;

  CloseFile(dat);
end;