|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как открыть файл расширением dat в Delphi?
Здравствуйте. Столкнулся с проблеммой открытия файла созданного при помощи измерительной лаборатории МПИ СЦБ с расширением adc (осцилограмма, график зависимости напряжения от времени). Разработчики прибора отписали, что данный тип файла является проетарным (авторские права) и с ним нельзя работать. Посоветовали использовать конвертор внутри пакета ПО прибора, который делаем из него файл с расширением dat. Задача состоит в том, чтобы открыть этот файл в Delphi для просмотра, т.к. ПО написано под DOS. Прошу откликнуться знающих людей или дать совет по работе над данным файлом. Отвечать можно на avfelichev@mail.ru. Примеры в приложенном файле.
|
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Читай тему
Этот файл содержит данные об измерении, координаты точек, по которым строится график. Файл нужно открыть в Delphi.
|
#4
|
||||
|
||||
Цитата:
|
#5
|
||||
|
||||
Код:
TFileStream.Create('МПИСЦБ.dat', fmOpenRead); Код:
var f: file; begin AssignFile(f, 'МПИСЦБ.dat'); end; Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Код:
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; |