5 respuestas en este tema

[escafandra]

Cuando partimos de una imagen codificada en una cadena Base64 se precisan varios pasos para poder visualizarla. Esto se complica cuando no sabemos el formato gráfico. Para solucionar el problema tenemos armamento pesado en GDIplus. Partiendo de éste truco en el que mostré como visualizar una imagen desde un fichero y en varios formatos, vamos a modificarlo para que lo haga desde un TStream:
 

delphi

uses Windows, ActiveX, SysUtils, Classes;
 
function GdiplusStartup(var GdiToken: DWORD; Startup, Output: PBYTE): DWORD; stdcall external 'gdiplus';
function GdipCreateBitmapFromStream(stream: IStream; var GBitmap: THANDLE): DWORD; stdcall external 'gdiplus';
function GdipCreateHBITMAPFromBitmap(GBitmap: THANDLE; var hBitmap: HBITMAP; BKColor: DWORD): DWORD; stdcall external 'gdiplus';
procedure GdiplusShutdown(GdiToken: DWORD); stdcall external 'gdiplus';
 
function CreateHBITMAPFromStream(MStream: TMemoryStream ): HBITMAP;
var
  FileName: array of WCHAR;
  gdiplusToken: DWORD;
  GdiPlusStartupInput: array[0..2] of int64;
  GBitmap: THANDLE;
  hMem: HGLOBAL;
  Memory: Pointer;
  Stream: IStream;
begin
  Result:= 0;
 
  // Inicializamos GDI+.
  GdiPlusStartupInput[0]:= 1; GdiPlusStartupInput[1]:= 0;
  if GdiplusStartup(gdiplusToken, @GdiPlusStartupInput, nil) = 0 then
  begin
    if CreateStreamOnHGlobal(0, TRUE, Stream) = S_OK then
    begin
      if Stream.SetSize(MStream.Size) = S_OK then
        if GetHGlobalFromStream(Stream, hMem) = S_OK then
        begin
          Memory:= GlobalLock(hMem);
          if Memory <> nil then
          begin
            CopyMemory(Memory, MStream.Memory, MStream.Size);
            if GdipCreateBitmapFromStream(Stream, GBitmap) = S_OK then
              GdipCreateHBITMAPFromBitmap(GBitmap, Result, 0);
          end;
          GlobalUnlock(hMem);
        end;
      //Stream.Release;
    end;
 
    // Cerramos GDI+
    GdiplusShutdown(gdiplusToken);
  end;
end;

El resto simplemente consiste en decodificar la cadena Base64 en un TMemoryStream que pasaremos a la función anterior.
 

delphi

function CryptStringToBinary(pszString: PChar; cchString: DWORD; dwFlags: DWORD;
  pbBinary: PByte; var pcbBinary: DWORD; pdwSkip: PDWORD;
  pdwFlags: PDWORD): BOOL; stdcall;
  external 'Crypt32.dll' name 'CryptStringToBinaryA';
 
 
function StrB64ToStream(var Str: String; MStream: TMemoryStream): boolean;
var
  Size: DWORD;
begin
  Result:= CryptStringToBinary(@Str[1], Length(Str),  1, 0, Size, nil, nil);
  if Result then
  begin
    MStream.SetSize(Size);
    Result:= CryptStringToBinary(@Str[1], Length(Str), 1, MStream.Memory, Size, nil, nil);
  end;
end;

Lo siguiente es un ejemplo de como usar el código expuesto:
 

delphi

var
  StreamBase64: String;            // Cadena donde tenemos la imagen Base64
  MStream: TMemoryStream;
begin
  //...
  MStream:= TMemoryStream.Create;
  StrB64ToStream(StreamBase64, MStream);
  Image1.Picture.Bitmap.Handle:= CreateHBITMAPFromStream(MStream);
  MStream.Free;
end;

Espero que el código sea útil.


Saludos.

Edito para arreglar etiquetas de código

[seoane]

Aprovecho para hacer "spam"

http://code.google.c...se/#svn/SeCrypt

[enecumene]

¿Eso aplica en los casos de los SDK de huellas digitales que la mayoría usan BASE64?.

Saludos..

[escafandra]

¿Eso aplica en los casos de los SDK de huellas digitales que la mayoría usan BASE64?.

Saludos..

Es aplicable a cualquier imagen codificada como Base64 soportada por GDIplus y que no esté, a su vez, encriptada.

Saludos.

[escafandra]

