array [0..width*height*3] of byte;

 LoadGIFJPGMem proc G: DWORD, Sz: DWORD, BD: DWORD, Sk: DWORD;
   IPicture STRUCT;
     QueryInterface DWORD ?;
     AddRef         DWORD ?;
     Release        DWORD ?;
     get_Handle     DWORD ?;
   IPicture ENDS;
   IStream STRUCT;
     QueryInterface DWORD ?;
     AddRef         DWORD ?;
     Release        DWORD ?;
     Read           DWORD ?;
     Write          DWORD ?;
     Seek           DWORD ?;
     SetSize        DWORD ?;
   IStream ENDS;
 .data
   sGUID_JPG TEXTEQU <{07BF80980h, 0BF32h, 0101Ah, {08Bh, 0BBh, 000h, 0AAh, 000h, 030h, 00Ch, 0ABh}}>;
   GUID_JPG GUID sGUID_JPG;
 .data?
   s DWORD ?;
   p DWORD ?;
   bi BITMAPINFO <>;
 .code
   PUSH EBX;
   invoke CreateStreamOnHGlobal, G, TRUE, ADDR s;

   MOV EAX, s;
   MOV EBX, DWORD PTR [EAX];

   CMP Sk, 0;
   JE @seek;
     PUSH 0;
     PUSH 0;
     PUSH 0;
     PUSH Sk;
     PUSH EAX;

     CALL [EBX].IStream.Seek;
   @seek:

   invoke OleLoadPicture, s, Sz, TRUE, ADDR GUID_JPG, ADDR p;

   MOV EAX, p;
   MOV EBX, DWORD PTR [EAX];
   PUSH OFFSET s;
   PUSH EAX;
   CALL [EBX].IPicture.get_Handle;

   PUSH p;
   CALL [EBX].IPicture.AddRef;      

   invoke CreateCompatibleDC, 0;
   PUSH EAX;

   PUSH SRCCOPY;
   PUSH 0;
   PUSH 0;
   PUSH EAX;

   PUSH s;
   PUSH s;
   PUSH EAX;
   MOV s, EAX;

   CALL SelectObject;
   CALL GetBitmapSize;
   MOVZX EDX, AX;
   SHR EAX, 16;
   PUSH EAX;
   PUSH EDX;
   PUSH 0;
   PUSH 0;

   CMP BD, 0;
   JNE @mdib;
     invoke CreateCompatibleBitmap, s, EDX, EAX;
     MOV Sz, EAX;
     PUSH EAX;

     invoke CreateCompatibleDC, 0;
     MOV s, EAX;
     PUSH EAX;
     CALL SelectObject;
     PUSH s;
     CALL BitBlt;
     invoke DeleteDC, s;
   JMP @mddb;
   @mdib:
     PUSH EAX;
     PUSH EDX;
     MOV bi.bmiHeader.biSize, SIZEOF BITMAPINFOHEADER;
     POP bi.bmiHeader.biWidth;
     POP bi.bmiHeader.biHeight;
     MOV bi.bmiHeader.biPlanes, 1;
     MOV bi.bmiHeader.biBitCount, 32;
     MOV bi.bmiHeader.biCompression, BI_RGB;

     invoke CreateCompatibleDC, 0;
     MOV EDX, BD;
     MOV DWORD PTR [EDX], EAX;
     PUSH EAX;
     PUSH EAX;
     PUSH EAX;

     LEA EDX, [EBP+8]; <---- Offset for "G" parameter
     invoke CreateDIBSection, s, ADDR bi, DIB_RGB_COLORS, EDX, 0, 0;
     MOV Sz, EAX;

     MOV DWORD PTR [ESP+4], EAX;
     CALL SelectObject;

     CALL BitBlt;
   @mddb:
   CALL DeleteDC;

   PUSH p;
   CALL [EBX].IPicture.Release;

   MOV EAX, Sz;
   POP EBX;
   RET;
 LoadGIFJPGMem endp;

 DIBgetRGBarr proc BTFS: HBITMAP;
 .data?
   dgr BITMAP <>;
 .code
   invoke GetObject, BTFS, SIZEOF BITMAP, ADDR dgr;
   MOV EAX, dgr.bmBits;
   RET;
 DIBgetRGBarr endp;