ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Foxpro и графика
10 сообщений из 10, страница 1 из 1
Foxpro и графика
    #35145782
vadim_kk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vadim_kk
Гость
Стоит задача создать таблицу из двух полей: имя графического файла и собственно изображение, только в уменьшенном виде (так наз. эскиз). Исходные файлы находятся на сервере в большом количестве и имеют большие размеры (15-20 Мб). Таблицу предполагается копировать на локальные машины для поиска необходимой информации и просмотра его результатов. Пожалуйста, подскажите, возможно ли решить такую задачу средствами Foxpro 9.0 и каким именно образом. Спасибо
...
Рейтинг: 0 / 0
20.02.2008, 20:33
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35146075
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MiklS
Гость
В таблице поле -Memo binary.
Сохраняем рисунок
Код: plaintext
1.
REPLACE Table.MemoB WITH FILETOSTR(lcFileName)
*lcFileName - имя файла источника (уменьшеная копия)
Просмотр
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
This.Image1.Picture=""
This.Image1.PictureVal=""
=STRTOFILE(Table.MemoB, "wTemp.bmp") && создадим временный файл для рисунка 
** расширение можно ставить необходимое
loPict=LOADPICTURE(This.lcFile)
IF VARTYPE(loPict)="O"
    This.Image1.PictureVal=loPict
ENDIF
...
Рейтинг: 0 / 0
21.02.2008, 05:05
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35146124
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
vadim_kk... Исходные файлы находятся на сервере в большом количестве и имеют большие размеры (15-20 Мб). ...
А какой сервер имеется в виду ?
С уважением, Алексей
...
Рейтинг: 0 / 0
21.02.2008, 07:21
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35146492
Фотография космонахт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
космонахт
Участник
vadim_kk... Таблицу предполагается копировать на локальные машины для поиска необходимой информации и просмотра его результатов. Пожалуйста, подскажите, возможно ли решить такую задачу средствами Foxpro 9.0 и каким именно образом. Спасибо

Каким образом Вы собираетесь копировать таблицу на локальные машины?
Она же будет очень большая. У меня таблица с фотографиями имеет объем примерно 450Гб.
Хранится на MSSQL2005. Файлы с фото в среднем 5Мб, но могут достигать и 70Мб.
Превьюшки хранятся в этой же таблице. Генерятся они с помощию IrfanView,
т.к. эта программка легко "глотает" разные форматы, в том числе и RAW файлы
от кэнона и никона(CRW,CR2, NEF).
Поиск фото очень быстрый. На клиенте показываются превьюшки(размер около 50кб).
При необходимости с сервера тянутся оригиналы фото.
Скорость работы напрямую зависит от скоростных возможностей сети.
...
Рейтинг: 0 / 0
21.02.2008, 10:40
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35146576
Фотография космонахт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
космонахт
Участник
Вот пример интерфейса
...
Рейтинг: 0 / 0
21.02.2008, 10:59
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35146582
Фотография космонахт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
космонахт
Участник
...
Рейтинг: 0 / 0
21.02.2008, 10:59
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35149289
vadim_kk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vadim_kk
Гость
Спасибо за совет. Пока его ждал, попробовал немного своими силами. Вот что получилось:

Select images
oMyFiler = CREATEOBJECT('Filer.FileUtil')
oMyFiler.SearchPath = full_path && путь к папке с эскизами
oMyFiler.FileExpression = '*.jpg'
oMyFiler.Find(0)

FOR nFileCount = 1 TO 10 &&oMyFiler.Files.Count
APPEND BLANK
REPLACE images.file_name WITH full_path + oMyFiler.Files.Item(nFileCount).Name
APPEND GENERAL images.thumb FROM full_path + oMyFiler.Files.Item(nFileCount).Name
ENDFOR
Также считаю правильным в качестве ответа на запрос пользователя получать только эскизы, тем более, что, как я надеюсь, в издательскую систему их можно вставлять перетаскиванием, сохраняя ссылку на "основную иллюстрацию".
Для изготовления эскизов использовал Web Subnailer. Попробую оценить размер получаемой БД, заменив, как предлагает Mikls, тип поля General на Memo binary. Еще раз всем спасибо за помощь. Буду двигаться дальше. Что касается сервера, то я имел в виду файл-сервер локальной сети издательства.
Возможно ли обеспечить вывод нескольких эскизов одновременно и какое окно для этого необходимо создать?
...
Рейтинг: 0 / 0
22.02.2008, 01:04
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35149309
vadim_kk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vadim_kk
Гость
Поиск фото очень быстрый. На клиенте показываются превьюшки(размер около 50кб).
При необходимости с сервера тянутся оригиналы фото.
Скорость работы напрямую зависит от скоростных возможностей сети. автор

Всю эти процедуры выполняет IrfanView?
...
Рейтинг: 0 / 0
22.02.2008, 01:27
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35151032
Фотография космонахт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
космонахт
Участник
vadim_kk
Всю эти процедуры выполняет IrfanView?

IrfanView только лишь преобразовывает фото разного формата в jpeg превьюшки.
Остальное делает фокс и Lead Tools
...
Рейтинг: 0 / 0
22.02.2008, 17:16
| Ответить | Цитировать | Написать  
Foxpro и графика
    #35151035
Фотография космонахт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
космонахт
Участник
vadim_kk
А какое у Вас издательство, если не секрет?
...
Рейтинг: 0 / 0
22.02.2008, 17:17
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Foxpro и графика
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=169&tid=1588120]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 3ms
others: 189ms
total:  309ms
созд. / загр.: 309ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]