Gedemin TLB.IgsApplication.MimeEncodeStream
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) (→Пример кодирования данных файла в base64) |
||
| Строка 5: | Строка 5: | ||
====Пример кодирования данных файла в base64==== | ====Пример кодирования данных файла в base64==== | ||
| − | <syntaxhighlight lang=" | + | <syntaxhighlight lang="vbnet"> |
Option Explicit | Option Explicit | ||
Sub EncodeBase64 | Sub EncodeBase64 | ||
Версия 14:25, 14 июля 2014
From Gedemin TLB.pas
procedure MimeEncodeStream(const InputStream: IgsStream; const OutputStream: IgsStream; WithCRLF: WordBool); safecall;
Unit: Gedemin TLB
Type: procedure
Visibility: public
Member Of: IgsApplication
Описание
Кодирует двоичный поток в base64 с разбивкой на строки или без нее. Парная процедура к MimeDecodeStream.
Пример кодирования данных файла в base64
Option Explicit Sub EncodeBase64 Const fmOpenRead = 0 Const fmCreate = &HFFFF& Dim Creator, InStream, OutStream Set Creator = New TCreator ' Исходный файл с данными, которые мы будем кодировать Set InStream = Creator.GetObject(Array("c:\temp\some_file", fmOpenRead), "TFileStream", "") ' Сюда мы поместим закодированные в base64 данные Set OutStream = Creator.GetObject(Array("c:\temp\some_file.txt", fmCreate), "TFileStream", "") Call Application.MimeEncodeStream(InStream, OutStream, True) End Sub
