vb6 webp to JPG/PNG/GIF/BMP,PNG SAVE AS Webp format,Image format conversion, image co

[xiaoyao]

https://gitee.com/xiaoyaosoft/xiaoya...er/DLL/008Webp

https://gitee.com/xiaoyaosoft/xiaoya...iaoYaoWebp.zip
use libwebp.dll by google,

    Dim Webp As New XiaoYaoWebpX64.WebpClass
 
Private Sub WebpToJPG_PPNG_Click()
    Dim Path1 As String, OK As Boolean, WebpFile1 As String
    Path1 = App.Path & "\"
    WebpFile1 = Path1 & "WebpDemo.webp"
    
    OK = Webp.WebpSaveAsImg(WebpFile1, Path1 & "WebpDemo_Tojpg.jpg")
    MsgBox OK
    OK = Webp.WebpSaveAsImg(WebpFile1, Path1 & "WebpDemo_Tojpg.png")
    MsgBox OK
    End Sub


 
Function LoadPictureFromWebp(ByVal WebpFile As String, ByVal Hdc As Long) As StdPicture
    Set LoadPictureFromWebp = Webp.LoadPictureFromWebp(WebpFile, Hdc)
End Function
 
Function SaveAsWebp(ByVal ImgPath As String, ByVal webpFilePath As String, Optional ByVal quality As Single = 90, Optional ByVal picHandle As Long) As Boolean
    Webp.SaveAsWebp ImgPath, webpFilePath, quality
End Function

 
Function WebpSaveAsImg(ByVal WebpFile As String, ByVal SaveImgFile As String, Optional ByVal JpgQuality As Long = 85, Optional ByVal FreeWebp As Boolean = True)
    Webp.WebpSaveAsImg WebpFile, SaveImgFile, JpgQuality
End Function