Gedemin TLB.IgsApplication.MimeEncodeStream - История изменений

SYSDBA в 16:21, 14 мая 2016

2016-05-14T16:21:04Z

SYSDBA в 11:00, 16 июля 2014

2014-07-16T11:00:34Z

SYSDBA в 11:49, 14 июля 2014

2014-07-14T11:49:39Z

SYSDBA в 11:34, 14 июля 2014

2014-07-14T11:34:45Z

SYSDBA: /* Пример кодирования данных файла в base64 */

2014-07-14T11:25:55Z

‎Пример кодирования данных файла в base64

SYSDBA в 11:25, 14 июля 2014

2014-07-14T11:25:38Z

SYSDBA в 11:25, 14 июля 2014

2014-07-14T11:25:02Z

SYSDBA в 11:24, 14 июля 2014

2014-07-14T11:24:31Z

SYSDBA: Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure MimeEncodeStream(const InputStream: Ig…»

2014-07-14T11:04:18Z

Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure MimeEncodeStream(const InputStream: Ig…»

Новая страница

{{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>

====См. также====

* [http://en.wikipedia.org/wiki/Base64 Base 64]

@@ Строка 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;}}
-<onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (параметр '''WithCRLF = True''') или без нее ('''WithCRLF = False'''). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]].
+<onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (параметр '''WithCRLF = True''') или без нее ('''WithCRLF = False'''). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]]. См. пример [[Кодирование данных в base64]].
-−
-====Пример кодирования данных файла в base64====
-−
-<syntaxhighlight lang="vbnet">
-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
-</syntaxhighlight>
-−
-====Пример кодирования данных двоичного поля в base64====
-−
-<syntaxhighlight lang="vbnet">
-Option Explicit
-Sub EncodeBase64
-−
-  ...
-−
-  Dim Creator, InStream, OutStream
-−
-  Set Creator = New TCreator
-  ' Исходный файл с данными, которые мы будем кодировать
-  Set InStream = Creator.GetObject(nil, "TMemoryStream", "")
-  ' Сюда мы поместим закодированные в base64 данные
-  Set OutStream = Creator.GetObject(nil, "TStringStream", "")
-−
-  ...
-  q.FieldByName("field_name").SaveToStream(InStream)
-−
-  ' двоичные данные => base64 с разбивкой на строки
-  Call Application.MimeEncodeStream(InStream, OutStream, True)
-−
-  ' перекодированные данные выводим на экран
-  MsgBox OutStream.DataString
-−
-  ...
-End Sub
-</syntaxhighlight>
-−
-====См. также====
-−
-* [http://en.wikipedia.org/wiki/Base64 Base 64]

@@ Строка 22: / Строка 22: @@
    ' двоичные данные => base64 с разбивкой на строки
    Call Application.MimeEncodeStream(InStream, OutStream, True)
 End Sub
 </syntaxhighlight>

@@ Строка 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;}}
-<onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (WithCRLF = True) или без нее (WithCRLF = False). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]].
+<onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (параметр '''WithCRLF = True''') или без нее ('''WithCRLF = False'''). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]].
 ====Пример кодирования данных файла в base64====

@@ Строка 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;}}
-<onlyinclude>Кодирует двоичный поток в base64 с разбивкой на строки или без нее.</onlyinclude> Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]].
+<onlyinclude>Кодирует двоичный поток в base64.</onlyinclude> С разбивкой на строки (WithCRLF = True) или без нее (WithCRLF = False). Парная процедура к [[Gedemin TLB.IgsApplication.MimeDecodeStream|MimeDecodeStream]].
 ====Пример кодирования данных файла в base64====
@@ Строка 20: / Строка 20: @@
    Set OutStream = Creator.GetObject(Array("c:\temp\some_file.txt", fmCreate), "TFileStream", "")
    Call Application.MimeEncodeStream(InStream, OutStream, True)
 End Sub

@@ Строка 5: / Строка 5: @@
 ====Пример кодирования данных файла в base64====
-<syntaxhighlight lang="xbasic">
+<syntaxhighlight lang="vbnet">
 Option Explicit
 Sub EncodeBase64