Хранение изображений в memo-полях в БЭСТ-4
Select messages from
 # through # FAQ
[/[Print]\]

-> Программирование в БЭСТ-4
#1: Хранение изображений в memo-полях в БЭСТ-4 Author: Марина, Location: Кондрина Марина Александровна PostPosted: 19 Oct 2007 08:54
    —
Добрый день!
Наверное, я очень отстала от жизни, просветите меня пожалуйста!
Допустим, я отсканировала изображение. Даже преобразовала его в pdf-формат, чтоб оно было поменьше. И записала в файл.
Теперь я хочу связать изображение с партией товара или с товаром в БЭСТ-4. И выводить набор этих изображений при печати расходной накладной.
Во-первых, тут народ говорит, что можно затолкать изображение прямо в memo-поле в качестве blob. Если это правда, то как это сделать из плагина БЭСТ-4? Можно ли использовать обычную dbf, какие используются в БЭСТ-4, или какая нужна?
Сделайте, пожалуйста, ликбез
#2:  Author: nordk, Location: Горбунов Константин PostPosted: 19 Oct 2007 10:05
    —
Да не Марина не создавайте себе проблем.
Храните в базе имя файла и этого достаточ
#3: Re: Хранение изображений в memo-полях в БЭСТ-4 Author: Яков, Location: Яков PostPosted: 19 Oct 2007 10:16
    —
Марина wrote:
Можно ли использовать обычную dbf, какие используются в БЭСТ-4, или какая нужна?

Что-то мне напоминает, что такая возможность появилась только в VPF.
А Константин прав. Имени файла будет вполне достаточно.
к тому же
Марина wrote:
Теперь я хочу связать изображение с партией товара или с товаром в БЭСТ-4. И выводить набор этих изображений при печати расходной накладной.

Один сертификат может относиться к нескольким товарам.
#4:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 09:49
    —
Ну хорошо, допустим у меня имена pdf-файлов в поле БД.
Но как ими воспользоваться? Через дизайнер не получается, вызов Application также не выходи
#5:  Author: nordk, Location: Горбунов Константин PostPosted: 22 Oct 2007 10:55
    —
Марина посовещавшись с Дмитрием Шлыоквым.
Я так понял что другого пути как через мемо-поле
у нас действительно нет к сожалению.
Значит вопрос возвращается к созданию временного
файла с мемо-полем, как Вы и просили.
Попробую разобраться.
#6:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 11:27
    —
nordk wrote:
Марина посовещавшись с Дмитрием Шлыоквым.
Я так понял что другого пути как через мемо-поле
у нас действительно нет к сожалению.

В случае Дизайнера - понятно. А почему не удается запустить просто CreateObject и как-то назначить ему имя?
oApp = CreateObject("Acrobat Reader 5.0.Application")
oApp = CreateObject("'Acrobat Reader'.Application")
oApp = CreateObject("Acrobat.Application")
oApp = CreateObject("AcroRd32.Application")
#7:  Author: Яков, Location: Яков PostPosted: 22 Oct 2007 12:50
    —
А я втаком случае хранил бы в Бэсте номер сертификата.
А в другом файле (связанным по этому номеру) хранил бы уже в мемо поле и картинку.
зачем mlabel портить.
#8:  Author: grey, Location: Родионов С.Г. PostPosted: 22 Oct 2007 13:02
    —
Марина wrote:

В случае Дизайнера - понятно. А почему не удается запустить просто CreateObject и как-то назначить ему имя?
oApp = CreateObject("Acrobat Reader 5.0.Application")
oApp = CreateObject("'Acrobat Reader'.Application")
oApp = CreateObject("Acrobat.Application")
oApp = CreateObject("AcroRd32.Application")


http://support.adobe.com/devsup/devsup.nsf/docs/51619.htm

Quote:
Please note that OLE Automation is only supported in full version of Acrobat (not Reader).

ИМХО изображения лучше хранить в JPG формате. Тогда их можно будет выводить через frPicture

Last edited by grey on 22 Oct 2007 13:12; edited 2 times in total
#9: Re: Хранение изображений в memo-полях в БЭСТ-4 Author: grey, Location: Родионов С.Г. PostPosted: 22 Oct 2007 13:08
    —
Яков wrote:
Один сертификат может относиться к нескольким товарам.


А на сколько товаров - 2,10,50 ? Может стоит реализовать множественную привязку в MLImage ?
#10:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 13:34
    —
Яков wrote:
А я втаком случае хранил бы в Бэсте номер сертификата.
А в другом файле (связанным по этому номеру) хранил бы уже в мемо поле и картинку.
зачем mlabel портить.


