| « | August 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:431115
建立时间:2005年5月12日 |
| |
|
 [VFP与SQL]VFP 图形文件、剪切板互换 API解决方法
网上资源, 读书笔记, 软件技术, 电脑与网络
老瓷 发表于 2011/8/5 20:12:17 |
| VFP 图形文件、剪切板互换 API解决方法(这是原来从网上摘下来的，版权归原作者）
DECLARE INTEGER OpenClipboard IN User32 INTEGERDECLARE INTEGER CloseClipboard IN User32DECLARE INTEGER EmptyClipboard IN User32DECLARE INTEGER SetClipboardData IN User32 INTEGER,INTEGERDECLARE INTEGER LoadImage IN WIN32API INTEGER,String,INTEGER,INTEGER,INTEGER,INTEGERDECLARE INTEGER GetClipboardData IN User32 INTEGERDECLARE INTEGER GdipCreateBitmapFromHBITMAP IN GdiPlus.dll INTEGER, INTEGER, INTEGER @DECLARE INTEGER GdipSaveImageToFile IN GdiPlus.dll INTEGER,String,String @,String @DECLARE Long GdipCreateHBITMAPFromBitmap IN GDIPLUS.DLL Long nativeImage, Long @, Long DECLARE Long GdipCreateBitmapFromFile IN GDIPLUS.DLL String FileName, Long @nBitmapDECLARE Long CopyImage IN WIN32API Long hImage, Long, Long, Long , Long
#Define CF_BITMAP 2#Define CF_DIB 8#Define IMAGE_BITMAP 0#Define LR_LOADFROMFILE 16
*1.将图形文件保存到剪切板nBitmap=0hbm=0imagefile='图形文件名'GdipCreateBitmapFromFile(STRCONV(imagefile+0h00,5),@nBitmap)GdipCreateHBITMAPFromBitmap(nBitmap,@hbm,0)lhBmp = CopyImage(hbm, 0, 0, 0, 0)IF OpenClipboard(0)!= 0 EmptyClipboard() SetClipboardData(CF_BITMAP, lhBmp) CloseClipboard()ENDIF
*2.将剪切板图形保存到本地OpenClipboard(0)hBitmap = GetClipboardData(CF_BITMAP)hDib = GetClipboardData(CF_DIB)CloseClipboard()uBitmap=0GdipCreateBitmapFromHBITMAP(hBitmap,2,@uBitmap)lcOutputFile=STRCONV('C:\_Temp1.jpg'+CHR(0),5)*!* lqEncoderClsID_BMP=0h00F47C55041AD3119A730000F81EF32E &&BMP格式lqEncoderClsID_JPG=0h01F47C55041AD3119A730000F81EF32E &&JPG格式*!* lqEncoderClsID_GIF=0h02F47C55041AD3119A730000F81EF32E &&GIF格式*!* lqEncoderClsID_TIF=0h05F47C55041AD3119A730000F81EF32E &&TIF格式*!* lqEncoderClsID_PNG=0h06F47C55041AD3119A730000F81EF32E &&PNG格式GdipSaveImageToFile(uBitmap,lcOutputFile,lqEncoderClsID_JPG,NULL) |
|
|