Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TBitmap & Buffer, File --> Buffer --> TBitmap??? 
:(
    Опции темы
Dolphin
Дата 31.12.2002, 03:36 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Есть зашифрованная картинка на жёстком диске в оригинальном формате .bmp. Я её считываю при помощи BlockRead, заношу в буфер:

Type
 PBuffer = ^TBuffer;
 TBuffer = array [1..BufferSize] of Byte;

var
Buffer : PBuffer

begin
AssignFile(infile, 'filename');
System.Reset(infile, 1);
New(Buffer);
BlockRead(infile, Buffer^, BufferSize, Size);

<расшифровываем Buffer, теперь там картинка в чистом виде>

Как теперь без сохранения её на диске занести в TBitmap?
  Вверх
Fantasist
Дата 31.12.2002, 06:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй
***


Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41
Лучше бы используй TBitmap.LoadFromStream/SaveToStream и никаких проблем


--------------------
Волны гасят ветер...
PM MAIL   Вверх
Dolphin
Дата 1.1.2003, 01:20 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Гениально!!!! Только попробуй.... Если что выйдет, то, пожалуйста, напиши код,  не просто слова. Я сам проборал идти через это, но ничего не вышло.
  Вверх
Fantasist
Дата 1.1.2003, 03:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй
***


Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41
Цитата
Только попробуй.... Если что выйдет


У меня выходило и через потоки и через API. Только код писать лень.  
 Ты говоришь, у тебя картинка в чистом виде. BMP - имеет заголовок и массив битов. LoadFromStream читает и то и другое; в API тебе надо будет разделить самому.


--------------------
Волны гасят ветер...
PM MAIL   Вверх
Technoboss
Дата 3.1.2003, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.11.2002

Репутация: нет
Всего: нет
Привет!

procedure TForm1.Button1Click(Sender: TObject);
var
 BM: TBitmap;
 Temp: TmemoryStream;
begin
 Bm:= TBitmap.Create;
 Temp:= TMemoryStream.Create;
 try
   Temp.ReadBuffer(Buffer, SizeOf(Buffer));
   Temp.Position:= 0;
   BM.LoadFromStream(Temp);
   {You code}
 finally
   Temp.Free;
   BM.Free;
 end;
end;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0449 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.