VB下摄像头截图保存为.jpg格式
我现在的做法是使用API函数将图像保存到剪贴板,然后利用Picture的SavePicture方法将图像保存,但是这样保存的是.bmp格式的,我想存为.jpg格式的,或者更小的也行,因为要进行传输,请各位高手帮帮忙呀~~~~ --------------------编程问答--------------------顶 --------------------编程问答-------------------- .......路过 --------------------编程问答-------------------- 请高手帮忙.我们很多人都想知道.
谢谢! --------------------编程问答-------------------- up --------------------编程问答-------------------- 下面这个代码仅限于 Windows2000系统, XP 别试了.
XP转为jpg的代码如下,需要的话请自行下载.
'窗体上添加 Command1 ,Imgedit1
'在添加部件里可以找到Kodak(第一个),它是调用Imgedit.ocx
Option Explicit
Private Sub Form_Load()
ImgEdit1.Image = "c:\fw.bmp" '先让ImgEdit随便显示一幅图片,不然后面的语句执行时会发生错误
ImgEdit1.Display
ImgEdit1.Refresh
End Sub
Private Sub Command1_Click()
If (ImgEdit1.IsCliPBoardDataAvailable And ImgEdit1.ImageDisplayed) Then
'从剪贴板粘贴图象,其参数为Imgedit的显示区域的起始坐标
ImgEdit1.ClipboardPaste 0, 0
ImgEdit1.CompletePaste
End If
'保存图片为jpg格式
ImgEdit1.SaveAs "c:\tt.jpg", wiFileTypeJPG, , 6
MsgBox "保存Jpg图片完成"
End Sub
'*********************************************************
XP 请下载:
【CBM666 的GDI BMP转为JPG】
http://download.csdn.net/source/375029
--------------------编程问答--------------------
顶 --------------------编程问答-------------------- 我有保存为JPG图片的源码,纯VB的。 --------------------编程问答-------------------- 什么呀 --------------------编程问答--------------------
补充:VB , 非技术类