Вопрос о файлах ресурсов
Мне необходимо загнать rtf текст с формулами (это важно) в рес файл. Когда я его сохраняю там - все вроде бы норм, но вот при его чтении richtextbox'ом он выдает часть текста в норм. виде - часть знаками вопросов и квадратиками. Я там понял, что в рес файле (я сохраняю rtf в виде custom data, а читаю loadresdata) данные храняться в бинарном виде. Так собственно вопрос - как вернуть rtf формат с формулами? :confused:
а ты как ео читаешь?
я так понимаю, что надо задать динамический массив x() as byte
а затем делать x()=loadresdata(101,"Custom") (к примеру)
я так понимаю, что надо задать динамический массив x() as byte
а затем делать x()=loadresdata(101,"Custom") (к примеру)
Нет, чтение из массива не помогло...
Azur
Выложи код суда посмотру, если че помогу.:)
Выложи код суда посмотру, если че помогу.:)
Да в том то и дело, что кода как такового нет :D Я тупо кидаю ртф файлы в файл ресурсов через редактор. Там их сохраняю, а читаю совершенно банально - r[COLOR="DarkOrange"]ichtextbox1.textrtf = loadresdata(101,"Custom")[/COLOR]. Вотъ. Понимаю, что это глупо - просто впервые работаю с файлами ресурсов...
Всем пасибо, проблема исчерпана :) Я распаковывал из ресурса файл двочной записью на диск с rtf расширением и читал его с диска :)
Вот код, для тех, кто столкнеться с моей проблемой :)
[SIZE="2"]Dim Arr() As Byte
Dim f As Long
Arr() = LoadResData(101, "CUSTOM")
f = FreeFile
On Error Resume Next
Open App.Path & "\data\глава 1.rtf" For Binary Access Write As #f
Put #f, , Arr
Close #f[/SIZE]
Вот код, для тех, кто столкнеться с моей проблемой :)
[SIZE="2"]Dim Arr() As Byte
Dim f As Long
Arr() = LoadResData(101, "CUSTOM")
f = FreeFile
On Error Resume Next
Open App.Path & "\data\глава 1.rtf" For Binary Access Write As #f
Put #f, , Arr
Close #f[/SIZE]
и я о том же говорил :)