Имя: Пароль:
1C
1C 7.7
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ют. Альберт Эйнштейн