Разумеется, в другом файле надежнее. Но зачем какой-то номер сертификата, когда есть номенклатурный номер и номер партии и все однозначно

Что касается множественной привязки. Основная часть картинок (документов) уникальна для партии, это несколько страниц, не менее трех. И только один листочек (сертификат) может повторяться для нескольких партий. Я например решила не городить из-за этого огород, особенно с учетом того, как такой огород в будущем осложнил бы удаление ненужных картинок.

А вот насчет JPG даже не знаю. В нашей организации думаю непросто будет зарезервировать столько гигов под ресурс для хранения картинок. По крайней мере вопрос про PDF интересен. Уж если не будет другого выхода...
#11:  Author: Яков, Location: Яков PostPosted: 22 Oct 2007 13:44
    —
Марина wrote:
Основная часть картинок (документов) уникальна для партии,

Партии товарОВ или партии това
#12:  Author: nordk, Location: Горбунов Константин PostPosted: 22 Oct 2007 13:45
    —
Марина а сколько у вас килобайт в JPG для одной картинки ?
#13:  Author: grey, Location: Родионов С.Г. PostPosted: 22 Oct 2007 13:49
    —
Никак не могу понять почему у Вас PDF меньше чем JPEG. Вы их через OCR прогоняете?
#14:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 14:04
    —
Яков wrote:
Марина wrote:
Основная часть картинок (документов) уникальна для партии,

Партии товарОВ или партии товарА?


А
Уникальна для записи spr_part-
#15:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 14:13
    —
grey wrote:
Никак не могу понять почему у Вас PDF меньше чем JPEG. Вы их через OCR прогоняете?


Я их просто получаю FineReader-ом OCR, может поэтому?

Вот взяла один файлик для примера, получилось 301Кб против 122Кб (jpg в 2,5 раза больше). Но это ничего, ведь когда я писала о гигабайтах, просто перепутала с bmp (он был 1Мб)

В общем, высочайшую санкцию начальника на использование jpg я теперь получила, так что теперь можно и через jpg.
#16:  Author: Дениска,  PostPosted: 22 Oct 2007 14:54
    —
Марина wrote:

Я их просто получаю FineReader-ом OCR, может поэтому?

Вот взяла один файлик для примера, получилось 301Кб против 122Кб (jpg в 2,5 раза больше). Но это ничего, ведь когда я писала о гигабайтах, просто перепутала с bmp (он был 1Мб)

В общем, высочайшую санкцию начальника на использование jpg я теперь получила, так что теперь можно и через jpg.


Файлы с jpg можно сохранять не с полным качеством. При сохранение с качеством 70% для глаза даже при печати это практически не заметно, а файлы при этом уменьшаются иной раз в 3 раза. Правда умеет ли это делать FineReader я не знаю, если не умеет, то я думаю не стоит огород городить ...
#17:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 15:31
    —
Нет, 70% пока не получается

Я вот думаю, если я установила полную версию Adobe Acrobat 8 Professional, то теперь CreateObj уже должен получаться. Но не получается. Неверное,я неправильно задаю параметр в скобках, может кто-нибудь подскажет, как над
#18:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 22 Oct 2007 16:16
    —
Ну что же, будем ждать советов по технологии засовывания изображения в memo-поле отдельного файл
#19:  Author: Яков, Location: Яков PostPosted: 23 Oct 2007 05:58
    —
У нас наверное номенклатура разная.
У меня в одном сертификате почемуто идет перечисление целых товарных групп.
+ есть разделение по цветам и размера
#20:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 23 Oct 2007 10:28
    —
nordk wrote:
Марина посовещавшись с Дмитрием Шлыоквым.
Я так понял что другого пути как через мемо-поле
у нас действительно нет к сожалению.
Значит вопрос возвращается к созданию временного
файла с мемо-полем, как Вы и просили.
Попробую разобраться.


Константин, файлы наверное я могу не создавать из программы, а взять готовые. Вы подскажите пожалуйста, как в мемо-поле затолкать файл с картинкой (наименование функции, параметры).
#21:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 23 Oct 2007 11:22
    —
Из memo-поля картинка тоже что-то не вытаскивается в Дизайнер. Картинка вроде подключается, но получаются пустые страницы вместо рисунков (пробовала bmp и jpg из spartimg.dbf програмы mlimage)
#22:  Author: nordk, Location: Горбунов Константин PostPosted: 23 Oct 2007 11:49
    —
Марина wrote:
nordk wrote:
Марина посовещавшись с Дмитрием Шлыоквым.
Я так понял что другого пути как через мемо-поле
у нас действительно нет к сожалению.
Значит вопрос возвращается к созданию временного
файла с мемо-полем, как Вы и просили.
Попробую разобраться.


