# SimpleBitmap **Repository Path**: suxuss_admin/simple-bitmap ## Basic Information - **Project Name**: SimpleBitmap - **Description**: 简洁的位图代码,用于构建位图文件 - **Primary Language**: Pascal - **License**: MIT - **Default Branch**: master - **Homepage**: None - **GVP Project**: No ## Statistics - **Stars**: 0 - **Forks**: 0 - **Created**: 2025-07-23 - **Last Updated**: 2025-07-23 ## Categories & Tags **Categories**: Uncategorized **Tags**: None ## README # SimpleBitmap #### 介绍 简洁的位图代码,用于构建位图文件 #### 为何有份代码 该项目源自[PascalOpencl](https://gitee.com/suxuss_admin/pascal-opencl-fixed/tree/master),在需要高效处理图像数据流时,使用TBitmap就感觉笨重,而且还需要一次额外的Memory Copy,于是参考ZAI中相应代码有了这个项目。 #### 参考用法 ``` var data:IScreenData; bmp:ISimpleBitmap; begin data := TScreenDATA.Create; SE.CaptureScreen(data,True); //注意:直接使用内存指针进行初始化时,TSimpleBitmap会直接使用该指针而并非Copy,这样在某些情况下可以节省一次Copy的时间。 bmp := TSimpleBitmap.Create(-se.ScreenHeight,se.ScreenWidth,data.Memory,data.Size,bit_32); bmp.SaveToFile('d:\1.bmp'); ```