本站首页    管理页面    写新日志    退出


«December 2019»
1234567
891011121314
15161718192021
22232425262728
293031


公告
暂无公告...

我的分类(专题)

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:386073
建立时间: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)


阅读全文(3975) | 回复(0) | 编辑 | 精华
 



发表评论:
昵称:
密码:
主页:
标题:
验证码:  (不区分大小写,请仔细填写,输错需重写评论内容!)



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.016 second(s), page refreshed 144335791 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号