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

Question

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

Answer 1

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

Answer 2

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

Answer 3

代码主要是 进行 60帧 抓屏操作，并利用 intel jpeg Lib 转换为 jpg Byte() 
显示操作耗时。http://www.federal.net.cn/testpic.rar  (VB6)

Answer 4

这类代码我有收藏，但是没有测试过速度。XP下可以 SavePic Picture1.picture,"c:\1.jpg",".jpg" 这个办法不错，应该速度不错。

Answer 5

VB里没有GDIplus吗？
速度应该够了吧要不就是用Intel JpegLib，是VC写的，可以编成dll

Answer 6

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 IfLabelExit:    dlgX.Filename = ""End Function