v7: Преобразование строки в BASE64
☑
0
OnePrg
13.06.22
✎
17:17
Дайте пример.
1
Volodja
13.06.22
✎
17:24
Функция глКодироватьСтрокуВ_Base64(_Строка, Кодировка="Base64") Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Стрим.WriteText(_Строка);
Стрим.Flush();
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Возврат Стрим.ReadText();
КонецФункции
2
OnePrg
13.06.22
✎
17:47
(1) Спасибище, друг!
3
Volodja
13.06.22
✎
18:01
(2) Держи для кучи
Функция глДекодироватьСтрокуИз_Base64(_Строка, Кодировка) Экспорт
ЦДО=СоздатьОбъект("CDO.Message");
БодиПарт=ЦДО.BodyPart;
БодиПарт.ContentTransferEncoding = Кодировка;
Стрим=БодиПарт.GetEncodedContentStream();
Поля=БодиПарт.Fields;
Поле=Поля.Item("urn:schemas:mailheader:content-type");
Поле.Value="text/plain; charset=""windows-1251""";
Поля.Update();
Стрим.WriteText(_Строка);
Стрим.Flush();
Стрим = БодиПарт.GetDecodedContentStream();
Стрим.charset = "windows-1251";
Возврат Стрим.ReadText();
КонецФункции
4
Asmody
13.06.22
✎
18:19
(0) с тебя 1500 руб. на карту Мир
5
SleepyHead
гуру
14.06.22
✎
05:42
(4) Каждому?
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс