forum.clarionlife.net

Опять не получилось...
Что то у меня не так...
Эта схема работает у многих... Видел варианты в сети на С и VB...

Вот... CreateZIPFile PROCEDURE nam1 CSTRING(40),STATIC nam2 CSTRING(40) Loc:STR STRING(22) Loc:Object CSTRING(65) arx1 FILE,DRIVER('DOS'),PRE(ar1),NAME(nam1),create Rec RECORD Name STRING(22) END END CODE nam1 = 'e:\test_zip1\archiv.zip' nam2 = 'e:\test_zip1\Language.doc' IF EXISTS(nam1) OPEN(arx1 )...

Не могу повторить...
Не отрабатывает строка
Loc:Object{'NameSpace("e:\test_zip1\archiv.zip").CopyHere("e:\test_zip1\Language.doc",20)'}

Сам файл создается но в него ничего не копируется... В чем может быть дело?

Название папки по русски?

4. Таблица со значениями для инкремента здесь точно не подойдёт, т.к. ключ составной. Значение получаем посредством обращения к функции и вставляем в любое поле... Обычно конкретное значение не важно... главное больше предыдущего... По этой причине наращивания до или после инкремента не столь важно...

Иногда создавал файл в котором хранил текущие значения для автонумерации...

Название папки содержит русские буквы?

Создал документ PDF в Adobe_Acrobat_933_Pro_Ru-En... из одного слова...
Посмотрел содержимое.... Тихий ужас.... Похоже для киррилицы она загоняет таблицы в тело файла....

Поищем новый...

Файл PDF можно смотреть как текстовый... -------------------------------------------------- 810 0 obj << /Type /Page /Parent 156 0 R /Resources 804 0 R /MediaBox [ 0 0 593 839 ] /Contents [ 807 0 R ] содержимое страницы8 0 obj << /Type /Font /Subtype /Type1 /Name /F3 /FirstChar 1 /LastChar 255 /Widt...

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

Похоже нашел причину
Она по моему в строке кода
SELF.FlateStream &= COMPRESS (SELF.TextBuffer [1 : SELF.BufferLen], -1, LOC:Result)

COMPRESS похоже не понимает Кирилицу...
==================
Опять облом... Похоже дело не в COMPRESS
Отключил сжатие и та же картина...

Сколько времени убьётся на "перелопатить и написать заново"? Не проще заплатить 100 баксов (4-5 часов зарплатного времени) и купить готовое решение? Это конечно вариант... Но привык иметь возможность изменять сам функционал... Если есть возможность стараюсь все писать сам причем СТАНДАРТН...

Ты предлагаешь ОEM поставить? К сожалению фокус не удался... После указания ОЕМ текст перестал вообще отображатся... Использование превьювера Попофф очень по моему перспективно... Пишу отчет в Sourse и вставляю пару команд превьювера... Пришлось немного превьювер модернезировать... Правда и с вывод...

"Пропахал" генерацию PDF Документа.... Файл формируется посредством ReportTarget_OutFile FILE,DRIVER('DOS'),CREATE,PRE(RT_OUT),THREAD RECORD Buffer STRING(64000) END END Похоже тут и "теряются" русские буковки...