Вставка изображений в rtf

[Юнный_программер :)]

Посоветуйте, пожалуйста, как можно вставить изображение в ртф (в код, а не в окошко, открываемое редакторами, поддерживающими данный формат).

Если только при помощи

Код: Выделить всё

{\pict ... <шестнадцатеричный код картинки>}

, то тогда вопрос ставится иначе:

Рисунок берется из базы (здесь: RecordImageField)
Далее делается так:

Код: Выделить всё

'Set array size in accordance with field size
ReDim PlotArray(RecordImageField.Size)
'Save image into the array
PlotArray() = RecordImageField
'Set the path to the temporary grafic file
FilePath = CurrentDirectory & "\" & FileName
FileHandle = FreeFile
Open FilePath For Binary Access Write As FileHandle
Put FileHandle, , PlotArray()
Close FileHandle


Как теперь можно получить шестнадцатеричный код картинки?

[Юнный_программер :)]

Всё! Всем спасибо за внимание! Проблема решена!