Ahora que dispongo un ratito tranquilo, voy a publicar el código equivalente en C/C++:
 

cpp

// Decodifica una cadena Encode64 a su binario original
bool StrB64ToStream(String &Str, TMemoryStream* MStream)
{
  typedef BOOL (WINAPI *pCryptStringToBinary)(LPTSTR pszString, DWORD pcchString, DWORD dwFlags, BYTE *pbBinary, DWORD *cbBinary, DWORD *pdwSkip, DWORD *pdwFlags);
 
  HMODULE hLib = LoadLibrary("Crypt32.dll");
  if(!hLib) return false;
 
  pCryptStringToBinary CryptStringToBinary = (pCryptStringToBinary)GetProcAddress(hLib, "CryptStringToBinaryA");
  DWORD Size;
  bool Result = CryptStringToBinary(&Str[1], Str.Length(), 1, 0, &Size, 0, 0);
  MStream->SetSize(Size);
  Result = CryptStringToBinary(&Str[1], Str.Length(), 1, (PBYTE)MStream->Memory, &Size, 0, 0);
  FreeLibrary(hLib);
  return Result;
}
 
HBITMAP CreateHBITMAPFromStream(TMemoryStream *MStream)
{
  typedef DWORD (__stdcall *PGdiplusStartup)(ULONG_PTR *hToken, void *input, void *Output);
  typedef void  (__stdcall *PGdiplusShutdown)(ULONG_PTR token);
  typedef DWORD (__stdcall *PGdipCreateBitmapFromStream)(IStream* stream, HANDLE* bitmap);
  typedef DWORD (__stdcall *PGdipCreateHBITMAPFromBitmap)(HANDLE bitmap, HBITMAP* hBitmap, DWORD BKColor);
  PGdiplusStartup GdiplusStartup = (PGdiplusStartup)GetProcAddress(LoadLibrary("gdiplus.dll"), "GdiplusStartup");
  PGdipCreateBitmapFromStream GdipCreateBitmapFromStream = (PGdipCreateBitmapFromStream)GetProcAddress(LoadLibrary("gdiplus.dll"), "GdipCreateBitmapFromStream");
  PGdipCreateHBITMAPFromBitmap GdipCreateHBITMAPFromBitmap = (PGdipCreateHBITMAPFromBitmap)GetProcAddress(LoadLibrary("gdiplus.dll"), "GdipCreateHBITMAPFromBitmap");
  PGdiplusShutdown GdiplusShutdown = (PGdiplusShutdown)GetProcAddress(LoadLibrary("gdiplus.dll"), "GdiplusShutdown");
  if(!GdiplusStartup || !GdiplusShutdown || !GdipCreateBitmapFromStream || !GdipCreateHBITMAPFromBitmap) return 0;
 
  // Inicializamos GDI+.
  HBITMAP hBitmap = 0;
  ULONG_PTR  gdiplusToken;
  char GdiPlusStartupInput[16] = {1,0};
  if(!GdiplusStartup(&gdiplusToken, GdiPlusStartupInput, NULL)){
    HANDLE GBitmap = 0;
    IStream* Stream;
    if(CreateStreamOnHGlobal(0, TRUE, &Stream) == S_OK){
      __int64 Size = MStream->Size;
      Stream->SetSize(*(ULARGE_INTEGER*)&Size);
      HGLOBAL hMem;
      if(GetHGlobalFromStream(Stream, &hMem) == S_OK) {
        void* Memory = GlobalLock(hMem);
        if(Memory){
          CopyMemory(Memory, MStream->Memory, Size);
          if(GdipCreateBitmapFromStream(Stream, &GBitmap) == S_OK)
            GdipCreateHBITMAPFromBitmap(GBitmap, &hBitmap, 0);
        }
        GlobalUnlock(hMem);
        Stream->Release();
      }
    }
    // Cerramos GDI+
    GdiplusShutdown(gdiplusToken);
  }
  return hBitmap;
}

Con un ejemplo de uso:

cpp

  TMemoryStream* MStream = new TMemoryStream;
  StrB64ToStream(ImageStringBase64, MStream);
  Image1->Picture->Bitmap->Handle = CreateHBITMAPFromStream(MStream);
  delete MStream;

Por el momento GDIplus soporta los formatos: BMP, GIF, JPEG, PNG, TIFF, WMF, EMF e ICON.

Espero que sea útil.


Saludos.
Edito para arreglar etiquetas de código

[poliburro]

Caramba amigo... gracias por el aporte........