Запись мемо поля в Галактику

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Запись мемо поля в Галактику

Сообщение pavel_rts » Вт янв 25, 2005 05:55

Что лучше использовать для записи мемо поля Галактику??? Фокус с ImportFileToMemo (Table.MemoName, FileName, true) не проходит.
.`)
pavel_rts
Постоянный гость
 
Сообщения: 55
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Москва ЗАО "Рантайм Системс"
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение Galpro_ » Вт янв 25, 2005 13:03

А MyMemo.WriteLn(ххххххххх);
не подходит?
У меня ImportFileToMemo тоже не работает.

============prim code================
if ( inStr('FROM:',TekStr)>0 ) { FROM := trim(replace(TekStr,'FROM:','')) }
if ( inStr('BODYLENGTH:',TekStr)>0 ) { BODYLENGTH := trim(replace(TekStr,'BODYLENGTH:','')) }
if ( inStr('BODYTYPE:',TekStr)>0 ) { BODYTYPE := trim(replace(TekStr,'BODYTYPE:','')) }
if ( inStr('BODY:',TekStr)>0 )
{
IsBody:= True; //все поля считали создаем документ
if((Insert TABLEDOC set
TABLEDOC.DocName := UNIVERSALID,
TABLEDOC.DocDate := Cur_Date,
TABLEDOC.DocTime := Cur_Time,
TABLEDOC.TypeCode := FORMTYPE,
TABLEDOC.code := NOTEID,
TABLEDOC.Primech0 := CREATED,
TABLEDOC.Primech1 := LASTACCESSED,
TABLEDOC.Primech2 := Ansi2Oem(SUBJECT), //41 СИМВОЛ
TABLEDOC.FILENAME := Ansi2Oem(SUBJECT), //101 СИМВОЛ
TABLEDOC.CINTCODESOST := ReVidDoc, //Viddoc-Системный вид документа на который ответ
TABLEDOC.CTABLEDOC := ReNrecDoc, //Nrec-Nrec документа на который ответ
TABLEDOC.Primech3 := Ansi2Oem(FROM),
TABLEDOC.Primech4 := BODYLENGTH,
TABLEDOC.Primech5 := BODYTYPE,
TABLEDOC.Primech6 := Substr(SUBJECT,Poz1+2,3) ,
TABLEDOC.cIntCodeSost := ISDELETED
)=tsOk)
if(( Insert DOCCONT set DOCCONT.CTABLEDOC := TABLEDOC.nrec )= tsOk)
if (MyMemo.OpenMemo(DOCCONT.DOCDATA))
{
IsOpenMemo := True;
MyMemo.Seek(0);
! MyMemo.WriteLn(CREATED);
}

}
}
else
{
// если поле текта документа то все строки далее загоняем в мемополе! ИТ ПАРК itpark.ru
If IsOpenMemo MyMemo.WriteLn(Ansi2Oem(TekStr));
}
Galpro_
Посетитель
 
Сообщения: 38
Зарегистрирован: Вт мар 29, 2005 17:49
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение pavel_rts » Вт янв 25, 2005 15:49

To GalPro
MyMemo.WriteLn(ххххххххх);
Это мы загоняем мемо в память, а как мемо записать в БД Галактики, например в ALLMEMO.MEM .`)
pavel_rts
Постоянный гость
 
Сообщения: 55
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Москва ЗАО "Рантайм Системс"
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение AtlantG » Ср янв 26, 2005 02:17

вероятно Вы не поняли:
сначала объявляем как
File MyMemo;
далее
открываем наше мемо для записи
if (MyMemo.OpenMemo(ALLMEMO.MEM))
{
IsOpenMemo := True;
}
далее пишем и закрываем.
Апдейтим таблицу и усе ;)

"Это мы загоняем мемо в память"
;)
AtlantG
 
Сообщения: 15
Зарегистрирован: Вт мар 29, 2005 17:49
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение Maverick » Ср янв 26, 2005 11:43

Если стандартный ImportFileToMemo не проходит, следовательно и построчная запись не прокатит... видимо файл слишком большой - см. ограничение на хранение данных в мемополях.
тем более для бинарников построчное чтение/запись однозначно не пойдет.
рекомендую все-таки разобратьс, почему у вас не работает ImportFileToMemo.
Я например этой функцией без проблем храню в мемополях RTF и PDF файлы...
кроме того, если файлы слишком большие я их автоматически пакую и только потом пишу в мемо-поле... при этом используется стандартная ImportFileToMemo.
Ройтесь в этом направлении
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Аватара пользователя
Maverick
Абориген
 
Сообщения: 943
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: External Developer
Reputation point: 8

Re: Запись мемо поля в Галактику

Сообщение pavel_rts » Пт фев 04, 2005 12:09

Проблема была не с размером, ведь я заменял просто строчку в существующем мемо, на самом деле, там есть еще один ключик к ларчику, без которого ничего не получается. Пришлось запрашивать исходники Галки, чтобы во всем разобраться. Спасибо всем за помощь! :D
pavel_rts
Постоянный гость
 
Сообщения: 55
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Москва ЗАО "Рантайм Системс"
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение Johny » Пт фев 04, 2005 13:25

А что, нынче раздают исходники Галки?
Безвыходных ситуаций не бывает: DO LOOP WHILE TRUE
Johny
Местный житель
 
Сообщения: 291
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: С-Петербург
Reputation point: 0

Re: Запись мемо поля в Галактику

Сообщение pavel_rts » Сб фев 05, 2005 01:48

Просто, некоторые за них платят деньги.
pavel_rts
Постоянный гость
 
Сообщения: 55
Зарегистрирован: Вт мар 29, 2005 17:49
Откуда: Москва ЗАО "Рантайм Системс"
Reputation point: 0

как быть с мемо без частей

Сообщение edd » Чт фев 03, 2022 15:02

Всем привет!

Апну темку, чтобы не плодить.

В katmc есть примечание, в котором храним фотки продукции.

в мемо есть записи, не имеющие частей (GetPartMemoCount дает -1)

SQL запрос к такому мемо полю
возвращает одну строку, владелец записи не я.
Если открыть карточку этой мц, и заглянуть в комментарий, то мы увидим пустое белое поле с расширением TXT.

Т.е. мемо по сути чисто? Видимо владелец записи добавил файл, потом удалил?

ОК, если я в цикле записываю что-то в это поле, причем не важно, полностью заменяя содержимое
Код: Выделить всё
ImportFileToMemo(allmemo.mem, path + NameFile[i], FALSE)
    if (UpDate current AllMemo = tsOK)
...

или записывая в конец
Код: Выделить всё
ImportFileToMemo(allmemo.mem, path + NameFile[i] , TRUE)
    if (UpDate current AllMemo = tsOK)
...

в результате в карточке отображается файл, который добавлен первым!

В логе ошибок нет, файлы разные.

В мемо-поля, имеющих несколько частей, добавляются новые файлы без проблем.

Что я делаю не так? Что можно сделать? Я бы добавлял новую часть в мемо, но не вижу такой функции..
edd
Постоянный обитатель
 
Сообщения: 166
Зарегистрирован: Вт мар 29, 2005 17:49
Reputation point: 5

Re: Запись мемо поля в Галактику

Сообщение edd » Пт фев 04, 2022 10:27

Нашел, это функция ImportFileToMemoAZM
Именно она и создает часть в мемо, что решает мой вопрос.
Всем спасибо за прочтение! :)
edd
Постоянный обитатель
 
Сообщения: 166
Зарегистрирован: Вт мар 29, 2005 17:49
Reputation point: 5


Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


cron