Константин, файлы наверное я могу не создавать из программы, а взять готовые. Вы подскажите пожалуйста, как в мемо-поле затолкать файл с картинкой (наименование функции, параметры).


Марина вобщем функция есть в описании функций к Клипперу 5.3
Называется она
Code:
BLOBIMPORT()
 Read the contents of a file as a BLOB, identified by a memo field number

 Syntax

     BLOBImport(<nFieldPos>, <cSourceFile>) --> lSuccess

 Arguments

     <nFieldPos> is the position of the field in the database file
     structure.

     <cSourceFile> is the name of the file from which to read the BLOB
     data, including an optional drive, directory, and extension.  See
     SETDEFAULT() and SETPATH() for file searching and creation rules.  No
     default extension is assumed.

     This function attempts to open <cSourceFile> in shared mode.  If the
     file does not exist, a runtime error is raised.  If the file is
     successfully opened, the operation proceeds.  If access is denied
     because another process has exclusive use of the file, for example,
     NETERR() is set to true (.T.).  Concurrency control:and BLOBIMPORT()

     Note:  There are no restrictions on the size of <cSourceFile> except
     that you must have enough disk space to make the copy.

 Returns

     BLOBIMPORT() returns true (.T.) if successful; otherwise, it returns
     false (.F.).

 Description

     BLOBIMPORT() provides a mechanism for copying the contents of a file
     into a memo field as BLOB data.  By default, this function operates on
     the currently selected work area.  It can be made to operate on an
     unselected work area by specifying it within an aliased expression.

     BLOBIMPORT() is used in conjunction with BLOBEXPORT() to transfer BLOB
     data back and forth between files and memo fields.  You can use
     BLOBIMPORT() with a variety of file types, including graphic images,
     word processor files, and printer fonts.  These two functions are
     excellent for creating databases for documents, graphics, sounds, etc.

     Note:  DBFieldInfo(DBS_BLOB_TYPE, <nFieldPos>) will return "C"
     (string) for any memo field created using BLOBIMPORT().

 Examples

     þ  This example imports information from a word processing
        document into a field, and then uses BLOBGET() to extract the first
        25 characters of the field:

        FUNCTION POPULATE()
           USE customer NEW VIA "DBFCDX"

           // Construct unique file name based on last
           // name and id
           DO WHILE .NOT. EOF()
              GetPix("Pix", Substr(LastName, 1, 4) + CustID)
              Customer->DBSKIP()
           ENDDO
        FUNCTION GetPix(cPixField, cPixFile)
           LOCAL nPos

           nPos := FieldPos(cPixField)

           // Import the picture file into indicated field
           IF !BLOBImport(nPos, cPixFile)
              Alert("Import of picture " + cPixFile + ";
              failed!")
           ENDIF


Но есть одно но:
временный файл Вы создадите и в мемо-поле положите.
Но все DBF в WINREPORT преобразуются в XML для передачи в FastReport и вот будет ли это поле проходить - сомневаюсь очень сильно: попробуйте.
Если нет - Вы можете создать свой источник в форме с этим
файлом и работать по нему через SELECT
(Не передавать его в WinReport)
#23:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 24 Oct 2007 11:30
    —
B blob.ch вызов BlobImport транслируется в DBFilePut, но на DBFilePut БЭСТ ругается как на неизвестную функцию. hbextern.ch подключена. (SP37)

Что делать дальш
#24:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 25 Oct 2007 10:55
    —
Константин! Надежда еще есть?
#25:  Author: nordk, Location: Горбунов Константин PostPosted: 25 Oct 2007 13:53
    —
Марина потерпите несколько дней пожалуйста.
Я напишу
#26:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 30 Oct 2007 16:52
    —
Для тех программистов, кто еще тупее, чем я. (если такие вообще есть)
Для вызова pdf стоит использовать RunShell
RunShell("X:\trcenter\kartinki\obraz1.pdf")
#27:  Author: Zwezda, Location: Светлана PostPosted: 09 Nov 2007 06:01
    —
Марина,
возникла похожая ситуация: необходимо выводить на печать сертификаты\лицензии на товары. Причем пользователь может выбрать что печатать, а что нет.
Я еще только начала реализовывать идею и задумка следующая: создать таблицу для хранения номеров лицензий с привязкой к номенклатурному номеру товара и группе. Файлы с изображениями хранить в отдельной папке, имя файла - это и будет номер лицензии+'.jpg' (либо другое расширение, еще не решила).
В бланке отчета для вывода изображения использую TrfPictureView (рисунок). Для отображения списка сертификатов TfrlSDBCheckListBox.
Тогда в обработчике события OnBeforePrint того бэнда, на котором лежит Picture пишем что-то вроде:

Code:
begin
 if box.checked[i]=true then
  begin
    Pict1.loadfromfile('D:\pictures\'+[SHIFR]+'.jpg');
    MasterData1.height:=1016;
  end
  else
  begin
    MasterData1.height:=0;
  end;
  i:=i+1;
end


где SHIFR-номер лицензии.
Если Вы продвинулись далеко в этом вопросе, пожалуйста, поделитесь размышлениями.
#28:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 09 Nov 2007 09:51
    —
Да, это здорово. У меня пожалуй получилось немного сложно.

Я сейчас остановилась на pdf, т к к одной партии приходится привязывать до 8 страниц документов, а в jpg это муторно, прявязывать каждую страницу. А еще повлиял на это решение объем привязываемых документов, которые в нашем случае необходимо хранить на сервере.

С целью экономии к каждой партии я привязываю по две pdf - первая pdf привязывается ко всем товарам накладной, поступившей от поставщика (сертификат и т п), вторая индивидуальная для каждого товара (качественное удостоверение с датой розлива и т п)
Привязка выполняется в приходной накладной поставщика

Pdf-ки хранятся на сервере структирированно, т е есть отдельные папки для разных поставщиков, типов алкоголя (водки, вина, шампанские), ну и т п. Это позволяет найти нужный файл и минуя БЭСТ, хотя и непонятно, зачем пользователям это понадобилось

Перечень pdf-файлов с путями у меня находится в отдельной таблице, файл имеет 15-значный ID, с которым я и работаю

В процессе печати (который происходит в расходной накладной) пользователь у меня видит для каждого наименования, привязаны ли уже pdf-ки (их привязывает другой чел) или видит, что такого-то числа эти файлы уже печатались и отправлялись на эту точку, а некоторые еще не отправлялись. Ну то есть он может не печатать документы повторно. Pdf-ки вызываются и печатаются пользователем по отдельности каждая.

Периодически производится удаление ненужных pdf-файлов и очистка информации по ним

Остальные идеи касаются возможной путаницы с партиями идатами розлива в автоматизированных и неавтоматизированных магазинах, но у вас похоже другая задача
#29:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 15 Nov 2007 10:57
    —
Марина wrote:
B blob.ch вызов BlobImport транслируется в DBFilePut, но на DBFilePut БЭСТ ругается как на неизвестную функцию. hbextern.ch подключена. (SP37)

Что делать дальше?


Все-таки хотелось бы получить разъяснения по этому поводу
#30:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 15 Nov 2007 11:02
    —
Вот сейчас потребовалась функция adir, пришлось подключить hbextern.ch и опять ничего не получается. Почему такое происходи
#31:  Author: nordk, Location: Горбунов Константин PostPosted: 15 Nov 2007 16:59
    —
Про adir покажите фрагмент текста. Должно работать
а вот blob.ch в БЭСТе не используется как выяснилось
и работать не буд
#32:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 15 Nov 2007 17:08
    —
Code:

func main()
aaa:=aDir("c:\*.*")
return
#33:  Author: nordk, Location: Горбунов Константин PostPosted: 15 Nov 2007 17:45
    —
Выписка из описания функции
Quote:
ADIR() возвращает количество файлов, имена которых совпадают с указанным шаблоном.

т.е. он возвращает число а не массив
а пример применения оттуда же:
Quote:
ADIR("*.txt", aFiles)
#34:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 16 Nov 2007 09:49
    —
Да кто же с этим спорит, что количество файлов.
А зачем же БЭСТ отвечает "Неизвестная функция" и плагин загибается?
Пробовала описать ADIR как external, тоже не получилось
Вот попробуйте сами
Может ли быть не подключена какая-то библиотека? SP37

На самом деле мне нужен список файлов, но мой вопрос состоит в том, обращаться к adir или к какой-то другой неизвестной мне функц
#35:  Author: Марина, Location: Кондрина Марина Александровна PostPosted: 16 Nov 2007 11:37
    —
Все, благодарю, надо использовать функцию directory()
#36:  Author: nordk, Location: Горбунов Константин PostPosted: 16 Nov 2007 14:56
    —
Да Марина я тоже не все дочитал
А ведь в документации было написано

Quote:
ADIR() - это функция, применяемая для совместимости с предыдущими
версиями Clipper и потому ее использование в новых программах не
рекомендуется. Ее можно заменить функцией DIRECTORY(), которая
возвращает полную информацию о файлах в многомерном массиве.
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group