如何在截屏后清空内存中刚才截的图片？？？

2005-08-05 01:00:57 364 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cocos2dx实现截屏并保存图片我们想做这么一个功能，玩家获得某个笔记屌的东西后希望他做个截屏然后分享到朋友圈等其他地方，做个推广作用。cocos2dx提供的接口是一个叫CCRenderTexture 的类。具体做法如下： 1、我创建个CCRenderTexture 对象 2、把需要在图片中显示的动动渲染一次（调用一次vist 或者update接口） 3、调用CCRenderTexture对象的接口进行保存。 4、调用sd 阅读详情

Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Long) As Long

Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Private Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal iCapabilitiy As Long) As Long

Private Declare Function GetSystemPaletteEntries Lib "GDI32" (ByVal hDC As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long

Private Declare Function CreatePalette Lib "GDI32" (lpLogPalette As LOGPALETTE) As Long

Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Long, ByVal hObject As Long) As Long

Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long

Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Long) As Long

Private Declare Function GetForegroundWindow Lib "USER32" () As Long

Private Declare Function SelectPalette Lib "GDI32" (ByVal hDC As Long, ByVal hPalette As
Long, ByVal bForceBackground As Long) As Long

Private Declare Function RealizePalette Lib "GDI32" (ByVal hDC As Long) As Long

Private Declare Function GetWindowDC Lib "USER32" (ByVal hWnd As Long) As Long

Private Declare Function GetDC Lib "USER32" (ByVal hWnd As Long) As Long

Private Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As Long

Private Declare Function ReleaseDC Lib "USER32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Declare Function GetDesktopWindow Lib "USER32" () As Long

Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long

看了高手做了截屏的的程序，用到以上这些库。我想实现一个屏幕录像成图片的功能，但是我做完之后，大约运行5分钟，就会报虚拟内存溢出，我想一定是没有释放掉前面截的屏的内存位图，不知哪位可以指点一下，在我把内存位图保存为本地图片之后，清空这个内存位图，多谢了！！！

...全文

安卓截屏限制逆向实战：从FLAG_SECURE原理到Frida动态Hook 在安卓应用安全领域，窗口标志位是控制界面行为的基础机制之一，其中FLAG_SECURE标志用于防止敏感内容被截屏或录屏捕获，其原理是通过系统级的SurfaceFlinger服务对安全窗口的渲染内容进行特殊处理。这项技术对于保护金融交易、隐私通讯等场景下的数据安全具有重要价值，广泛应用于银行、社交及版权内容类应用。通过逆向工程手段，开发者可以深入理解安卓系统的安全防护机制，掌握静态分析与动态Hook等核心技术。本文聚焦于FLAG_SECURE的底层实现，结合Frida动态插桩技术，详细演示了如何定位关键代码、阅读详情

wingdes

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

michael_zy 2005-10-25

打赏
举报

这个很简单....
先把整个屏幕抓下来....
在从你鼠标所画的区域把图片抓出来....主要是坐标的问题.......
长度宽度和开始的坐标

wzxiaodu 2005-10-25

打赏
举报

高手们，借贵宝地问个问题？
就是通过上面两个程序等或其他，
如何用过鼠标，截取一部分屏幕在存图？？？

Mister 2005-08-07

打赏
举报

这个2个函数好熟啊，是从网上粘的吧？这2个函数我以前就用过 N 次，抓过 N 次的图片，没有出现你说的那种问题啊......是不是你自己的代码有点问题。

如果要销毁对像，这样：Set Object=Nothing

Public Sub SaveFile()
Dim mPic As StdPicture

Set mPic=CaptureWindow(参数) '抓屏。
SavePicture mpic, "文件名" '将图片保存为磁盘文件（位图）。
Set mPic=Nothing '销毁对像。

End Sub

wingdes 2005-08-05

打赏
举报

Public Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture
Dim r As Long

Dim Pic As PicBmp

Dim IPic As IPicture
Dim IID_IDispatch As GUID

With IID_IDispatch
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

With Pic
.Size = Len(Pic)
.Type = vbPicTypeBitmap
.hBmp = hBmp
.hPal = hPal
End With

r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)

Set CreateBitmapPicture = IPic
End Function

Public Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture

Dim hDCMemory As Long
Dim hBmp As Long
Dim hBmpPrev As Long
Dim r As Long
Dim hDCSrc As Long
Dim hPal As Long
Dim hPalPrev As Long
Dim RasterCapsScrn As Long
Dim HasPaletteScrn As Long
Dim PaletteSizeScrn As Long
Dim LogPal As LOGPALETTE

If Client Then
hDCSrc = GetDC(hWndSrc)
Else
hDCSrc = GetWindowDC(hWndSrc)
End If

hDCMemory = CreateCompatibleDC(hDCSrc)
hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)
hBmpPrev = SelectObject(hDCMemory, hBmp)

RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)

HasPaletteScrn = RasterCapsScrn And RC_PALETTE

PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE)

If HasPaletteScrn And (PaletteSizeScrn = 256) Then
LogPal.palVersion = &H300
LogPal.palNumEntries = 256
r = GetSystemPaletteEntries(hDCSrc, 0, 256, LogPal.palPalEntry(0))
hPal = CreatePalette(LogPal)
hPalPrev = SelectPalette(hDCMemory, hPal, 0)
r = RealizePalette(hDCMemory)
End If

' Copy the on-screen image into the memory DC.
r = BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, LeftSrc, TopSrc, vbSrcCopy)

' Remove the new copy of the on-screen image.
hBmp = SelectObject(hDCMemory, hBmpPrev)

If HasPaletteScrn And (PaletteSizeScrn = 256) Then
hPal = SelectPalette(hDCMemory, hPalPrev, 0)
End If

r = DeleteDC(hDCMemory)
r = ReleaseDC(hWndSrc, hDCSrc)

Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)
End Function

主要是这两个函数，我用CaptureWindow函数截屏后，不知如何清空内存位图。

michael_zy 2005-08-05

打赏
举报

贴这么多函数声明有什么用？？谁知道你的代码是怎么写的？？

wingdes 2005-08-05

打赏
举报

自己先顶一下……！！！

如何在截屏后清空内存中刚才截的图片？？？

相关推荐