содержимое BitMap в массив и обратно делфи

Easy · #1 27.05.2013, 20:55

Всем привет, извините но знаю что подобных тем в инете много но я так и не смог найти решение. У меня задача. Нужно содержимое Bitmap отправить по почте, но не создавать никаких файлов на компе. Т.е. нужно картинку из Bitmap как то преобразовать в стринг, наверное, и отправить. Чтобы потом на другом компе эту картинку просмотреть в компоненте TImage, к примеру. воот. я много попробовал сейчас несколько примеров кода выложу и расскажу что не так.
1.

Код:

for i := 0 to Image1.Height - 1 do
  begin
      for j := 0 to Image1.Width - 1 do
        begin
          Color := Image1.Canvas.Pixels[j, i];
            // Получаем составляющие цвета
          R := GetRValue(Color);
          G := GetGValue(Color);
          B := GetBValue(Color);
            // Теперь делаем с ними, что надо. Например, сохраняем в массив.
        end;
  end;

нашел код на каком то сайте. но вот только не могу понять как он работает, потому что не должен он ничего сохранить кроме последнего пикселя. я конечно попробовал закрасить TImage. но либо вся форма становилась черной, либо красной.

Код:

for i := 0 to Image2.Height - 1 do
 begin
      for j := 0 to Image2.Width - 1 do
        begin
           // Получаем составляющие цвета

         Image2.Canvas.Pixels[j, i]:= r;

         Image2.Canvas.Pixels[j, i]:= g;

         Image2.Canvas.Pixels[j, i]:= b;
            // Теперь делаем с ними, что надо. Например, сохраняем в массив.
        end;

воот. это не получилось. я вот подумал может значения цветов R G и B сохранять в массив. но вот только не смог сообразить как мне массив сделать и как потом из массива все это в картинку превратить.
2.

Код:

var
  a:    array of TRGBTriple;
  bmp:  TBitMap;
  size: dword;
begin
  bmp:=TBitMap.Create;
  bmp.LoadFromFile( 'c:\1.bmp' );
  size:=bmp.Width*bmp.Height;
  Setlength(a,size);
  GetBitmapBits(bmp.Handle,size*3,a);
// теперь вся картинка в одномерном массиве a
end;

ну тут трудно сказать. я вообще не знаю как после этого вывести все что там в массиве в TImage. Если этот код все таки работает как нужно то может подскажите как мне после отправить значения массива по почте и потом отбразить их. я тут не смог разобраться потому что тип массива интересный.
ну вот. это конечно не все что я пробовал. просто остальные вкладки закрыл уже. помогите пожалуйста уже третий день мучаюсь. решил вот у вас спросить.

lmikle · #2 27.05.2013, 21:57

TMemoryStream и TStringStream могут помочь.
Сохраняешь картинку в TMemoryStream, потом запаковываешь через Base64, например, и сохраняешь в TStringStream. Ну и уже строку из TStringStream пересылаешь.

Easy · #3 28.05.2013, 11:33

хорошо. спасибо, сейчас попробую. допустим у меня получится. а как потом обратно из той строки что получится сделать картинку?

Easy · #4 28.05.2013, 15:39

ну вот как я и думал. кодировать получается, а декодировать нет, к сожалению. помогите пожалуйста...
кодирую

Код:

function TForm1.EncodeFile(): AnsiString;
begin
  stream := TMemoryStream.Create;
  try
    bmp.SaveToStream(stream);
    result := EncodeBase64(stream.Memory, stream.Size);
    memo1.Text:= result;//строка 94
  finally
    stream.Free;
    Bmp.Free;
  end;
end;

потом пытаюсь декодировать но что то у меня с типами данных не сходится

Код:

