BMP -gt; String || String -gt; BMP

Question

Ol� amigos,Preciso converter uma imagem para String e depois converter a string para imagem novamente. Algu�m pode me ajudar?Grato,Rodrigo Cesar...

Ipc$ · Answer

Vc pode salvar o bmp numa TStream e depois passar p/ String. Para retornar, vc faz o inverso....

Rodc · Answer

� isto que eu estou tentando fazer, mas n�o estou conseguindo. Tem como postar um c�digo de exemplo?...

Ipc$ · Answer

Salvar:[code:1:bb6932fc49]var MS:TMemoryStream;begin  MS := TMemoryStream.Create;  try    Bitmap.SaveToStream(MS);    SetLength(sBmp, MS.Size);    Move(MS.Memory^, sBmp&#91;1&93;, MS.Size);  finally    MS.Free;  end;end;[/code:1:bb6932fc49]Voltar:[code:1:bb6932fc49]var MS:TMemoryStream;begin  MS := TMemoryStream.Create;  try    MS.SetSize(Length(sBmp));    Move(sBmp&91;1&93;, MS.Memory^, Length(sBmp));    Bitmap.LoadFromStream(MS);  finally    MS.Free;  end;end;[/code:1:bb6932fc49]sBmp � a string....

Rodc · Answer

Valeu pela ajuda IPC, mas n�o pude usar seu exemplo, pois esta string deve ser passada por par�metro por v�rias fun��es, n�o tem como eu ir dando SetSize em todas as Strings.
Resolvi passando o valor RGB de cada pixel para a string, ou seja, s� � poss�vel passar arquivo BMP. A string fica menor que enviar Stream de um arquivo de BMP, pois no arquivo tem o cabe�alho.
O c�digo que fiz est� em C++ (BCB), mas n�o poderia de deixar de postar aqui para caso algu�m precise poder analisar.
O �nico problema � que n�o se pode colocar #0 na string, se n�o ele pensa que � o fim do texto, tent�o eu troco todo 0 por 1 que seria um preto um pouco mais claro, mas n�o vai fazer diferen�a na imagem.
Outro problema � que o segundo bitmap tem que ser feito um LoadFromFile ou Assign de um outro bitmap v�lido, se n�o ele n�o funciona.

    AnsiString sImagem;
    if (OpenDialog->Execute())
    {
        // Carrega imagem a ser transferida
        Image1->Picture->Bitmap->LoadFromFile(OpenDialog->FileName);
        Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
        Graphics::TBitmap *pBitmap2 = new Graphics::TBitmap();
        Byte *ptr, *ptr2;

        pBitmap->Assign(Image1->Picture->Bitmap);

        OpenDialog->Execute();
        // Carrega qualquer imagem para preencher o TImage de destino
        pBitmap2->LoadFromFile(OpenDialog->FileName);
        // Ajusta o tamanho da segunda imagem conforme a primeira
        pBitmap2->Height = pBitmap->Height;
        pBitmap2->Width  = pBitmap->Width;

        for (int y = 0; y < pBitmap->Height; y++)
        {
          ptr = (Byte *)pBitmap->ScanLine[y];
          for (int x = 0; x < pBitmap->Width*3; x++)
          {
            if (ptr[x] == 0)
                sImagem += (char)1;  //para n�o corromper a string
            else
                sImagem += (char)ptr[x];
          }
        }

        int count=0;
        char *str;
        str = sImagem.c_str();

        // Trasfere os pixes da string para a nova imagem
        for (int y = 0; y < pBitmap2->Height; y++)
        {
          ptr = (Byte *)pBitmap2->ScanLine[y];

          for (int x = 0; x < pBitmap2->Width*3; x++, count++)
          {
            Byte valor = (Byte)str[count];
            ptr[x] = valor;
          }
        }
        Image2->Picture->Bitmap->Assign(pBitmap2);
    }

Abra�os,

Rodrigo Cesar

Ipc$ · Answer

A quest�o de passar somente o RGB, concordo que ir� ficar menor.
Quanto ao SetSize, ele � dado na TStream e n�o na string.
Quanto ao #0 em strings, n�o interfere desde que vc a utilize em mem�ria; para pass�-la como par�metro, vc pode utilizar um PChar pq um SetLength na string garante a mem�ria alocada e os bytes cont�nuos naquele espa�o dentro do escopo local ou global.

F�rum BMP -gt; String || String -gt; BMP #298969