Gedemin TLB.IgsApplication.MimeEncodeStream
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (→Пример кодирования данных файла в base64) |
SYSDBA (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure MimeEncodeStream(const InputStream: IgsStream; const OutputStream: IgsStream; WithCRLF: WordBool); safecall;}} | {{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure MimeEncodeStream(const InputStream: IgsStream; const OutputStream: IgsStream; WithCRLF: WordBool); safecall;}} | ||
| − | <onlyinclude>Кодирует двоичный поток в base64 | + | <onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (WithCRLF = True) или без нее (WithCRLF = False). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]]. |
====Пример кодирования данных файла в base64==== | ====Пример кодирования данных файла в base64==== | ||
| Строка 20: | Строка 20: | ||
Set OutStream = Creator.GetObject(Array("c:\temp\some_file.txt", fmCreate), "TFileStream", "") | Set OutStream = Creator.GetObject(Array("c:\temp\some_file.txt", fmCreate), "TFileStream", "") | ||
| + | ' двоичные данные => base64 с разбивкой на строки | ||
Call Application.MimeEncodeStream(InStream, OutStream, True) | Call Application.MimeEncodeStream(InStream, OutStream, True) | ||
End Sub | End Sub | ||
Версия 14:34, 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. С разбивкой на строки (WithCRLF = True) или без нее (WithCRLF = False). Парная процедура к 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", "") ' двоичные данные => base64 с разбивкой на строки Call Application.MimeEncodeStream(InStream, OutStream, True) End Sub
