v7: Преобразование строки в BASE64

1C 7.7

☑

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) Каждому?