FiveTech Support Forums

FUNCTION Prueba()
   LOCAL oDlg
   LOCAL nWidth,nHeight
   LOCAL hBmp
   LOCAL cImg  := CurDrive()+":\"+CurDir()+"\PAISAJE.bmp"  // imagen BMP de 24 bits
   *
   cImg := MEMOREAD( cImg )
   nWidth  = ASC(SubStr(cimg,19,1))+(ASC(SubStr(cimg,20,1))*256)+(ASC(SubStr(cimg,21,1))*65536)
   nHeight = ASC(SubStr(cimg,23,1))+(ASC(SubStr(cimg,24,1))*256)+(ASC(SubStr(cimg,25,1))*65536)
   cImg := SubStr(cImg,55)  // DATOS DE LA IMAGEN
   *
   hBmp := BuildImage( nWidth, nHeight, cImg )
   *
   DEFINE DIALOG oDlg  SIZE 350,350
      oDlg:bPainted := { |hDc| PaintPrb(hDc,hBmp) }
   ACTIVATE DIALOG oDlg CENTER
 
   DeleteObject( hBmp )

RETURN NIL
*
FUNCTION PaintPrb(hDc,hBit)
    PalBmpDraw( hDc,10,10,hBit)
RETURN NIL

HB_FUNC( BUILDIMAGE )   // BuildImage( nWidth, nHeight, cImage )
  {
   HDC  hDc1 = CreateCompatibleDC( NULL ) ;

   int nWidth  = hb_parni( 1 ) ;
   int nHeight = hb_parni( 2 ) ;

   LPSTR cImage = hb_parc( 3 ) ;

   BITMAPINFO bmi     ;
   HBITMAP    hBitmap ;
   VOID      *pvBits  ;

   int i,j,k,v ;

   int nQWidth = ((( nWidth * 24 + 31 ) & ~31 ) >> 3 ) ;

   bmi.bmiHeader.biSize = sizeof( BITMAPINFOHEADER ) ;
   bmi.bmiHeader.biWidth       = nWidth          ;
   bmi.bmiHeader.biHeight      = nHeight         ;
   bmi.bmiHeader.biPlanes      = 1               ;
   bmi.bmiHeader.biBitCount    = 24               ;
   bmi.bmiHeader.biCompression = BI_RGB            ;
   bmi.bmiHeader.biSizeImage   = nQWidth * nHeight  ;

   hBitmap = CreateDIBSection( hDc1, &bmi, DIB_RGB_COLORS, &pvBits, NULL, 0 ) ;

   v = 0 ; 
   for ( i = 0; i < nHeight; ++i )
       {
       k = i * nQWidth ;
       for ( j = 0; j < (nWidth*3); j += 3 )
           {
           ( (BYTE *) pvBits )[k+j+0] = ( BYTE ) cImage[ v+0 ] ;
           ( (BYTE *) pvBits )[k+j+1] = ( BYTE ) cImage[ v+1 ] ;
           ( (BYTE *) pvBits )[k+j+2] = ( BYTE ) cImage[ v+2 ] ;
           v += 3 ;
           }
       }

   DeleteDC( hDc1 ) ;

   hb_retnl( ( LONG ) hBitmap ) ;
   }

HB_FUNC( BUILDIMAGE )   // BuildImage( nWidth, nHeight, cImage )
  {
   HDC  hDc1 = CreateCompatibleDC( NULL ) ;

   int nWidth  = hb_parni( 1 ) ;
   int nHeight = hb_parni( 2 ) ;

   LPSTR cImage = hb_parc( 3 ) ;

   BITMAPINFO bmi     ;
   HBITMAP    hBitmap ;
   VOID      *pvBits  ;

   int i,j,k,v ;

   int nQWidth = ((( nWidth * 24 + 31 ) & ~31 ) >> 3 ) ;

   bmi.bmiHeader.biSize = sizeof( BITMAPINFOHEADER ) ;
   bmi.bmiHeader.biWidth       = nWidth          ;
   bmi.bmiHeader.biHeight      = nHeight         ;
   bmi.bmiHeader.biPlanes      = 1           ;
   bmi.bmiHeader.biBitCount    = 24          ;
   bmi.bmiHeader.biCompression = BI_RGB          ;
   bmi.bmiHeader.biSizeImage   = nQWidth * nHeight   ;

   hBitmap = CreateDIBSection( hDc1, &bmi, DIB_RGB_COLORS, &pvBits, NULL, 0 ) ;

   v = 0 ; 
   for ( i = 0; i < nHeight; ++i )
       {
       k = i * nQWidth ;
       for ( j = 0; j < (nWidth*3); j += 3 )
           {
           ( (BYTE *) pvBits )[k+j+0] = ( BYTE ) cImage[ v+0 ] ;
           ( (BYTE *) pvBits )[k+j+1] = ( BYTE ) cImage[ v+1 ] ;
           ( (BYTE *) pvBits )[k+j+2] = ( BYTE ) cImage[ v+2 ] ;
           v += 3 ;
           }
          while ( v%4 > 0 )
                  {
                   ++v ;
                  }
       }

   DeleteDC( hDc1 ) ;

   hb_retnl( ( LONG ) hBitmap ) ;
   }

//Recordset para la foto grande
TRY
    oRsFoto := TOleAuto():New("adodb.recordset") 
CATCH oError
    MsgStop( "No se pudo crear el recordset para la Foto !", CAR_VERSION)
    RETURN .f.
END

