截图并获取二进制数据问题

ltmf

如题，soImage库轻松办到，但编个小程序就要带个2M的库心有不甘。于是参照网上和库源码研究多日不成功，现特向各位老师请教。

1. import win.ui;
   
2. /*DSG{{*/
   
3. var winform = ..win.form(text="aardio form";right=471;bottom=341)
   
4. winform.add(
   
5. button={cls="button";text="button";left=160;top=254;right=261;bottom=295;z=1};
   
6. picturebox={cls="picturebox";left=59;top=34;right=225;bottom=94;autosize=1;z=2}
   
7. )
   
8. /*}}*/
   
9. 
   
10. GetDIBits = ::Gdi32.api("GetDIBits","int(ptr aHDC,ptr hBitmap,int nStartScan,int nNumScans,ptr lpBits,struct& lpBI,int wUsage)")
    
11. class BITMAP {
    
12.         int bmType;
    
13.         int bmWidth;
    
14.         int bmHeight;
    
15.         int bmWidthBytes;
    
16.         WORD bmPlanes;
    
17.         WORD bmBitsPixel;
    
18.         pointer bmBits;
    
19. };
    
20. class BITMAPINFOHEADER{
    
21.         int biSize;
    
22.         int biWidth;
    
23.         int biHeight;       
    
24.         WORD biPlanes;
    
25.         WORD biBitCount;
    
26.         int biCompression;
    
27.         int biSizeImage;
    
28.         int biXPelsPerMeter;
    
29.         int biYPelsPerMeter;
    
30.         int biClrUsed;
    
31.         int biClrImportant;
    
32. };       
    
33. var BITMAPINFOHEADER = BITMAPINFOHEADER;
    
34. class BITMAPINFO{                 
    
35.         struct BITMAPINFOHEADER = BITMAPINFOHEADER();
    
36.         int bmiColors;
    
37. };
    
38. class BITMAPFILEHEADER{                 
    
39.         WORD bfType;
    
40.         int bfSize;
    
41.         WORD bfReserved1;
    
42.         WORD bfReserved2;
    
43.         int bfOffBits;
    
44. };       
    
45. winform.button.oncommand = function(id,event){               
    
46.         var bmp=BITMAP()//位图
    
47.         var bmpinfo =BITMAPINFO() ; //位图信息
    
48.         var bmpfh=BITMAPFILEHEADER()       
    
49.         var hdc = ::GetDC(0)//创建屏幕DC           
    
50.     var hMemDc = CreateCompatibleDC(hdc);//创建内存DC
    
51.     var hbmp = ::CreateCompatibleBitmap(hdc,200,200);
    
52.         var hOldBitmap = ::SelectObject(hMemDc,hbmp);
    
53.         ::BitBlt( hMemDc , 0, 0,200,200, hdc,0,0,0xCC0020/*_SRCCOPY*/ )
    
54.         ::SelectObject(hMemDc, hOldBitmap);
    
55.         //winform.picturebox.setBitmap(hbmp)//调试输出
    
56.         ::GetObject(hbmp,24,bmp);
    
57.         bmpinfo.BITMAPINFOHEADER.biSize =44;       
    
58.         GetDIBits(hMemDc,hbmp,0,0,null,bmpinfo,0);               
    
59.         var pi=raw.buffer(bmpinfo.BITMAPINFOHEADER.biSizeImage);//位图像素点阵
    
60.         bmpinfo.BITMAPINFOHEADER.biCompression=0
    
61.         GetDIBits(hMemDc,hbmp,0,bmp.bmHeight,pi,bmpinfo,0);       
    
62.         //构造位图信息
    
63.         var l=raw.tostring(bmpinfo)       
    
64.         var bmpinfobyte = ::GlobalAlloc( 0x2 /*_GMEM_MOVEABLE*/,bmpinfo.BITMAPINFOHEADER.biSize); //位图信息字节集
    
65.         pImageMemory = ::GlobalLock(bmpinfobyte);
    
66.         ::CopyMemory(pImageMemory,l,bmpinfo.BITMAPINFOHEADER.biSize);
    
67.         ::GlobalUnlock(bmpinfobyte);
    
68.         //构造位图文件头       
    
69.         bmpfh.bfType=19778
    
70.         bmpfh.bfOffBits=14+bmpinfo.BITMAPINFOHEADER.biSize
    
71.         bmpfh.bfSize=bmpfh.bfOffBits+bmpinfo.BITMAPINFOHEADER.biSizeImage
    
72.         bmpfh.bfReserved1=0
    
73.         bmpfh.bfReserved2=0
    
74.         var l=raw.tostring(bmpfh)
    
75.         var bmpfhbyte = ::GlobalAlloc( 0x2 /*_GMEM_MOVEABLE*/,14);//位图文件头字节集
    
76.         pImageMemory = ::GlobalLock(bmpfhbyte);
    
77.         ::CopyMemory(pImageMemory,l,14);
    
78.         ::GlobalUnlock(bmpfhbyte);
    
79.         var str=raw.tostring(bmpfhbyte)+raw.tostring(bmpinfobyte)+raw.tostring(pi)
    
80.         winform.picturebox.image=str//显示图象不成功       
    
81.         ::SelectObject(hMemDc, hOldBitmap);
    
82.         ::DeleteDC(hMemDc);       
    
83.         ::ReleaseDC(winform.hwnd,hdc);
    
84.         ::DeleteObject(hbmp)       
    
85. }
    
86. winform.show()
    
87. win.loopMessage();
    

复制代码