Как преобразовать рисунок из "png" в "bmp" или в "jpg"? - VB
Формулировка задачи:
Есть программка, которая ставит обои рабочего стола на выбор пользователя, она может поставить только "jpg" и "bmp", так как "png" тоже часто используемый формат, нужно сконвертировать в один из доступных форматов и положить в какую-нибудь папку. Если у вас есть пример программы, которая ставит обои рабочего стола с поддержкой формата "png", тоже можете выложить тут. Заранее спасибо!
Решение задачи: «Как преобразовать рисунок из "png" в "bmp" или в "jpg"?»
textual
Листинг программы
ProcedureDLL AttachProcess(Instance) UsePNGImageDecoder() UseJPEGImageEncoder() EndProcedure ProcedureDLL PngToBmp(File.s) Result = LoadImage(#PB_Any, File) If Result Result = SaveImage(Result, Left(File, Len(File)-Len(GetExtensionPart(File)))+"bmp", #PB_ImagePlugin_BMP) FreeImage(Result) EndIf ProcedureReturn Result EndProcedure ProcedureDLL PngToJpg(File.s, Flag) Result = LoadImage(#PB_Any, File) If Result Result = SaveImage(Result, Left(File, Len(File)-Len(GetExtensionPart(File)))+"jpg", #PB_ImagePlugin_JPEG, Flag) FreeImage(Result) EndIf ProcedureReturn Result EndProcedure
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д