//Configuramos el recordset 
oRsFoto:CursorLocation := adUseClient
oRsFoto:LockType := adLockOptimistic
oRsFoto:CursorType := adOpenKeyset//adOpenDynamic
//lo siguiente recupera una tabla vacia
oRsFoto:Source := "SELECT cod,cod_veh,foto_p,foto,tipo,fecha,nota FROM fotos_veh where cod = 0 " 
oRsFoto:ActiveConnection(oCon)

TRY
    oRsFoto:Open()
CATCH oError
    MsgStop( "No se pudo abrir la Tabla de la Foto!", car_version)
    ShowError(oError,oCon)
    RETURN .f.
END

//----Objeto stream para la foto grande
TRY
    ::oStream := TOleAuto():New("adodb.Stream") 
CATCH oError
    MsgStop( "No se pudo crear el Stream para leer la Foto !", CAR_VERSION)
END
// Especifica el tipo de datos ( binario )   
::oStream:Type := adTypeBinary 

TRY
    ::oStream:Open()
CATCH oError
    MsgStop( "No se pudo establecer la conexion stream!", car_version)
    ShowError(oError,oCon)
    return .f.
END
::oStream:LoadFromFile(cfile)// cfile puede ser obtenida con cgetfile()   

oRsfoto:Addnew()
oRsfoto:fields('cod_veh'):Value := ::oRsV:Fields('cod_veh'):Value
try
    oRsFoto:Fields('foto'):Value = ::oStream:Read()
catch oError
    MsgStop("Problemas al subir la fotografía")
    ShowError(oError,oCon)
end
oRsFoto:Fields('fecha'):Value = fecha
oRsFoto:Fields('nota'):Value = nota
oRsFoto:Update()
::oStream:Close()

//Recordset para la foto grande
TRY
    oRsFoto := TOleAuto():New("adodb.recordset") 
CATCH oError
    MsgStop( "No se pudo crear el recordset para la Foto !", CAR_VERSION)
    RETURN .f.
END

//Configuramos el recordset que me dovolvera una foto
oRsFoto:CursorLocation := adUseClient
oRsFoto:LockType := adLockOptimistic
oRsFoto:CursorType := adOpenKeyset//adOpenDynamic
oRsFoto:Source := "SELECT cod,foto,tipo FROM fotos_veh where cod ="+ nCod 
oRsFoto:ActiveConnection(oCon)

TRY
    oRsFoto:Open()
CATCH oError
    MsgStop( "No se pudo abrir la Tabla de la Foto!", car_version)
    ShowError(oError,oCon)
    RETURN .f.
END

TRY
    ::oStream := TOleAuto():New("adodb.Stream") 
CATCH oError
    MsgStop( "No se pudo crear el Stream para leer la Foto !", CAR_VERSION)
END

// Especifica el tipo de datos ( binario )   
::oStream:Type := adTypeBinary 

TRY
    ::oStream:Open()
CATCH oError
    MsgStop( "No se pudo establecer la conexion stream!", car_version)
    ShowError(oError,oCon)
    return .f.
END

if !lisDir("imgtmp")
    lMkDir("imgtmp")
endif
if !lisDir("imgtmp\" + cFold )
     lMkDir("imgtmp\" + cFold )
endif

if !oRsFoto:EOF .and. !oRsFoto:BOF
    //Graba los datos en el objeto stream   
    IF oRsFoto:Fields('foto'):Value !=nil
        ::Write(oRsFoto:Fields('foto'):Value) 
        cfoto:="imgtmp\" + cFold+"fg"+alltrim(str(oRsFoto:Fields('cod'):Value)) + "." + alltrim(oRsFoto:Fields('tipo'):Value)
        if file(cfoto)
            ferase(cfoto)
        endif
        //Se graba un  archivo temporal  en disco
        ::SaveToFile(cfoto, adSaveCreateOverWrite)   
        if fsize(cfoto)>0  
            oImg:LoadBmp(cfoto)
        else
            oImg:LoadImage( "shade" )
        endif
        oimg:Refresh()
    endif
endif

::Close()
oRsfoto:Close()

LOCAL cImage
cImage := MemoRead( "C:\....\Imagen.Bmp")
BuilImage( cImage )

HB_FUNC( BUILDIMAGE )   // BuildImage( cImage )
  {
   HDC  hDc1 = CreateCompatibleDC( NULL ) ;

   LPSTR cImage = hb_parc( 1 ) ;

   HBITMAP      hBitmap ;
   BITMAPINFO   bmi     ;
   BITMAPFILEHEADER bmh ;

   VOID       * pvBits ;
   BYTE       * pvDats ;
   BITMAPINFO * lpbi   ;

   pvDats  = &cImage[0] ;
   bmh     = * ( BITMAPFILEHEADER * ) pvDats ;
   pvDats += 14 ;
   lpbi    = ( BITMAPINFO * ) pvDats ;
   pvDats += ( bmh.bfOffBits-14 ) ;
   bmi     = * lpbi ;

   hBitmap = CreateDIBSection( hDc1, &bmi, DIB_RGB_COLORS, &pvBits, NULL, 0 ) ;

   SetDIBits( hDc1, hBitmap, 0L, bmi.bmiHeader.biHeight, pvDats, ( LPBITMAPINFO ) lpbi, ( DWORD ) DIB_RGB_COLORS ) ;

   DeleteDC( hDc1 ) ;

   hb_retnl( ( LONG ) hBitmap ) ;
   }