Конвертация BMP в массив и обратно

@az1970 · Регистрация: 13.03.2018

Author24 — интернет-сервис помощи студентам

Добрый день.
Есть проблема с конвертацией Ч/Б bmp изображения в массив и обратным получением изображения из массива.
Код создания текстового массива не мой, нашел на одном из форумов, открываю картинку, сохраняю в текстовом файле:

Delphi

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 на форме и сохранить в файл с другим именем. Большое спасибо.

@Vyazan · 14.03.2018, 11:42

Парсите текстовый файл и попиксельно заполняете Timage на Вашей форме. Это если Вы понимаете, что делает каждая строчка в предоставленном Вами коде. Если не понимаете, то разбирайтесь. Суть в том, что нужно проделать те же шаги, но в обратном порядке.

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	14.03.2018, 11:42	2
	Парсите текстовый файл и попиксельно заполняете Timage на Вашей форме. Это если Вы понимаете, что делает каждая строчка в предоставленном Вами коде. Если не понимаете, то разбирайтесь. Суть в том, что нужно проделать те же шаги, но в обратном порядке. 0