Img = Новый ComОбъект("WIA.ImageFile");
IP = Новый ComОбъект("WIA.ImageProcess");
Img.LoadFile(ИмяФайлаНач);
IP.Filters.Add(IP.FilterInfos("Convert").FilterID);
IP1 = IP.Filters(1);
Для К = 1 По IP1.Properties.Count Цикл
Если IP1.Properties(К).Name = "FormatID" Тогда
IP1.Properties(К).Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"; //конвертируем в JPG
(0) настройки качества там какие-то есть? PNG, насколько я знаю, формат без потери качества, у JPG качество настраивается, картинка по второй ссылке очень напоминает JPG, у которого качество выставлено на минимум.
кстати, в данном случае еще полезно знать, что PNG поддерживает прозрачный цвет, а JPG нет, поэтому конвертеры обычно заменяют его на белый. Что и произошло у вас.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший