|
Вопрос # 868/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Как преобразовать картинку JPEG из Image в HEX код и отобразить в memo и обратно? Заранее благодарю.
 |
Вопрос задал: Anton-L (статус: Посетитель)
Вопрос отправлен: 24 августа 2007, 00:20
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Anton-L!
Преобразовываем в хекс
var fs:TMemoryStream;
m:TStringStream;
b:byte;
begin
fs:=TMemoryStream.create;
try
Image1.Picture.SaveToStream(fs);
fs.position:=0;
m:=TStringStream.create(\'\');
try
for i:=0 to fs.size-1 do
begin
fs.read(b,1);
m.WriteString(Inttohex(b,1));
if i mod 16 = 0 then m.WriteString(#13#10);
end;
m.position:=0;
Memo1.lines.loadFromFile(m);
finally
m.free;
end;
finally
fs.free;
end;
end;
Где то так.
Обратный код попробуйте сами написать.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 24 августа 2007, 00:50
Оценка за ответ: 5
Комментарий к оценке: Замечательно=) Спасибо!!!
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
