Есть ли возможность в gt.m читать и писать по типу %FileBinaryStream?

Для примера...
Сохранить некий exe или jpg файл в глобал. Потом прочитать его и записать обратно в другой файл.

Valeriu , переводил переводчиком... Т.ч. ответа или примера как это сделать так и не увидел.

Все сообщения датируются началом 14-го года... Так ничего в этом плане не появилось?

Все, что нужно это параметры/ключи команды


Позволяющие "стремно" прочитать файл и "стремно" его записать...

andrew000999По идее посимвольно пишем
и посимвольно считываем
Это не совсем так.
Файл jpg это не текстовый файл, с которым такое прокатит.

ValeriuМожет это поможет?
Бум смотреть...

andrew000999По идее посимвольно пишем
и посимвольно считываем
Даже проверил твое предположение...tmp ;;;;[ 16.12.2015 10:59 ]
  n
  d LOAD
  d SAVE
  q
SAVE ; Записать в файл
  n dev,str
  s dev=$$fOpen("/srv/box/tmp1.gif")
  i dev="" w !,"Файл недоступен..." q
  u dev 
  s i=""
  f  s i=$o(^tmpKSA(i)) q:i=""  d LINE
  c dev
  q
LINE ;
  w ^tmpKSA(i)
  w:$o(^tmpKSA(i))'="" $c(10)
  q
LOAD ; Прочитать файл
  n dev,str,len
  k ^tmpKSA
  s dev=$$fOpen("/srv/box/tmp.gif","R")
  i dev="" w !,"Файл недоступен..." q
  s len=100
  u dev
  f  d PART q:$$fEnd   
  c dev
  q
PART ;
  r str#len
  s ^tmpKSA($i(^tmpKSA))=str
  q
  ;;; Открыть файл
fOpen(File,Typ,Byte,Sym)
  n oet
  s:$g(Typ)="" Typ="W"
  q:":\/"[$e($re(File)) ""
  s oet=$et
  s $ec=""
  s $et="d fOpenErr"
  d FOPEN
  q $s($t:File,1:"")
FOPEN ; Собственно открытие
  i Typ="W" o File:(newversion:noreadonly):0 q
  i Typ="M" o File::0 q
  o File:(readonly):0
  q
fOpenErr() ; Обработчик ошибок при открытии файла
  s File=""
  s $et=oet
  s $ec=""
  q:$q 1
  q
  ;;; Достигнут конец файла 
fEnd(Dev)
   q $zeofФайл получается немного больше... И не является картинкой.

andrew000999посимвольное считывание r *s в цикле любой файл считает правильно вместе с терминаторами
Сей час попробую и это...

andrew000999посимвольное считывание r *s в цикле любой файл считает правильно вместе с терминаторами
Вот спасибо!

Действительно все перезаписалось как нужно!!!tmp ;;;;[ 16.12.2015 11:03 ]
  n
  d LOAD
  d SAVE
  q
SAVE ; Записать в файл
  n dev,str
  s dev=$$fOpen("/srv/box/tmp1.gif")
  i dev="" w !,"Файл недоступен..." q
  u dev 
  s i=""
  f  s i=$o(^tmpKSA(i)) q:i=""  d LINE
  c dev
  q
LINE ;
  w ^tmpKSA(i)
  q
LOAD ; Прочитать файл
  n dev,str
  k ^tmpKSA
  s dev=$$fOpen("/srv/box/tmp.gif","R")
  i dev="" w !,"Файл недоступен..." q
  u dev
  f  d PART q:$$fEnd   
  c dev
  q
PART ;
  r *str
  s ^tmpKSA($i(^tmpKSA))=$c(str)
  q
  ;;; Открыть файл
fOpen(File,Typ,Byte,Sym)
  n oet
  s:$g(Typ)="" Typ="W"
  q:":\/"[$e($re(File)) ""
  s oet=$et
  s $ec=""
  s $et="d fOpenErr"
  d FOPEN
  q $s($t:File,1:"")
FOPEN ; Собственно открытие
  i Typ="W" o File:(newversion:noreadonly):0 q
  i Typ="M" o File::0 q
  o File:(readonly):0
  q
fOpenErr() ; Обработчик ошибок при открытии файла
  s File=""
  s $et=oet
  s $ec=""
  q:$q 1
  q
  ;;; Достигнут конец файла 
fEnd(Dev)
   q $zeof

ValeriuА почему вам не подходит сохранить jpg файлы, как
советуют, в отдельный файл самой файловой системы
Linux, а в самой базе хранить только пути к метаданным ?
Отвечу стандартно. Вера не позволяет...