https://gsbelarus.com/gs/wiki/index.php?action=history&feed=atom&title=%D0%9A%D0%BE%D0%B4%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85_%D0%B2_base64
Кодирование данных в base64 - История изменений
2026-04-19T10:32:52Z
История изменений этой страницы в вики
MediaWiki 1.19.16
https://gsbelarus.com/gs/wiki/index.php?title=%D0%9A%D0%BE%D0%B4%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5_%D0%B4%D0%B0%D0%BD%D0%BD%D1%8B%D1%85_%D0%B2_base64&diff=6904&oldid=prev
SYSDBA: Новая страница: «Пример кодирования данных файла в base64: <syntaxhighlight lang="vbnet"> Option Explicit Sub EncodeBase64 Const fmOpenRead = 0 …»
2016-05-14T16:20:55Z
<p>Новая страница: «Пример кодирования данных файла в base64: <syntaxhighlight lang="vbnet"> Option Explicit Sub EncodeBase64 Const fmOpenRead = 0 …»</p>
<p><b>Новая страница</b></p><div>Пример кодирования данных файла в base64:<br />
<br />
<syntaxhighlight lang="vbnet"><br />
Option Explicit<br />
Sub EncodeBase64<br />
<br />
Const fmOpenRead = 0<br />
Const fmCreate = &HFFFF&<br />
<br />
Dim Creator, InStream, OutStream<br />
<br />
Set Creator = New TCreator<br />
' Исходный файл с данными, которые мы будем кодировать<br />
Set InStream = Creator.GetObject(Array("c:\temp\some_file", fmOpenRead), "TFileStream", "")<br />
' Сюда мы поместим закодированные в base64 данные<br />
Set OutStream = Creator.GetObject(Array("c:\temp\some_file.txt", fmCreate), "TFileStream", "")<br />
<br />
' двоичные данные => base64 с разбивкой на строки<br />
Call Application.MimeEncodeStream(InStream, OutStream, True)<br />
End Sub<br />
</syntaxhighlight><br />
<br />
Пример кодирования данных двоичного поля в base64:<br />
<br />
<syntaxhighlight lang="vbnet"><br />
Option Explicit<br />
Sub EncodeBase64<br />
<br />
...<br />
<br />
Dim Creator, InStream, OutStream<br />
<br />
Set Creator = New TCreator<br />
' Исходный файл с данными, которые мы будем кодировать<br />
Set InStream = Creator.GetObject(nil, "TMemoryStream", "")<br />
' Сюда мы поместим закодированные в base64 данные<br />
Set OutStream = Creator.GetObject(nil, "TStringStream", "")<br />
<br />
...<br />
q.FieldByName("field_name").SaveToStream(InStream) <br />
<br />
' двоичные данные => base64 с разбивкой на строки<br />
Call Application.MimeEncodeStream(InStream, OutStream, True)<br />
<br />
' перекодированные данные выводим на экран<br />
MsgBox OutStream.DataString<br />
<br />
...<br />
End Sub<br />
</syntaxhighlight><br />
<br />
====См. также====<br />
<br />
* [http://en.wikipedia.org/wiki/Base64 Base 64]<br />
<br />
[[Category:Импорт/экспорт данных]]</div>
SYSDBA