看上去象是将一段内存恢复到bitmap当中。对于Delphi也许比这个操作更为简单,那就是利用TBitmap类型,或许可以通过LoadFromStream一类的进行操作。
解决方案 »
- delphi二次开发autocad,如何在很多dwg文件中查找某一文字?
- 各位前辈,有没有D7可用的html编辑器控件?
- 如何用线程实现网络中的消息传输
- 急救啊!~~在delphi中如何得到SQL_select sum()的结果?
- 普通桌面应用程序怎么和一个服务程序通讯????
- 设置按钮的enable属性。
- 急急急!请教ADSL编程问题?谢谢各位了!
- 简单的打印问题,高手低手一起来。Ths!!!第一次使用Delphi的FastReport,见笑了,各位指点一下,真的很菜。
- 为什么连接不上数据库
- 关于QuickRpt报表存盘后出现乱码的问题。
- 谁用cxgrid做过批量操作的代码?
- delphi2010编译报两个错误,比较奇怪的问题。
GetChangesBuffer 应该是个结构体,按同样声明在delphi同样声明一个结构体。然后就是delphi的内存操作,不比C#复杂。
var
m_BackBm :TBitmap;
procedure TForm1.GrabImageDirect(const R: TRect);
var
ImgLine0: PChar;
DstStride: integer;
begin
// NOTE: negative stride because DstStride bottom-up (std windows bitmap)
ImgLine0 := PChar(m_BackBm.ScanLine[0]);
DstStride := -ScaleByPixformat(m_BackBm.Width, m_BackBm.PixelFormat);
// ImgLine0 := PChar(m_BackBm.ScanLine[m_BackBm.Height-1]);
// DstStride := ScaleByPixformat(m_BackBm.Width, m_BackBm.PixelFormat);
vd.CaptureRect(R, DstStride, ImgLine0);
image1.Picture.Assign(m_BackBm);
end;// levk 2006.05.19: created
procedure TForm1.GrabImageFullscreen;
var
R: TRect;
begin
R := Rect(0, 0, m_BackBm.Width, m_BackBm.Height);
//GrabImageFromDc(R);
GrabImageDirect(R);
end;不知道跟C#的是否对应