Ver Mensaje Individual
  #2  
Antiguo 15-07-2017
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Reputación: 24
JXJ Va por buen camino
Question

avanze algo en los tipos
y ahora me da error de que
[bcc32 Error] FrmMainU.cpp(74): E2108 Improper use of typedef 'DWORD'

BitBlt(Result->Canvas->Handle, 0,0, Result->Width, Result->Height, DC, 0,0 SRCCOPY);

no se por que no me acepta SRCCOPY
Código PHP:
    TBitmap __fastcall TFrmMainF::GetBitmapImage(String TextoToImgQRCode, int Margin, int PixelSize, int Level )
    {
      
HBITMAP Bmp;
      
TDIBSection DIB;
//      THandle ScreenDC;
//     THandle DC;

        
String TextoToQR = TextoToImgQRCode;
            
char *TextoToQRImg = AnsiString(TextoToQR).c_str()  ;


       
Bmp = GetHBitmapA(TextoToQRImg, Margin,PixelSize, Level)  ;
       
GetObjectA(Bmp, sizeof(DIB), &DIB);

       
Graphics::TBitmap *Result = new Graphics::TBitmap;
       
Result->Width = DIB.dsBmih.biWidth;
       
Result->Height = DIB.dsBmih.biHeight;
       
Result->PixelFormat = pf32bit;

     
HDC  ScreenDC = GetDC(0);
     
HDC DC = CreateCompatibleDC(ScreenDC);
     
SelectObject(DC, Bmp);
     
ReleaseDC(0, ScreenDC);
//     const BitBltRopMode_WinNT = $40000000 or SRCCOPY;

     
BitBlt(Result->Canvas->Handle, 0,0, Result->Width, Result->Height, DC, 0,0  SRCCOPY);
     
DeleteDC(DC);
     
DeleteObject(Bmp);
    } 
Responder Con Cita