Как преобразовать рисунок из "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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы