ADODB.Stream чтение bin файла #303015

Засада, возвращает variant... может подскажете как прочитать бин файл?

MSscriptControl а нафига как бин ?

В базе сохранять word файлы, что бы по УРИБ передавались

Я в своё время пробывал картинки передавать - не полетело. Картинка сохраняется, но цвета другие. Лазил в отладчике - до сохранения строка одна, после другая. ХЗ почему.

Там проблем много, сохранять надо бинарник в неограиченную строку (на самом деле ограниченную около 700кБ вроде, приходится бить), 1с не воспринимает симовлы 0 и если в конце строки 1-32 то обрезает их нах, все взлетает с ВК, но хочется без ВК :)

см + аски85

и... уж тогда лучче ртф, там простой текст все

симв прекрасно воспринимается, только немного подумать

>>1с не воспринимает симовлы 0 и если в конце строки 1-32 то обрезает их нах это всё решаемо. Вопрос был не в целостности, а в непонятных искажениях. >>взлетает с ВК, но хочется без ВК Можно и без ВК. Но это долго работает.

Ну если уж свосем ппц, то ВК придется юзать...

BinFiles.dll - тебе поможет

её то и пробовал, все сработало пучком

[1C] //******************************************* Процедура Сформировать    Перем Путь,Имя;    Если ФС.ВыбратьФайл(0,Имя,Путь,"","Все файлы (*.*)|*.*","")=0 Тогда        Возврат;    КонецЕсли;    Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");    Скрипт.language="javascript";    Стрим=СоздатьОбъект("adodb.stream");    Стрим.type=2;    Стрим.charset="windows-1251";    Стрим.Open;    Стрим.LoadFromFile(Путь+Имя);    Скрипт.AddObject("Стрим",Стрим);    Стр=Скрипт.Eval("Стр=escape(Стрим.ReadText.toString)");    Стрим.Close;    Стрим.Open;    Скрипт.Eval("Стрим.WriteText(unescape(Стр))");    Стрим.SaveToFile(Путь+Имя+".1",2);    Сообщить(СтрДлина(Стр));    Стрим.Close;    Скрипт.Reset; КонецПроцедуры [1C] быстрый метод без ВК, но избыточный размер строки, если скрестить с но использовать методы мсскриптконтрол(джабаскрипт) то будет избыточность всего 25%