|
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) Каждому?
|
|
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн