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

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

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

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

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
JPG в Oleboundcontrol на форме
    #34309789
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: 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
JPG в Oleboundcontrol на форме
    #34310109
ВК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для 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
JPG в Oleboundcontrol на форме
    #34310116
ВК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Простите, опечаточка вышла...
Код: plaintext
1.
nR=SQLEXEC(_Screen.nCon,'INSERT INTO foto(f1) VALUES (?table_ole.foto)') &&сохранение картинки на SQL-сервере
...
Рейтинг: 0 / 0
JPG в Oleboundcontrol на форме
    #34310217
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Большое спасибо, всё получилось.
В VFP должен быть тип поля BLOB для хранения, и компонент image для отображения. А на SQL поле типа image.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
JPG в Oleboundcontrol на форме
    #35566351
Antoninio
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может я не там ищу, но..кто подскажет, при создании таблицы в 9-м VFP я не нахожу тип поля BLOB, где его найти? :(
...
Рейтинг: 0 / 0
JPG в Oleboundcontrol на форме
    #35566353
Antoninio
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Снимаю вопрос, нашел)) был просто невнимателен)
...
Рейтинг: 0 / 0
JPG в Oleboundcontrol на форме
    #35566415
Antoninio
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А не подсжкаите, как залить картинку в это поле BLOB? оно же там помечено как рид-онли
...
Рейтинг: 0 / 0
JPG в Oleboundcontrol на форме
    #35566753
AntoninioА не подсжкаите, как залить картинку в это поле BLOB? оно же там помечено как рид-онли
Там -это где?
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / JPG в Oleboundcontrol на форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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