商品名称：
京东价：暂无报价
评价得分：
咨询内容：
为什么用第三方软件屏幕显示会发虚，有好的解决办法么
京东回复：
您好！因为微软在开发win8系统的时候是按照标准分辨率()开发的, 没有考虑到高清和超高清屏幕的适应性, 导致我们电脑屏幕分辨率越高反而字体越模糊, 微软目前已经在优化系统,即将推出的win10就会避免这个问题,感谢您对京东的支持！祝您购物愉快！
发表咨询：
声明：您可在购买前对产品包装、颜色、运输、库存等方面进行咨询，我们有专人进行回复！因厂家随时会更改一些产品的包装、颜色、产地等参数，所以该回复仅在当时对提问者有效，其他网友仅供参考！咨询回复的工作时间为：周一至周五，9:00至18:00，请耐心等待工作人员回复。
咨询类型：
库存及配送
发票及保修
促销及赠品
京东承诺：商品均为原装正品行货，自带机打发票，严格执行国家三包政策，享受全国联保服务。
功能咨询：咨询商品功能建议您拨打各品牌的官方客服电话，以便获得更准确的信息。
发货时间：现货：下单后一日内即可发货；在途：一般1-2天发货； 预订：一般1-6天可发货；无货：已售完，相应物流中心覆盖地区内的用户不能购买
运&&&&费：如需查看快递运输收费标准及免运费规则，
货到付款：如需查看开通货到付款地区及运费，
上门自提：上门自提不收取运费，如需查看全部自提点位置、地图、注意事项，
物流中心：京东商城拥有北京、上海、广州三个物流中心，各物流中心覆盖不同的城市，
限&&&&额：如需查看各银行在线支付限额，
大额支付：快钱支付中的招行、工行、建行、农行、广发支持大额支付，最高单笔一次支付10000元
分期付款：单个商品价格在500元以上，可使用中国银行、招商银行发行的信用卡申请分期付款，
货到付款：如需查看开通货到付款地区及运费，
京东承诺：商品均为原装正品行货，自带机打发票，严格执行国家三包政策，享受全国联保服务。
发票类型：京东商城所售商品均自带机打发票，在提供相关企业资料证明后，可申请开取增值税发票。
退 换 货：京东商城为您提供完善的退换货服务，
咨询内容：
多品类齐全，轻松购物
快多仓直发，极速配送
好正品行货，精致服务
省天天低价，畅选无忧问： 该怎样才能屏幕显示正常，前面两张是正常的，后面三张仔细看虚拟键盘位置有水印。苹果6 . 屏_百度知道
问： 该怎样才能屏幕显示正常，前面两张是正常的，后面三张仔细看虚拟键盘位置有水印。苹果6 . 屏
baidu.baidu。苹果6&nbsp.hiphotos.jpg" esrc="/zhidao/pic//zhidao/pic/item/a8ec8ac40cbf5a7ec08fa513dc67a：&#65532问://d.hiphotos.hiphotos://e.baidu.hiphotos.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink">&nbsp://f;&/zhidao/wh%3D450%2C600/sign=/zhidao/wh%3D450%2C600/sign=61abf47db95fedc7e37b1a/38dbb6fdf735fa3574.jpg" />&nbsp.hiphotos.baidu.jpg" />&.com/zhidao/wh%3D450%2C600/sign=1b172f734c36acaf59b59ef849e9a126/fec08fa81c57fed5eee3d6d54fbdab7;该怎样才能屏幕显示正常.jpg" esrc="屏幕出现水印.jpg" esrc="
这张很清晰啊
截屏有没有？
有截屏截屏不到屏幕里面的水印
对比。。。
那是屏幕的问题，新机找售后换机，旧机就找个修手机的地方处理。
我手机掉到温泉里面去了，才修好开机，就这样了
大概换个屏幕会恢复是么
应该是屏幕没有修好，在排线上也查查
提问者评价
太给力了，你的回答完美的解决了我的问题！
其他类似问题
为您推荐：
其他3条回答
重启一下或者还原所有设置试试，不行的话连接电脑的iTunes备份数据后恢复系统
重启了没用，我以为是屏幕问题。。。我试试恢复系统
屏幕漏点了。这是质量问题 。你这个是水货吧
不是，但是掉进温泉了，拿去修理了，昨天修好开机才发现
屏幕露点是怎么回事，需要换屏幕么
两种可能1:修手机的给你偷还屏幕2:手机压根没修好。给你提供个iphone进水如何补救的方法手机关机。用保鲜袋装大米把手机塞进大米里。不要漏出来大米需要把手机全部包裹。然候把袋密封不要漏空气。大概12小时候一般你的这种情况就会解决。如果有更多咨询iphone ipad的问题请加
把第三方的卸载掉
已经卸载搜狗输入法了
虚拟键盘的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您现在的位置： &
FIND7是否将重复FIND5悲剧: 特定批次屏幕无法刷入第三方ROM?
粉丝积分2110经验988 精华0签到188天O币2912
FIND7是否也会重复FIND5悲剧：由于屏幕批次不同造成特定批次无法刷入第三方ROM/REC
我的年1月底购买，现在无法刷第三方REC/ROM: 原因是OPPO已更新了屏幕：批次不同(R63419)，OPPO又未开源屏幕驱动，现在的ROM都是基于先前的屏幕R63319，如果刷入就会造成花屏以及系统重启
相信有很多机油都买到了这一批次的FIND7, 希望OPPO能开源此批次屏幕驱动，避免出现FIND5的问题再次出现，谢谢！
查看屏幕LCD批次方法:
1. 通话界面输入:& &*##*37847#
2.小欧工程师-工程模式代码-硬件列表(倒数第二行)- LCD
本帖最后由 andbb 于
15:50 编辑
(43.32 KB, 下载次数: 1)
15:39 上传
点击文件名下载附件
R63419最新屏幕批次
(45.68 KB, 下载次数: 0)
15:40 上传
点击文件名下载附件
R63319原先屏幕批次
Lv3.初中生O粉
粉丝积分217经验110 精华0签到4天O币17
Lv3.初中生O粉, 积分 217, 距离下一级还需 33 积分
顶一个！！
粉丝积分2110经验988 精华0签到188天O币2912
陳廣通 发表于
顶一个！！
你的什么批次
Lv4.高中生O粉
粉丝积分946经验894 精华0签到361天O币2315
Lv4.高中生O粉, 积分 946, 距离下一级还需 54 积分
有这样限制用户的权利
粉丝积分1678经验1510 精华0签到4天O币27780
毕竟是全球开售，oppo也会考虑的。
粉丝积分2110经验988 精华0签到188天O币2912
ゞ﹎莫言 发表于
毕竟是全球开售，oppo也会考虑的。
现在无法刷入TWRP/CWM..
FIND5的前车之鉴 言犹在耳
粉丝积分2110经验988 精华0签到188天O币2912
ゞ﹎莫言 发表于
毕竟是全球开售，oppo也会考虑的。
已答复？答案是什么？请版主明示，谢谢！
粉丝积分231经验228 精华0签到0天O币500
我的FIND7 9077屏幕也是R63419，因为不能刷TWRP及第三方ROM，我自行研究折腾了很久，我借助官方的驱动，现在终于有点收获，至少我已经能刷入TWRP了，有需要的可以共同探讨一下哦。
&已加你，希望能进步，谢谢！&
&现在官方默认的rec容量是16M，我提取驱动后rec容量有20M，因此需要先把手机的REC分区扩展到32M，然后刷去我提取驱动的TWRP即可。可***一起学习&
1. 您是如何刷入rwrpcwm,
2.您是如何更新驱动的，
3. 您能成功刷入其他rom吗？
能否分享下，谢谢！
看来有多机友也碰到相同问题。&
粉丝积分254经验249 精华0签到6天O币566
怪不得我刷不了第三方ROM，当时还废了好大的劲，刷遍了几乎所有可以用的ROM，都失败了，原来是这么回事。
来自Find 7.OPPO乐园4.7.2版
粉丝积分254经验249 精华0签到6天O币566
顺便说一下我是11月23号买的。
来自Find 7.OPPO乐园4.7.2版
粉丝积分3862经验2163 精华0签到243天O币3534
我的买的早，R63319，用了半年多了
来自Find 7.OPPO乐园4.7.2版
粉丝积分497经验315 精华0签到23天O币758
我的R63315，这个可以吗？
来自OPPO Find 7.全能旗舰
&论坛上的twrp/cwm， 能刷应该就可以。你的更早应该支持了。&
粉丝积分1151经验1047 精华0签到0天O币533
才买的，63417
来自OPPO Find 7.全能旗舰
&你的可刷第三方REC如swrp/cwm，第三方ROM?&
粉丝积分393经验277 精华0签到22天O币782
唉，我的刷了会花屏，熄屏后屏幕就不会亮了，，，，唉，看着别人用CM13好羡慕
4月21日 星期四4968人签到
周末在家太无聊？
不要着急，好玩资源的都在这里了
大饼脸心塞塞？今天R9就教你分分钟变身小V脸
R9正式开售，臻美摄像头、超窄边框，买买买大军也是一拥而上第三方屏幕保护是什么_百度知道
第三方屏幕保护是什么
我有更好的答案
自动切换桌面壁纸在搜索引擎上搜索 晨风软件工作室官方网站上有一款名为“电脑动态屏保专家”的免费软件、夜光钟、海底世界动画，支持设置密码保护、一键进入屏保、七彩透明泡泡、背景音乐、图片渐入渐出
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VFP不借助任何第三方工具的屏幕抓图工具
VFP不借助任何第三方工具的屏幕抓图工具
*!* IMAGECAPTURE.PRG
*!* Author : Gelson L. Bremm
*!* Description : Captures any image on the screen
PUBLIC oCapturaImg
oCapturaImg = CREATEOBJECT("CapturaImagem")
oCapturaImg.Show()
DEFINE CLASS CapturaImagem AS Form
Height = 147
Width = 115
Desktop = .T.
ShowWindow = 2
DoCreate = .T.
ShowTips = .T.
AutoCenter = .T.
Caption = "Capture"
HalfHeightCaption = .T.
MaxButton = .F.
MinButton = .F.
MinHeight = 80
AlwaysOnTop = .T.
Name = "CAPTURE"
ADD OBJECT Command1 AS myCmon
PROCEDURE Init
.DeclareFunctions()
PROCEDURE SetTransparent
LOCAL lnControlBottom, lnControlRight, lnControlLeft, lnControlTop,
lnBorderWidth, ;
lnTitleHeight, lnFormHeight, lnFormWidth, lnInnerRgn, lnOuterRgn,
lnCombinedRgn, ;
lnControlRgn, lnControl, lnRgnDiff, lnRgnOr, llTrue
lnRgnDiff = 4
lnRgnOr = 2
llTrue = -1
lnBorderWidth = SYSMETRIC(3)
lnTitleHeight = SYSMETRIC(9)-SYSMETRIC(4)
lnFormWidth = .Width + (lnBorderWidth * 2)
lnFormHeight = .Height + lnTitleHeight + lnBorderWidth
lnOuterRgn = CreateRectRgn(0, 0, lnFormWidth, lnFormHeight)
lnInnerRgn = CreateRectRgn(lnBorderWidth, lnTitleHeight, ;
lnFormWidth - lnBorderWidth, lnFormHeight - lnBorderWidth)
lnCombinedRgn = CreateRectRgn(0, 0, 0, 0)
CombineRgn(lnCombinedRgn, lnOuterRgn, lnInnerRgn, lnRgnDiff)
FOR EACH Control in .Controls
lnControlLeft = Control.Left + lnBorderWidth
lnControlTop = Control.Top + lnTitleHeight
lnControlRight = Control.Width + lnControlLeft
lnControlBottom = Control.Height + lnControlTop
lnControlRgn = CreateRectRgn(lnControlLeft, lnControlTop,
lnControlRight, lnControlBottom)
CombineRgn(lnCombinedRgn, lnCombinedRgn, lnControlRgn,
SetWindowRgn(.HWnd , lnCombinedRgn, llTrue)
PROCEDURE num2dword
LPARAMETERS lnValue
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2
LOCAL b0, b1, b2, b3
b3 = INT(lnValue/m2)
b2 = INT((lnValue - b3*m2)/m1)
b1 = INT((lnValue - b3*m2 - b2*m1)/m0)
b0 = MOD(lnValue, m0)
RETURN(CHR(b0)+CHR(b1)+CHR(b2)+CHR(b3))
PROCEDURE declarefunctions
DECLARE INTEGER CombineRgn in "gdi32" integer hDestRgn, integer
hRgn1, integer hRgn2, integer nMode
DECLARE INTEGER CreateRectRgn in "gdi32" integer X1, integer Y1,
integer X2, integer Y2
DECLARE INTEGER SetWindowRgn in "user32" integer hwnd, integer
hRgn, integer nRedraw
DECLARE INTEGER SelectObject IN gdi32 integer hdc, integer
DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd, INTEGER hdc
DECLARE INTEGER CreateCompatibleDC IN gdi32 INTEGER hdc
DECLARE INTEGER DeleteObject IN gdi32 INTEGER hObject
DECLARE INTEGER DeleteDC IN gdi32 INTEGER hdc
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER GetFocus IN user32
DECLARE INTEGER EmptyClipboard IN user32
DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
DECLARE INTEGER SetClipboardData IN user32 INTEGER wFormat, INTEGER
DECLARE INTEGER CreateCompatibleBitmap IN gdi32;
INTEGER hdc, INTEGER nWidth, INTEGER nHeight
DECLARE INTEGER BitBlt IN gdi32;
INTEGER hDestDC, INTEGER x, INTEGER y,;
INTEGER nWidth, INTEGER nHeight, INTEGER hSrcDC,;
INTEGER xSrc, INTEGER ySrc, INTEGER dwRop
DECLARE INTEGER GetActiveWindow IN user32
DECLARE INTEGER GetClipboardData IN user32 INTEGER uFormat
DECLARE INTEGER GlobalAlloc IN kernel32 INTEGER wFlags, INTEGER
DECLARE INTEGER GlobalFree IN kernel32 INTEGER hMem
DECLARE INTEGER GetObject IN gdi32 AS GetObjectA;
INTEGER hgdiobj, INTEGER cbBuffer, STRING @lpvObject
DECLARE INTEGER GetObjectType IN gdi32 INTEGER h
DECLARE RtlZeroMemory IN kernel32 As ZeroM
INTEGER dest, INTEGER numBytes
DECLARE INTEGER GetDIBits IN gdi32;
INTEGER hdc, INTEGER hbmp, INTEGER uStartScan,;
INTEGER cScanLines, INTEGER lpvBits, STRING @lpbi,;
INTEGER uUsage
DECLARE INTEGER CreateFile IN kernel32;
STRING lpFileName, INTEGER dwDesiredAccess,;
INTEGER dwShareMode, INTEGER lpSecurityAttr,;
INTEGER dwCreationDisp, INTEGER dwFlagsAndAttrs,;
INTEGER hTemplateFile
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject
DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
PROCEDURE CopyToClipBoard
.Caption = "Capturing"
.Command1.Left = .Width+.Command1.Width
.SetTransparent()
=Sleep(100)
#DEFINE CF_BITMAP 2
#DEFINE SRCCOPY
lnLeft = SYSMETRIC(3)
lnTop = SYSMETRIC(4)+(SYSMETRIC(20)-SYSMETRIC(11))
lnRight = 0
lnBottom = 0
lnWidth = .Width
lnHeight = .Height-1
*hwnd = GetFocus()
hdc = GetWindowDC(.HWnd)
hVdc = CreateCompatibleDC(hdc)
hBitmap = CreateCompatibleBitmap(hdc, lnWidth, lnHeight)
= SelectObject(hVdc, hBitmap)
= BitBlt(hVdc, 0, 0, lnWidth, lnHeight, hdc, lnLeft, lnTop,
= OpenClipboard(.HWnd)
= EmptyClipboard()
= SetClipboardData(CF_BITMAP, hBitmap)
= CloseClipboard()
= DeleteObject(hBitmap)
= DeleteDC(hVdc)
= ReleaseDC(.HWnd, hdc)
.Command1.Left = VAL(.Command1.Tag)
.SetTransparent()
.Caption = "Capture"
PROCEDURE CopyToFile
#DEFINE CF_BITMAP 2
#DEFINE SRCCOPY
#DEFINE OBJ_BITMAP 7
#DEFINE DIB_RGB_COLORS 0
#DEFINE BFHDR_SIZE 14
#DEFINE BHDR_SIZE 40
#DEFINE GENERIC_WRITE
#DEFINE FILE_SHARE_WRITE 2
#DEFINE CREATE_ALWAYS 2
#DEFINE FILE_ATTRIBUTE_NORMAL 128
#DEFINE INVALID_HANDLE_VALUE -1
#DEFINE BITMAP_STRU_SIZE 24
#DEFINE BI_RGB 0
#DEFINE RGBQUAD_SIZE 4
#DEFINE BHDR_SIZE 40
#DEFINE GMEM_FIXED 0
LOCAL cDefault, cNameFile, hClipBmp
LOCAL pnWidth, pnHeight, pnBitsSize, pnRgbQuadSize,
pnBytesPerScan
LOCAL hFile, lnFileSize, lnOffBits, lcBFileHdr
LOCAL lnBitsPerPixel, lcBIHdr, lcRgbQuad
LOCAL lpBitsArray, lcBInfo
LOCAL hdc, hMemDC, lcBuffer
cDefault = FULLPATH(SYS(5))
cNameFile = GETPICT("BMP")
SET DEFAULT TO (cDefault)
IF EMPTY(cNameFile)
IF FILE(cNameFile)
IF MESSAGEBOX("This forlder already contains a file called
'"+PROPER(JUSTFNAME(cNameFile))+"'"+CHR(13)+"Overwrite the existing
file ?",36+256,"Confirm overwriting") = 7
ERASE (cNameFile)
.CopyToClipBoard()
= OpenClipboard (0)
hClipBmp = GetClipboardData (CF_BITMAP)
= CloseClipboard()
IF hClipBmp = 0 Or GetObjectType(hClipBmp) # OBJ_BITMAP
=MESSAGEBOX("There is no image stored in the clipboard.",48,"Error
creating file")
STORE 0 TO pnWidth, pnHeight, pnBytesPerScan, pnBitsSize,
pnRgbQuadSize
lcBuffer = REPLI(CHR(0), BITMAP_STRU_SIZE)
IF GetObjectA (hClipBmp, BITMAP_STRU_SIZE, @lcBuffer) # 0
pnWidth = ASC(SUBSTR(lcBuffer, 5,1)) + ;
ASC(SUBSTR(lcBuffer, 6,1)) * 256 +;
ASC(SUBSTR(lcBuffer, 7,1)) * 65536 +;
ASC(SUBSTR(lcBuffer, 8,1)) *
pnHeight = ASC(SUBSTR(lcBuffer, 9,1)) + ;
ASC(SUBSTR(lcBuffer, 10,1)) * 256 +;
ASC(SUBSTR(lcBuffer, 11,1)) * 65536 +;
ASC(SUBSTR(lcBuffer, 12,1)) *
lnBitsPerPixel = 24
pnBytesPerScan = INT((pnWidth * lnBitsPerPixel)/8)
IF MOD(pnBytesPerScan, 4) # 0
pnBytesPerScan = pnBytesPerScan + 4 - MOD(pnBytesPerScan, 4)
lcBIHdr = .num2dword(BHDR_SIZE) + .num2dword(pnWidth) +;
.num2dword(pnHeight) + (CHR(MOD(1,256))+CHR(INT(1/256))) +
(CHR(MOD(lnBitsPerPixel,256))+CHR(INT(lnBitsPerPixel/256)))
.num2dword(BI_RGB) + REPLI(CHR(0), 20)
IF lnBitsPerPixel &= 8
pnRgbQuadSize = (2^lnBitsPerPixel) * RGBQUAD_SIZE
lcRgbQuad = REPLI(CHR(0), pnRgbQuadSize)
lcRgbQuad = ""
lcBInfo = lcBIHdr + lcRgbQuad
pnBitsSize = pnHeight * pnBytesPerScan
lpBitsArray = GlobalAlloc (GMEM_FIXED, pnBitsSize)
= ZeroMemory (lpBitsArray, pnBitsSize)
*hwnd = GetActiveWindow()
hdc = GetWindowDC(.HWnd)
hMemDC = CreateCompatibleDC (hdc)
= ReleaseDC (.HWnd, hdc)
= GetDIBits (hMemDC, hClipBmp, 0, pnHeight, lpBitsArray, @lcBInfo,
DIB_RGB_COLORS)
lnFileSize = BFHDR_SIZE + BHDR_SIZE + pnRgbQuadSize +
pnBitsSize
lnOffBits = BFHDR_SIZE + BHDR_SIZE + pnRgbQuadSize
lcBFileHdr = "BM" + .num2dword(lnFileSize) + .num2dword(0) +
.num2dword(lnOffBits)
hFile = CreateFile (cNameFile, GENERIC_WRITE, FILE_SHARE_WRITE, 0,
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
IF hFile # INVALID_HANDLE_VALUE
DECLARE INTEGER WriteFile IN kernel32;
INTEGER hFile, STRING @lpBuffer, INTEGER nBt2Write,;
INTEGER @lpBtWritten, INTEGER lpOverlapped
= WriteFile (hFile, @lcBFileHdr, Len(lcBFileHdr), 0, 0)
= WriteFile (hFile, @lcBInfo, Len(lcBInfo), 0, 0)
DECLARE INTEGER WriteFile IN kernel32;
INTEGER hFile, INTEGER lpBuffer, INTEGER nBt2Write,;
INTEGER @lpBtWritten, INTEGER lpOverlapped
= WriteFile (hFile, lpBitsArray, pnBitsSize, 0, 0)
= CloseHandle (hFile)
= MESSAGEBOX("Error creating file: " + cNameFile, "Opera玢o n鉶
conclu韉a")
= GlobalFree(lpBitsArray)
= DeleteDC (hMemDC)
= DeleteObject (hClipBmp)
PROCEDURE Resize
.Command1.Left = .Width-.Command1.Width
.Command1.Top = .Height-.Command1.Height
.Command1.Tag = ALLT(STR(.Command1.Left))
.SetTransparent()
PROCEDURE Destroy
oCapturaImg = .F.
RELEASE oCapturaImg
DEFINE CLASS myCmon AS Commanon
Height = 21
Width = 18
FontName = "Webdings"
Caption = "6"
ToolTipText = "Op珲es"
Name = "Command1"
PROCEDURE Click
cOptMenu = ""
DEFINE POPUP _menu_clip SHORTCUT RELATIVE FROM MROW(), MCOL()
DEFINE BAR CNTBAR("_menu_clip")+1 OF _menu_clip PROMPT "Copy to
Clipboard"
ON SELECTION BAR CNTBAR("_menu_clip") OF _menu_clip cOptMenu =
"CLIPBOARD"
DEFINE BAR CNTBAR("_menu_clip")+1 OF _menu_clip PROMPT "Copy to
ON SELECTION BAR CNTBAR("_menu_clip") OF _menu_clip cOptMenu =
ACTIVATE POPUP _menu_clip
RELEASE POPUPS _menu_clip
CASE cOptMenu == "CLIPBOARD"
THISFORM.CopyToClipBoard()
CASE cOptMenu == "FILE"
THISFORM.CopyToFile()
vfp中怎么把剪贴板中的图像保存为指定路径的BMP格式文件
SaveScreen('c:\test.bmp')
Function&SaveScreen(&tcFile&)
#Define&CF_BITMAP&&&&&&&&2
#Define&VK_SNAPSHOT&&&&&&0x2C
#Define&KEYEVENTF_KEYUP&&0x0002
Local&cFileExtName,&cEncoder,&iInputBuf,&iResult
Local&hBitmap,&hToken,&hGdipBitmap
m.cFileExtName&=&Lower(&Justext(&m.tcFile&))
decl_api()
m.iResult&=&-1
If&(&0&!=&OpenClipboard(&0&))
m.hBitmap&=&GetClipboardData(&CF_BITMAP&)
If&(&0&!=&m.hBitmap&)
m.hToken&=&0
m.iInputBuf&=&0h01&+&Replicate(&Chr(0),15&)
If&(&0&==&GdiplusStartup(&@&m.hToken,&@&m.iInputBuf,&0&))
m.hGdipBitmap&=&0
If&(&0&==&GdipCreateBitmapFromHBITMAP(&;
m.hBitmap,&0,&@&m.hGdipBitmap&))
m.cEncoder&=&Icase(&;
'jpg'&==&m.cFileExtName,&0h01,&;
'gif'&==&m.cFileExtName,&0h02,&;
'tif'&==&m.cFileExtName,&0h05,&;
'png'&==&m.cFileExtName,&0h06,&0h00&)&;
+&0hF47C5A730000F81EF32E
m.iResult&=&GdipSaveImageToFile(&;
m.hGdipBitmap,&;
STRCONV(&m.tcFile+Chr(0),&5&),&;
m.cEncoder,&0&)
GdipDisposeImage(&m.hGdipBitmap&)
GdiplusShutdown(&m.hToken&)
EmptyClipboard()
CloseClipboard()
Return&(&0&==&m.iResult&)
Function&decl_api
Declare&Long&keybd_event&In&WIN32API&;
Long&bVk,&Long&bScan,&Long&dwFlags,&Long&dwExtraInfo
Declare&Long&OpenClipboard&In&WIN32API&;
Long&hWndNewOwner
Declare&Long&EmptyClipboard&In&WIN32API
Declare&Long&CloseClipboard&In&WIN32API
Declare&Long&GetClipboardData&In&WIN32API&;
Long&uFormat
Declare&Long&GdiplusStartup&In&GDIPlus&;
Long&@&token,&String&@&inputbuf,&Long&@&outputbuf
Declare&Long&GdiplusShutdown&In&GDIPlus&;
Long&token
Declare&Long&GdipCreateBitmapFromHBITMAP&In&GDIPlus&;
Long&hbitmap,&Long&hpalette,&Long&@&hGpBitmap
Declare&Long&GdipDisposeImage&In&GDIPlus&;
Long&Image
Declare&Long&GdipSaveImageToFile&In&GDIPlus&;
Long&nImage,&String&FileName,&;
String&clsIdEncoder,&Long&encoderParams
如何检测剪贴板中有无图像？
DECLARE INTEGER OpenClipboard IN user32 INTEGER
DECLARE INTEGER CloseClipboard IN user32
DECLARE INTEGER EmptyClipboard IN user32
DECLARE INTEGER SetClipboardData IN user32 INTEGER,INTEGER
DECLARE INTEGER LoadImage IN WIN32API
INTEGER,string,INTEGER,INTEGER,INTEGER,INTEGER
DECLARE INTEGER GetClipboardData IN user32 INTEGER
DECLARE 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 @nBitmap
DECLARE Long CopyImage IN WIN32API Long hImage, Long, Long, Long ,
DECLARE INTEGER IsClipboardFormatAvailable IN user32 INTEGER
*************************************************************************************
#define cf_text 1
#Define CF_BITMAP 2
#Define CF_DIB 8
#Define IMAGE_BITMAP 0
#Define LR_LOADFROMFILE 16
*************************************************************************************
s_bit=IsClipboardFormatAvailable(CF_BITMAP)
if s_bit&&0 then
messagebox("是一个位图文件")
s_txt=IsClipboardFormatAvailable(CF_TEXT)
if s_txt&&0 then
*OpenClipboard(0)
*hdata=GetClipboardData(CF_TEXT)
*CloseClipboard()
messagebox("是一段文本")
bmp转换为jpg格式
使用任明汉的MyDll.Dll控件
*-- Convert a bmp file to jpg file
Declare Integer tojpeg IN "mydll.dll" String bmpfilename, String
jpgfilename
?"圖形轉換,轉換 c:\screen.bmp 到 c:\screen.jpg:"
retval = tojpeg("c:\screen.bmp","c:\screen.jpg")
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}