AutoHotkey Community

/*

Author: Ben Hackl
Posted: http://www.vbaccelerator.com/home/Resources/Babbage/JPG_DLL_for_VB/JPGWrite.asp

Download Information:

Source:
http://www.vbaccelerator.com/home/Resources/Babbage/JPG_DLL_for_VB/JPGWrite.zip

Backup:
http://autohotkey.net/~goyyah/3PDLL/Image/JPGWrite/JPGWrite.zip

Only DLL : http://autohotkey.net/~goyyah/3PDLL/Image/JPGWrite/dilib.dll

AHK File : http://autohotkey.net/~goyyah/3PDLL/Image/JPGWrite/BMP2JPEG.ahk

*/

;       ** Converting from BMP to JPEG with a Third-party DLL file: DILib.dll **

IfNotExist, dilib.dll
   {
     MsgBox,48, DILib.dll (BMP to JPEG), DILIB.DLL Not Found! ,3   
     Exit
   }

Source   := "C:\Image.bmp" ; Replace with the fullpath to Source Bitmap Image File!
Target   := "C:\Image.jpg" ; Modify to suit needs.
Quality  := 90             ; (1-100) Quality in percentage, Less Quality=Less Output Size
Progress := 0              ; Progressive? 0=False, 1=True

Result:=DllCall("DILib.dll\_DIWriteJpg@16", Str,Target
               , Str,Source, Int,Quality, Int,Progress)+1

Msg:="Conversion Successful|An Error Occured|Error Reading Source|Error Writing Target|"
StringSplit, Message, Msg, |
MsgBox,64, DILib.dll (BMP to JPEG), % Message%Result% ,3

Return

WinHide, % "ahk_id " DllCall("GetTaskmanWindow")

WinShow, % "ahk_id " DllCall("GetTaskmanWindow")