function TForm1.DecodeFile(): TBytes;
begin
  stream := TMemoryStream.Create;
  bmp:= TBitMap.Create;
  try
    Memo1.Lines.SaveToStream(stream);

    bmp.LoadFromStream(DecodeBase64(stream.Memory, stream.Size);// строка 79
    image2.Assign(bmp);
  finally
    stream.Free;
    Bmp.Free;
  end;

end;

ошибки

Код:

[DCC Error] Unit1.pas(79): E2010 Incompatible types: 'AnsiString' and 'Pointer'

[DCC Error] Unit1.pas(79): E2010 Incompatible types: 'TStream' and 'TBytes'

[DCC Warning] Unit1.pas(94): W1057 Implicit string cast from 'AnsiString' to 'string'

Easy · #5 28.05.2013, 16:11

переделал функцию декодирования вот так

Код:

function TForm1.DecodeFile(): AnsiString;
var
ss: TStringStream;
begin
  stream := TMemoryStream.Create;
  ss:= TStringStream.Create('');
  bmp:= TBitMap.Create;
  try
  result:= memo1.Text;
  DecodeBase64(result);
  ss.WriteString(result);
  ss.Seek(0,0);
  stream.CopyFrom(ss, ss.Size);
  bmp.LoadFromStream(stream);
  image2.picture.assign(bmp)
  finally
    stream.Free;
    Bmp.Free;
    ss.Free;
  end;

end;

все запускается. но в image2 ничего не отображается

poli-smen · #6 28.05.2013, 16:52

Цитата:

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

переделал функцию декодирования вот так

Код:

function TForm1.DecodeFile(): AnsiString;
var
ss: TStringStream;
begin
  stream := TMemoryStream.Create;
  ss:= TStringStream.Create('');
  bmp:= TBitMap.Create;
  try
  result:= memo1.Text;
  DecodeBase64(result);
  ss.WriteString(result);
  ss.Seek(0,0);
  stream.CopyFrom(ss, ss.Size);
  bmp.LoadFromStream(stream);
  image2.picture.assign(bmp)
  finally
    stream.Free;
    Bmp.Free;
    ss.Free;
  end;

end;

все запускается. но в image2 ничего не отображается

Вообще-то DecodeBase64 это не процедура, а функция которая возвращает результат, который ты не используешь и поэтому ничего не отображается в image2.
В твоём случае наверно вместо DecodeBase64 лучше использовать DecodeString или DecodeStream.

Easy · #7 29.05.2013, 22:04

ничего не получается...

NumLock · #8 30.05.2013, 09:04

а это работает?
http://zalil.ru/34542401
открывать только .bmp!!!

Easy · #9 30.05.2013, 13:27

нет, не работает. программа колом встает. и нагрузку на систему 99% выдает.
вот у меня вот этот код

Код:

function TForm1.EncodeFile(): AnsiString;
begin
  stream := TMemoryStream.Create;
  try
    bmp.SaveToStream(stream);
    result := EncodeBase64(stream.Memory, stream.Size);
    memo1.Text:= result;
  Except
    on E : Exception do
   ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end;

    stream.Free;
    Bmp.Free;

end;

вроде кодирует. не могу сказать точно. но в memo загружается текст.
вот такой

Цитата:

Qk1mMjwAAAAAADYAAAAoAAAAVgUAANICAAABACAAAAAAADAyPA AAAAAAAAAAAAAAAAAAAAAASGQZ
ACdiIQAuZCAANGYhADhnIAA5cCAANG8gACxuIAAobB4AJGwdAC RuHwAmbB8AKG8fAC1vHwAsbR8A
LW4hAClvHgArbR0AJmwiACptHgAwcSQAMG8kADBvJAAxciUANH EkADNwJAA+dCUAQHUnAEN1JgBE
dSYARXcmAEB0KAA+dScAPnQlADpyJgA4dCYAOnUnAD5zLAA8dC wAPXQqADtzKgA7ciwAOnQsADp0
LQA5dSoAOXMsADlyKwA4cioAOXErADdyKgA4cioAOHMrAD1zLg A8czAAPnMwAD5yMAA8cjAAPXEv
ADxyLgA8cTAAPXMwAD5yMAA9cjAAPnEuAD9yMQA/czEAPnMwAD5yMwA+cTEAQHMxAD1xMQA+cjAA
PnMxAD9yMQBAczEAQ3QwAEN1MgBFdy8AR3UwAEZ0MgBFdi8AR3 UwAEJzKwBCdS0AP3QrAD9rKwA9
aioAPWkqADNnIQAzZiIAMmUiADhjIQDjcisA4m4qANZbIgClQR kApUEZAKVBGQClQRkApUEZAKVB

но декодировать это не получается. а еще и нужно из этого картинку сделать. пытаюсь вот так

Код:

function TForm1.DecodeFile(): AnsiString;
var
ss: TStringStream;
begin
  stream := TMemoryStream.Create;
  ss:= TStringStream.Create('');
  bmp:= TBitMap.Create;
  try
  memo1.Lines.SaveToStream(ss);
  //ss.Seek(0,0);
  //stream.CopyFrom(ss, ss.Size);
  DecodeStream(ss, stream);
  bmp.LoadFromStream(stream);
  image2.picture.assign(bmp)
 Except
    on E : Exception do
    ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end;

    stream.Free;
    Bmp.Free;
    ss.Free;




end;

по нажатию на кнопку вызываю функцию. но ничего не происходит...

NumLock · #10 30.05.2013, 14:29

Цитата:

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

программа колом встает. и нагрузку на систему 99% выдает.

это она кодирует долго большие изображения. i E6800 (2 cores) 640*480*8bpp bmp 300КБ кодирует 55 сек. и 50% загрузки. на i7 сейчас нет возможности проверить. попробуй поменьше картинки для теста.

Easy · #11 30.05.2013, 14:51

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

Easy · #12 30.05.2013, 14:57

например скрин с монитора. весит 3.5 где то метров.

NumLock · #13 30.05.2013, 15:13

открыл 1280*1024*24bpp 3,75МБ, курил 5 минут, результата не дождался

использовал http://tangram-plugin-framework.goog...64EncdDecd.pas

Код:

procedure EncodeStream(Input, Output: TStream);
procedure DecodeStream(Input, Output: TStream);

Easy · #14 30.05.2013, 17:07

а ты вот попробуй.

Код:

function TForm1.EncodeFile(): AnsiString;
begin
  stream := TMemoryStream.Create;
  try
    bmp.SaveToStream(stream);
    result := EncodeBase64(stream.Memory, stream.Size);
    memo1.Text:= result;
  Except
    on E : Exception do
   ShowMessage(E.ClassName+' ошибка с сообщением : '+E.Message);
  end;
 
    stream.Free;
    Bmp.Free;
 
end;

в одну кнопку выполнение этой функции а в другую вот этот код

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bmp:=TBitmap.Create;
  bmp.Height:=Screen.Height;
  bmp.Width:=Screen.Width;
  DC:=GetDC(0);  //дескриптор экрана
  BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
  DC, 0, 0, SRCCOPY);
  Image1.Picture.Assign(bmp);
  ReleaseDC(0, DC);


end;

ну и глобальные переменные

Код:

var
  Form1: TForm1;
  bmp: TBitmap;
DC: HDC;
   stream: TMemoryStream;

implementation

и кинь на форму TImage и Memo не забудь

PhoeniX · #15 30.05.2013, 17:37

А кодировать во что-нибудь со сжатием религия не позволяет?

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
Easy (28.05.2013)

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Easy (28.05.2013)

Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Easy (30.05.2013)

Этот пользователь сказал Спасибо PhoeniX за это полезное сообщение:
Easy (30.05.2013)