Конференция "Начинающим" » Конвертация Ч/Б BMP изображения в массив и обратно
 
  • az © (13.03.18 09:46) [0]
    Есть проблема с конвертацией Ч/Б bmp изображения в массив и обратным получением изображения из массива.
    Код создания текстового массива не мой, нашел на одном из форумов, открываю картинку, сохраняю в текстовом файле:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    bmp:TBitmap;
       i,j:Integer;
       s:string;
       f:TextFile;
    begin
     AssignFile(f,'out.txt');
     Rewrite(f);
     bmp:=TBitmap.Create;
     bmp.LoadFromFile('a.bmp');
     for i:=0 to bmp.Height-1 do begin
       s:='';
       for j:=0 to bmp.Width-1 do begin
         s:=s+'$'+IntTohex(bmp.Canvas.Pixels[j,i],6)+';';
       end;
       Writeln(f,s);
     end;
     CloseFile(f);
     bmp.destroy;
    end;
    На выходе имею (кусок из файла $000000;$000000;$000000;$FFFFFF;$FFFFFF;$FFFFFF;)
    Подскажите пожалуйста как из текстового файла выгрузить все в Image на форме и сохранить в файл с другим именем. Большое спасибо.
  • Игорь Шевченко © (13.03.18 11:01) [1]

    > нашел на одном из форумов


    Потеряй обратно.


    > Подскажите пожалуйста как из текстового файла выгрузить
    > все в Image на форме


    Никак. Размерность битмапа потеряна при сохранении.

    Почему не использовать стандартные SaveToFile/LoadFromFile ?
  • az © (13.03.18 11:56) [2]
    Ссылочку не кинете?
  • az © (13.03.18 11:59) [3]
    Ссылочку не кинете?
  • Игорь Шевченко © (13.03.18 13:13) [4]

    > Ссылочку не кинете?


    "($BDS)\source\vcl\vcl.graphics.pas"
  • Redmond (13.03.18 18:18) [5]
    Битмап в 98% случаев является DIB-секцией. А последняя это УЖЕ некий массив в памяти.
    Объясните-ка лучше саму цель...
 
Конференция "Начинающим" » Конвертация Ч/Б BMP изображения в массив и обратно
Есть новые Нет новых   [94002   +31][b:0.001][p:0.001]