高分求 bmp转jpg算法，控件，dll或者是代码总之高效就行

[therockdelt]

最近在写一个远程控制的软件，但是在图片传输方面遇到这方面问题，希望高手帮帮忙呀，高分~~~

[laviewpbt]

http://community.csdn.net/Expert/topic/4387/4387124.xml?temp=.1402094

[lc_mtt]

这类代码我有收藏，但是没有测试过速度。

XP下可以 SavePic Picture1.picture,"c:\1.jpg",".jpg"

这个办法不错，应该速度不错。

[Featured]

VB里没有GDIplus吗？
速度应该够了吧

要不就是用Intel JpegLib，是VC写的，可以编成dll

[daisy8675]

http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm


用Intel® JPEG Library (ijl15.dll)，就可以,8过忘记在那下了-_-!!!!自己去http://www.intel.com/cd/software/products/asmo-na/eng/perflib/ipp/index.htm
找找看,记得当初是有的.

给你部分重点代码参考:
Private mclsDibSection As New cDIBSection
Private Function Save_File()

Dim strFileName As String
Dim blnX As Boolean

On Error GoTo LabelExit

With dlgX
.CancelError = True
.DialogTitle = "(JPG 格式)"
.DefaultExt = ".jpg"
.filter = "JPEG Files (*.jpg;*.jpe;*.jpeg)|*.jpg;*.jpe;*.jpeg|"
.FilterIndex = 0
.Filename = "noname.jpg"
.Flags = cdlOFNExplorer Or cdlOFNLongNames
.ShowSave
End With

strFileName = dlgX.Filename

If strFileName <> "" Then

mclsDibSection.CreateFromPicture picSample

blnX = SaveJPG(mclsDibSection, strFileName, 100)

End If

LabelExit:

dlgX.Filename = ""

End Function

[chen2831278]

b帮顶

[Summer006]

如果目的仅仅是传送，那可以考虑图像压缩。不必钻研bmp->jpg的算法。

[zlt982001]

代码主要是 进行 60帧 抓屏操作，并利用 intel jpeg Lib 转换为 jpg Byte()
显示操作耗时。

http://www.federal.net.cn/testpic.rar (VB6)

[therockdelt]

多谢各位支持