Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / JPG в Oleboundcontrol на форме / 12 сообщений из 12, страница 1 из 1
05.02.2007, 17:46
    #34307316
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Есть таблица с полем GENERAL, где хранятся jpg-фотки:

SELECT MyTab
APPEND BLANK
APPEND GENERAL gen FROM D:\MyPict

но на форме вместо фотки появляется иконка файла с названием.
Как обойти эту проблему? Или есть другой путь решения даной задачи?
VFP9.0 SP1
Зарание благодарен!
...
Рейтинг: 0 / 0
06.02.2007, 09:16
    #34308112
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Может я немножко не понятно задал вопрос.
JPG-файлы хранятся в таблице, поле типа GENERAL.
Просмотр этих картинок предусмотрен на форме в Oleboundcontrol.
Но почемуто вместо изображения картинки видно только иконку файла с названием.
Если использовать BMP-файлы, то всё получается нормально.
Как правельно в VFP хранить и просматривать JPG-файлы?
...
Рейтинг: 0 / 0
06.02.2007, 10:07
    #34308244
ВБ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Для хранения изображений используйте поле типа Blob.
Для просмотра изображений используйте Image:

thisform.image1.pictureval = mytable.myblobfield
...
Рейтинг: 0 / 0
06.02.2007, 15:36
    #34309719
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Делаю следующее:

cFile='D:\Arch\P1.JPG' &&картинка у клиента

CREATE TABLE table_ole (foto GENERAL)
APPEND BLANK
APPEND GENERAL foto FROM &cFile &&загрузка картинки в таблицу

nR=SQLEXEC(_Screen.nCon,'CREATE TABLE foto (f1 IMAGE)')
nR=SQLEXEC(_Screen.nCon,'INSERT INTO foto(f1) VALUES (table_ole.foto)') &&сохранение картинки на SQL-сервере

CURSORSETPROP("MapBinary",.T.,0)
nR=SQLEXEC(_Screen.nCon,'SELECT foto FROM foto','CurFoto')
COPY MEMO CurFoto.foto TO 'D:\Sql\P1.JPG' &&полученую с сервера картинку сохраняю в файл

ThisForm.Image1.Picture='D:\Sql\P1.JPG' &&просматриваю картинку на форме в компоненте image

В результате получаю нулевой результат. Image пустой.
Если же я просматриваю исходный файл, то результат положительный:

ThisForm.Image1.Picture='D:\Arch\P1.JPG'

Почему после того как я положил картинку на сервер, получил её обратно на клиента, сохранил в файл, она в image не просматривается? Физически файл на диске есть и через графический редактор его можно просмотреть.
...
Рейтинг: 0 / 0
06.02.2007, 15:55
    #34309789
Sergey Sizov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
cFile='D:\Arch\P1.JPG' &&картинка у клиента

CREATE CURSOR table_ole (foto blob)
APPEND BLANK
APPEND MEMO foto FROM (cFile) &&загрузка картинки в таблицу

nR=SQLEXEC(_Screen.nCon,'CREATE TABLE foto (f1 IMAGE)')
nR=SQLEXEC(_Screen.nCon,'INSERT INTO foto(f1) VALUES (table_ole.foto)') &&сохранение картинки на SQL-сервере

CURSORSETPROP("MapBinary",.T., 0 )
nR=SQLEXEC(_Screen.nCon,'SELECT foto FROM foto','CurFoto')
COPY MEMO CurFoto.foto TO 'D:\Sql\P1.JPG' &&полученую с сервера картинку сохраняю в файл

ThisForm.Image1.Picture='D:\Sql\P1.JPG' &&просматриваю картинку на форме в компоненте image
Проверь.
...
Рейтинг: 0 / 0
06.02.2007, 17:22
    #34310109
ВК
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Для VFP9:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
cFile='D:\Arch\P1.JPG' &&картинка у клиента

CREATE CURSOR table_ole (foto blob)
INSERT INTO table_ole (foto) VALUES (FILETOSTR(cFile))

nR=SQLEXEC(_Screen.nCon,'CREATE TABLE foto (f1 IMAGE)')
nR=SQLEXEC(_Screen.nCon,'INSERT INTO foto(f1) VALUES (table_ole.foto)') &&сохранение картинки на SQL-сервере

CURSORSETPROP("MapBinary",.T., 0 )
nR=SQLEXEC(_Screen.nCon,'SELECT foto FROM foto','CurFoto')
ThisForm.Image1.PictureVal = curfoto.foto  &&просматриваю картинку на форме в компоненте image

А добавлять свойства к _Screen - очень плохой стиль программирования...
Как и создавать таким способом таблицы на сервере :)
...
Рейтинг: 0 / 0
06.02.2007, 17:24
    #34310116
ВК
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Простите, опечаточка вышла...
Код: plaintext
1.
nR=SQLEXEC(_Screen.nCon,'INSERT INTO foto(f1) VALUES (?table_ole.foto)') &&сохранение картинки на SQL-сервере
...
Рейтинг: 0 / 0
06.02.2007, 17:46
    #34310217
shanton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Большое спасибо, всё получилось.
В VFP должен быть тип поля BLOB для хранения, и компонент image для отображения. А на SQL поле типа image.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
29.09.2008, 21:14
    #35566351
Antoninio
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Может я не там ищу, но..кто подскажет, при создании таблицы в 9-м VFP я не нахожу тип поля BLOB, где его найти? :(
...
Рейтинг: 0 / 0
29.09.2008, 21:15
    #35566353
Antoninio
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
Снимаю вопрос, нашел)) был просто невнимателен)
...
Рейтинг: 0 / 0
29.09.2008, 22:03
    #35566415
Antoninio
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JPG в Oleboundcontrol на форме
А не подсжкаите, как залить картинку в это поле BLOB? оно же там помечено как рид-онли
...
Рейтинг: 0 / 0
30.09.2008, 09:31
    #35566753
JPG в Oleboundcontrol на форме
AntoninioА не подсжкаите, как залить картинку в это поле BLOB? оно же там помечено как рид-онли
Там -это где?
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / JPG в Oleboundcontrol на форме / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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