-
Есть проблема с конвертацией Ч/Б 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 на форме и сохранить в файл с другим именем. Большое спасибо.
-
> нашел на одном из форумов
Потеряй обратно.
> Подскажите пожалуйста как из текстового файла выгрузить > все в Image на форме
Никак. Размерность битмапа потеряна при сохранении.
Почему не использовать стандартные SaveToFile/LoadFromFile ?
-
Ссылочку не кинете?
-
Ссылочку не кинете?
-
> Ссылочку не кинете?
"($BDS)\source\vcl\vcl.graphics.pas"
-
Битмап в 98% случаев является DIB-секцией. А последняя это УЖЕ некий массив в памяти. Объясните-ка лучше саму цель...
|