[zibert]

Здравствуйте форумчане! Есть небольшой но очень интересный вопрос:
Можно ли записать в файл действительные числа (real) с последующим их считыванием.. Желательно без сильных потерь. Надеюсь на вашу помощь..
PS
У меня есть тип BmpInfo:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

type   TBmpInfo = record     Buf:packed array[1..2] of Char;     offset:Integer;     size:Integer;     bits:Word;                                                                       comp:Integer;     Width:Integer;     Heigth:Integer;     Gor:Integer;     Vert:Integer;     NumCol:Integer;     NumColM:Integer;     Colors: packed array [1..1000,1..1000] of Integer;   end;

Чтение произвожу с помощью Blockread:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

AssignFile(bitmap, newfilename); FileMode:=fmOpenRead; Reset(bitmap,1); BlockRead(bitmap,BmpInfo.Buf,2); if BmpInfo.Buf<>'BM'then Application.Terminate; BlockRead(bitmap,BmpInfo.size,4); BlockRead(bitmap,BmpInfo.offset,4); BlockRead(bitmap,BmpInfo.offset,4); BlockRead(bitmap,BmpInfo.Width,4); BlockRead(bitmap,BmpInfo.Width,4); BlockRead(bitmap,BmpInfo.Heigth,4); BlockRead(bitmap,BmpInfo.bits,2); BlockRead(bitmap,BmpInfo.bits,2); BlockRead(bitmap,BmpInfo.comp,4); BlockRead(bitmap,BmpInfo.Gor,4); BlockRead(bitmap,BmpInfo.Gor,4); BlockRead(bitmap,BmpInfo.Vert,4); BlockRead(bitmap,BmpInfo.NumCol,4); BlockRead(bitmap,BmpInfo.NumColM,4); Seek(bitmap,BmpInfo.offset);     for x:=1 to BmpInfo.Heigth do      begin        for y:= 1 to BmpInfo.Width do        begin        BlockRead(bitmap,buf2,3);        color:=RGB(buf2[3],buf2[2],buf2[1]);        BmpInfo.Colors[x,y]:= ColorToRGB(color);        end;      end;

Запись проводиться через FileStream:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

rez:=0; fs:= TFileStream.Create(filename, fmCreate); fs.WriteBuffer(BmpInfo.Buf,2); fs.WriteBuffer(BmpInfo.size,4); fs.WriteBuffer(rez,2); fs.WriteBuffer(rez,2); fs.WriteBuffer(BmpInfo.offset,4); rez:=40; fs.WriteBuffer(rez,4); fs.WriteBuffer(BmpInfo.Width,4); fs.WriteBuffer(BmpInfo.Heigth,4); rez:=1; fs.WriteBuffer(rez,2); fs.WriteBuffer(BmpInfo.bits,2); fs.WriteBuffer(BmpInfo.comp,4); rez:=0; fs.WriteBuffer(rez,4); fs.WriteBuffer(BmpInfo.gor,4); fs.WriteBuffer(BmpInfo.vert,4); fs.WriteBuffer(BmpInfo.numcol,4); fs.WriteBuffer(BmpInfo.numcolm,4); i:=0; for x:=1 to BmpInfo.Heigth do    begin        for y:= 1 to BmpInfo.Width do            begin             Inc(i);             fs.WriteBuffer(z[i],3);            end;     end; fs.Free;

[M.A.D.M.A.N.]

real 8 байт занимает.
И при чем тут битмап, битмап же 24-х битные целые числа используются?

[zibert]

Сообщение от M.A.D.M.A.N.

real 8 байт занимает.
И при чем тут битмап, битмап же 24-х битные целые числа используются?

Спасибо за ответ.. но все таки дело в том что надо зашифровать файл используя код который генерирует случайную величину типа real ее нужно записать в файл.. но как это сделать не могу понять.. если бы она была в диапазоне 0-1 то можно было домножить на 16777216(макс количество цветов для бмп с глубиной 24бита) но числа превышают этот диапазон(но не намного на пару едениц).

[zibert]

Тема закрыта.. Проблему решил.. M.A.D.M.A.N. особое спасибо.. натолкнул на идею)).