Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Работа с бинарными файлами.

Автор: zzdxw 28.10.2014, 17:28

Доброго времени суток!
Помогите разобраться с бинарными файлами. Имеется форма. Нужно, чтобы при нажатии на кнопку "Загрузить из" загружался бинарный файл и поля Edit заполнялись соответствующими значениями (эти значения - перепады яркости изображения в пикселе), например:

1 2 1
0 10 0
-1 -2 -1

А при нажатии на "Сохранить в" введенные значения сохранялись в отдельный (или тот же) бинарный файл.

Автор: Poseidon 28.10.2014, 19:11

Цитата(zzdxw @ 28.10.2014, 17:28

)

Помогите разобраться с бинарными файлами.

Да мы и рады бы, только в данном виде просьба выглядет как "напишите за меня". Показывай как делаешь и что не получается, а мы тут поможем.

Автор: zzdxw 28.10.2014, 20:19

Ну я почитал про операции с бинарными файлами. Но с чего начать вообще не знаю.
Все, что приходит в голову:

Код


procedure TForm2.Button2Click(Sender: TObject);
var
f:file of integer;
begin
if OpenDialog1.Execute then 
begin
Assignfile(f,''); // не знаю, что написать после f, у меня нет конкретного файла
Reset(f); // открываем для чтения , куда открываем понятия не имею
Read(F,); //какую переменную считывать тоже не представляю
end.

Ну, то есть понятно, что я новичок... Очень новичок.

Автор: bems 28.10.2014, 20:43

Цитата(zzdxw @ 28.10.2014, 20:19

)

не знаю, что написать после f, у меня нет конкретного файла

ну тогда придумай конкретный файл и его "напиши после f"

Цитата(zzdxw @ 28.10.2014, 20:19

)

открываем для чтения , куда открываем понятия не имею

никуда. просто открываем.

Цитата(zzdxw @ 28.10.2014, 20:19

)

какую переменную считывать тоже не представляю

это смотря что нужно делать с прочитанными значениями. если нужно просто перебрать все по очереди то заведи переменную того же типа для которого объявлен твой файл и пока не eof читай в неё значения. если нужно получить все значения и как-то манипулировать когда они уже все есть, то сделай массив и читай в его элементы

Добавлено через 2 минуты и 19 секунд

Цитата(zzdxw @ 28.10.2014, 20:19

)

у меня нет конкретного файла

у тебя же есть OpenDialog
если его метод Execute вернул True то имя файла будет в OpenDialog1.FileName

Автор: zzdxw 28.10.2014, 23:26

В общем, вот что получилось:

Код


procedure TForm2.Button2Click(Sender: TObject);
const
  MaxLen = 255;
var
  f:file;
  s:string[MaxLen];
  Cnt:integer;
begin
if opendialog1.Execute then
begin
  AssignFile(f, opendialog1.FileName);
  FileMode:=fmOpenRead;
  Reset(f,1);
  blockread(f,s[1], MaxLen, Cnt);
  SetLength(s, Cnt);
  closefile(f);
  edit1.text:=s;
end;
end;

Я создал в HEX'е файл, оттуда считываются значения. В Edit1 записывается значение из первой строки из файла. Как мне сделать, чтобы в Edit2 записывалось значение из второй строки и т.д.?

Автор: SlaUr 30.10.2014, 16:07

Код


var
  Form1: TForm1;
 F1:text;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR St1:string;i1:integer;
begin
i1:=0;
AssignFile(F1,'d:\tmp\1.txt') ;{$I-}Reset(F1);        {$I+}
if IORESULT=0 then
  begin While not Eof(F1) do
     begin
       ReadLn(F1,St1);
       inc(i1);
       if i1=1 then Edit1.Text:=st1;
       if i1=2 then Edit2.Text:=st1;
     end;
   {$I-}CloseFile(f1){$I+};if IORESULT<>0 then;
  end;
end;

end.

Это для текстовых файлов

Цитата

В Edit1 записывается значение из первой строки из файла.

т.е. у вас файл состоит из строк
Если вы все же хотите работать с бинарным файлом то нужно в цикле считывать файл в массив (char) и искать последовательность символов #13#10 это разделитель строк.

Автор: zzdxw 1.11.2014, 15:39

Разобрался. Вот рабочий код, если кому понадобится.

Код


procedure TForm2.Button2Click(Sender: TObject);
var
  coefs: array[1..9] of integer;
begin
if opendialog1.Execute then
  begin
    fs:=TFileStream.Create(opendialog1.FileName,fmOpenRead);

        fs.Seek(0,soFromBeginning);
        fs.Read(coefs,SizeOf(integer)*Length(coefs));
        Edit1.Text:=inttostr(coefs[1]);
        Edit2.Text:=inttostr(coefs[2]);
        Edit3.Text:=inttostr(coefs[3]);
        Edit4.Text:=inttostr(coefs[4]);
        Edit5.Text:=inttostr(coefs[5]);
        Edit6.Text:=inttostr(coefs[6]);
        Edit7.Text:=inttostr(coefs[7]);
        Edit8.Text:=inttostr(coefs[8]);
        Edit9.Text:=inttostr(coefs[9]);
        fs.Free;
      end;
  end;

procedure TForm2.Button3Click(Sender: TObject);
var
coefs: array[1..9] of integer;
begin

coefs[1]:=StrToInt(Form2.Edit1.Text);
coefs[2]:=StrToInt(Form2.Edit2.Text);
coefs[3]:=StrToInt(Form2.Edit3.Text);
coefs[4]:=StrToInt(Form2.Edit4.Text);
coefs[5]:=StrToInt(Form2.Edit5.Text);
coefs[6]:=StrToInt(Form2.Edit6.Text);
coefs[7]:=StrToInt(Form2.Edit7.Text);
coefs[8]:=StrToInt(Form2.Edit8.Text);
coefs[9]:=StrToInt(Form2.Edit9.Text);

if SaveDialog1.Execute then
  begin
    fs:=TFileStream.Create(SaveDialog1.FileName, fmCreate);
    try
    fs.Write(coefs, SizeOf(integer)*Length(coefs));
  finally
    fs.Free;
  end;
end;
end;