ФорматИзображения.Png (ImageFormat.Png) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Стр1 = "/9j/4AAQSkZJRgABAQEAeAB4AAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMj
|IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAgACADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUE
|GE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT
|1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8
|RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADA
|MBAAIRAxEAPwD0zxHq9xHei1gTciAZXk73IzjA5OAK5m01CXUGk8iSBHjbDrDCI3jOfzFal5cW8vi27lF7KsEP7tvLYx/Pj5gGHOBgZOR0wOM5pyWEPiDUGuNH1CCPxBaKWjmLApeQ5AKTberDKgtj+6cdMeTicNWrXca
|jT6HBicpxM4+1cvO3l0New1i/S8trK6ufMeXPldA7YBPPrwDzxW+upiGW2SaUSLc42MRtZc9M44xyB/jXG2OixaBcSyXt02oa7Pzc3POIVI/1cfpkcZHIHTHArQ2SzSxSSYMkk0UaDGAPmHAHoBk/hXDPGVMNUjQT5pu1
|z08FhansP3r2+88UvJr7UZwkpnIlk4hUHLux547kk9/WvR9BFh4UhOnWtxbw6m/7u9vAVbyiOsUIbhipPLEEZzkEjaNXxL8NZby4a60W7jgl8/7QgkypikySdpAOVPoenqRxXM6l8M/EF99o1O5gtJL1n3SxwuP3+Tkuo
|wAreo6NnPBzn6TLcNSVVrEP0Z6mdZo69GKwysluup0Fzqf265jCyw/2yhxGzEImoKP4eeFlHTHQ9uOBd0TWje/EE6RJaeU1naNKULhjC52jkqSC2DjrgdOpOPMm8L6lGrW7WWoR5+Vo/s0h5+mMH8DXpHwy8FzeHhdahe
|RtFcXCiNInOWCZyS3uTjjsB713YzKcHRl9ZjJNs+doY6rUXs3Fqx//2Q==";
Изображение1 = Ф.Картинка(Стр1);
Png = Ф.ФорматИзображения().Png;
Стр = Изображение1.ЗакодироватьВСтроку(Png);
Изображение2 = Ф.Картинка(Стр);
ИмяВременногоФайла = СтрЗаменить(ПолучитьИмяВременногоФайла(), ".", "") + ".Png";
Изображение2.Сохранить(ИмяВременногоФайла, Png);

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Стр1 = "/9j/4AAQSkZJRgABAQEAeAB4AAD/2wBDAAgGBgcGBQgHBwcJCQgKDBQNDAsLDBkSEw8UHRofHh0aHBwgJC4nICIsIxwcKDcpLDAxNDQ0Hyc5PTgyPC4zNDL/2wBDAQkJCQwLDBgNDRgyIRwhMjIyMjIyMjIyMj
|IyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjIyMjL/wAARCAAgACADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUE
|GE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT
|1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8
|RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADA
|MBAAIRAxEAPwD0zxHq9xHei1gTciAZXk73IzjA5OAK5m01CXUGk8iSBHjbDrDCI3jOfzFal5cW8vi27lF7KsEP7tvLYx/Pj5gGHOBgZOR0wOM5pyWEPiDUGuNH1CCPxBaKWjmLApeQ5AKTberDKgtj+6cdMeTicNWrXca
|jT6HBicpxM4+1cvO3l0New1i/S8trK6ufMeXPldA7YBPPrwDzxW+upiGW2SaUSLc42MRtZc9M44xyB/jXG2OixaBcSyXt02oa7Pzc3POIVI/1cfpkcZHIHTHArQ2SzSxSSYMkk0UaDGAPmHAHoBk/hXDPGVMNUjQT5pu1
|z08FhansP3r2+88UvJr7UZwkpnIlk4hUHLux547kk9/WvR9BFh4UhOnWtxbw6m/7u9vAVbyiOsUIbhipPLEEZzkEjaNXxL8NZby4a60W7jgl8/7QgkypikySdpAOVPoenqRxXM6l8M/EF99o1O5gtJL1n3SxwuP3+Tkuo
|wAreo6NnPBzn6TLcNSVVrEP0Z6mdZo69GKwysluup0Fzqf265jCyw/2yhxGzEImoKP4eeFlHTHQ9uOBd0TWje/EE6RJaeU1naNKULhjC52jkqSC2DjrgdOpOPMm8L6lGrW7WWoR5+Vo/s0h5+mMH8DXpHwy8FzeHhdahe
|RtFcXCiNInOWCZyS3uTjjsB713YzKcHRl9ZjJNs+doY6rUXs3Fqx//2Q==";
Изображение1 = Ф.Картинка(Стр1);
Png = Ф.ФорматИзображения().Png;
Стр = Изображение1.ЗакодироватьВСтроку(Png);
Изображение2 = Ф.Картинка(Стр);
ИмяВременногоФайла = СтрЗаменить(ПолучитьИмяВременногоФайла(), ".", "") + ".Png";
Изображение2.Сохранить(ИмяВременногоФайла, Png);

Сообщить(?(
"" + Png = "КлФорматИзображения"
, "", "!!! ") + "ФорматИзображения.Png (ImageFormat.Png) Свойство" + " " + ТекущаяДата());