Экспорт Memo с документами ..

[Masygreen]

Итак в мемо текст + документы приложили
выгрузили

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

ExportMemoToFile

загрузили

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

ImportFileToMemo

получили кракозябры .. так как будто прикрепленные документы типа текст .. О_о возможно победить ?

[edward_K]

Префикс нужно ставить посоле импорта

[Masygreen]

Префикс нужно ставить посоле импорта

??
function GetMemoPrefix(aList: integer): string;

procedure SetMemoPrefix(list: integer; prefix: string);

а что тут aList??

[m0p3e]

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

Назначение

Получить префикс мемо-поля для узла логической таблицы.

Описание

function GetMemoPrefix (aList : integer) : string;
Параметры

aList - номер узла логической таблицы.

Возвращаемое значение

Строка "Err", если была ошибка.

[Masygreen]

спасибо кэп .. хелп у меня тоже есть .. но что это в реальности ?? ни фига не понял ..
допустим у меня memo это поле моей таблицы ..

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

Create Table D_PIR.MSPDocsPIR
....
,mData            : lvar     "Данные"  

и чего я должен тут проставить ???

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

GetMemoPrefix (????????????) : string;

примерчиком не поделитесь?

[m0p3e]

Мемо поле в таблице может быть только одно.
Соответственно указывать его не требуется.
GetMemoPrefix(#Appendix) или GetMemoPrefix(tnAppendix)
Все просто

[Masygreen]

Ну дабы не забыть, и может кому пригодится ...

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

Create Table D_PIR.MSPDocsPIR "MR Реестр спецификации вопросов"
  Using "MSPDocs.dat"
  #ifdef ComponentVersion
  Component MR_PIR
  #end
  with table_code = 31602
  With Replace
  With TableOptions header
(
  num              : integer  "Номер п/п"
 ,mData            : lvar     "Данные"    

экспорт

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

                XMLDOMElement_SetAttribute(xml_spelement, 'Prefix', GetMemoPrefix(tnMSPDocsPIR));
                ExportMemoToFile(MSPDocsPIR.mData, _FolderExport + '\' + _FileNameMemo, false);

импорт

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

                  ImportFileToMemo(MSPDocsPIRIns.mData, _FolderExport + _str, false);
                  SetMemoPrefix(tnMSPDocsPIRIns, _Prefix);
                  insert current MSPDocsPIRIns;