Gedemin TLB.IgsApplication.MimeEncodeStream

Материал из GedeminWiki
(Различия между версиями)
Перейти к: навигация, поиск
 
Строка 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> С разбивкой на строки (параметр '''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]
+

Текущая версия на 19:21, 14 мая 2016

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.

Источник — «https://gsbelarus.com:80/gs/wiki/index.php?title=Gedemin_TLB.IgsApplication.MimeEncodeStream&oldid=6905»
Персональные инструменты
Пространства имён

Варианты
Действия
Навигация
Инструменты