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

[min@y™]

Сообщение от az121970

Далее по нажатию кнопки сохраненное изображение попиксельно внести в *.txt файл. По нажатию другой кнопки из полученного *.txt построить опять изображение с выводом на image и сохранением с другим именем файла.

[digitalis]

Сообщение от az121970

Застрял только на последнем этапе перекодировки содержимого *.txt обратно в BMP.

Ну кто ж тут сможет помочь, не зная, как оно записуется в .txt - как единички-нолики или как "Здесь нарисован зайчик". В первом случае, зная структуру формата ВМР, распихать единички-нолики в секцию пиксельных данных - не вопрос.
А вообще я согласен с min@y™ - чесать левой ногой правое ухо - занятие для мазо-извращенцев.
Давняя служба в ментовке подсказывает - речь идет о тайнописи сиречь криптографии !

[Serge_Bliznykov]

я, конечно, не так эмоционален и горяч, как товарищ min@y™
Но меня этот вопрос тоже мучает - а зачем это нужно? Для чего в этой цепочке нужно преобразование в текстовый вид? Чтобы больше места занимало? Чтобы сложнее было обрабатывать? Чтобы это всё работало криво и медленно?
какая причина?

[Serge_Bliznykov]

Сообщение от digitalis

Ну кто ж тут сможет помочь, не зная, как оно записуется в .txt

Вы не правы!
Автор выложил исходный код. Неужели трудно кинуть на форму кнопку, вставить код из пост#1, указать любой BMP файл и получить готовый TXT файл?
Вам кинуть пример такого файла?

[p51x]

По сути непонятно на чем вы застряли. Тут и программирования то не надо знать особо - чистая логика: чтобы восстановить надо - создать новый битмап, установить исходные значения для служебных полей типа ширина, высота, формат, .. и загрузить пиксели методом из стрима (в который вы загрузите из хекса свои значения - для преобразования есть как стандартные функции, так и свою легко написать).

[digitalis]

Да, лоханулся я.
Не, этим я заниматься не буду. Лень. Приходилось как-то конвертить BMP в HEX для микроконтроллера. В прошлом тысячелетии. Получил массу удовольствия.

[az121970]

Парни, что будет делаться с текстовым файлом я не имею понятия. Я должен картинку попиксельно разложить в ТХТ, передать, а потом из отредактированного кем то ТХТ файла нарисовать картинку. Какая неведомая х___ будет делаться с этим файлом я не знаю.

[p51x]

так проблема в чем? я же уже расписал, что делать...

[min@y™]

Сообщение от az121970

Парни, что будет делаться с текстовым файлом я не имею понятия. Я должен картинку попиксельно разложить в ТХТ, передать, а потом из отредактированного кем то ТХТ файла нарисовать картинку. Какая неведомая х___ будет делаться с этим файлом я не знаю.

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

Что за дебил придумал тебе такую задачу? Как с ним связаться? Я хочу поговорить с ним лично!
З.Ы. Сага про ХУZ - классика. За версту чую!

[az121970]

Подскажете как этот код переделать для обратной конвертации их TXT в BMP, сижу с этим уже давно...

var
bmp:TBitmap;
    i,j:Integer;
    s:string;
    f:TextFile;
     begin
      AssignFile(f,'a.bmp');
  Rewrite(f);
  bmp:=TBitmap.Create;
  bmp.LoadFromFile('out.txt');
  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;