Gedemin TLB.IgsApplication.MimeEncodeStream
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure MimeEncodeStream(const InputStream: Ig…») |
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> | + | <onlyinclude>Кодирует двоичный поток в base64 с разбивкой на строки или без нее.</onlyinclude> Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]]. |
| + | |||
| + | ====Пример кодирования данных файла в base64==== | ||
| + | |||
| + | <syntaxhighlight lang="vb"> | ||
| + | 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 | ||
| + | </syntaxhighlight> | ||
====См. также==== | ====См. также==== | ||
* [http://en.wikipedia.org/wiki/Base64 Base 64] | * [http://en.wikipedia.org/wiki/Base64 Base 64] | ||
Версия 14:24, 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
