Source Convert BMP to JPG - Công cụ chuyển đổi định dạng hình ảnh từ BMP sang JPG

Screenshot:

​

Chức năng:
- Dùng để chuyển đổi định dạng hình ảnh BMP sang JPG. Mình có code chuyển đổi đc 7 định dạng nhưng ở đây mình chỉ share source thôi. Các bạn từ đó viết ra 6 định dạng khác


Download:

Source:
Source này trong thư mục cài đặt AutoIT đấy: Examples\GUI\Simple (nếu bạn cài bản full)

Mã (AutoIt):

#include <GDIPlus.au3>

Opt("MustDeclareVars", 1)

Global $sImage, $hImage, $sCLSID

; Get BMP file to convert
$sImage = InputBox("BMP to JPG", "Enter File Name:", @MyDocumentsDir & "\Image.bmp", "", 200, 130)
if @Error or not FileExists($sImage) then Exit

; Initialize GDI+ library
_GDIPlus_StartUp()

; Load image
$hImage = _GDIPlus_ImageLoadFromFile($sImage)

; Get JPG encoder CLSID
$sCLSID = _GDIPlus_EncodersGetCLSID("JPG")

; Save image as JPG
_GDIPlus_ImageSaveToFileEx($hImage, @MyDocumentsDir & "\AutoItImage.jpg", $sCLSID)

; Shut down GDI+ library
_GDIPlus_ShutDown()