ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / General
15 сообщений из 15, страница 1 из 1
General
    #33540590
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
У меня вот такой вопрос:
Как записывать изображения в поле general?И как потом реализовать вывод этой картинки на форму?
...
Рейтинг: 0 / 0
13.02.2006, 12:57
| Ответить | Цитировать | Написать  
General
    #33540753
Фотография FoxLamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FoxLamer
Участник
Какая версия VFP?
...
Рейтинг: 0 / 0
13.02.2006, 13:35
| Ответить | Цитировать | Написать  
General
    #33540791
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
девятка...
...
Рейтинг: 0 / 0
13.02.2006, 13:44
| Ответить | Цитировать | Написать  
General
    #33540805
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
general забудь как страшный сон наследия fpw 2.5 в 9-ке пользуй memo(binary), Blob и свойство картинка PictureVal
...
Рейтинг: 0 / 0
13.02.2006, 13:47
| Ответить | Цитировать | Написать  
General
    #33540835
Фотография FoxLamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FoxLamer
Участник
В 9-ке лучше использовать Blob

*Например так:

*Запись
pFilePicture=''

pFilePicture=GETFILE([*] , [Файлы] , [Выбрать], 0, [Загрузка файла])

if file(pFilePicture)
CREATE CURSOR foto_full(ffull blob)
APPEND BLANK
APPEND MEMO ffull FROM (pFilePicture) OVERWRITE
endif

*чтение
thisform._image1.Pictureval = foto_full.ffull
...
Рейтинг: 0 / 0
13.02.2006, 13:53
| Ответить | Цитировать | Написать  
General
    #33540931
guest 002
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
guest 002
Гость
а как можно передат этот файл (*bmp) в Report
...
Рейтинг: 0 / 0
13.02.2006, 14:17
| Ответить | Цитировать | Написать  
General
    #33541435
Фотография FoxLamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FoxLamer
Участник
Например так:
m.cTmpFile='c:\'+SYS(2015)+'.bmp'
COPY MEMO fotofull.ffull TO (m.cTmpFile)
SELECT fotofull

REPORT FORM report_img preview

В репорте в качестве источника OLE объекта указать переменную m.cTmpFile
...
Рейтинг: 0 / 0
13.02.2006, 16:40
| Ответить | Цитировать | Написать  
General
    #33552487
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
Спасибо
...
Рейтинг: 0 / 0
17.02.2006, 15:22
| Ответить | Цитировать | Написать  
General
    #33557960
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
Все получилось...
Но мне нужно немного другое.Простоя несовсем правильно сформулировал вопрос.
Мне необходимо,чтобы картинки загружались в талицу.В данном же случае изображения просто перезаписываются каждый раз на новые...
...
Рейтинг: 0 / 0
21.02.2006, 12:15
| Ответить | Цитировать | Написать  
General
    #33558440
Фотография FoxLamer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FoxLamer
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
LPARAMETERS pcAlias


IF NOT EMPTY(pcAlias) AND USED(pcAlias)

*директория для временных файлов
	lcName = goApp.GetIniValue("FILES", "TempFile", "d:\temp\")

	IF NOT DIRECTORY(lcName)
		MD (lcName)
	ENDIF 

	SELECT &pcAlias

	IF RECCOUNT()> 0 
*выгружаем картинки из курсора во временные файлы
	SCAN
		m.cfile=m.lcName+SYS( 2015 )+fil_ext
		COPY MEMO fil_jpg TO (m.cfile)
              *сохраняем в курсоре путь к файлу картинки
		replace filepath WITH  m.cfile
	ENDSCAN
* выводим картинки в отчет
	REPORT FORM report_img PREVIEW 

*удаляем временные файлы
	SELECT &pcAlias
	SCAN
		IF FILE(ALLTRIM(filepath))
			DELETE FILE (ALLTRIM(filepath))
		ENDIF 
	
	ENDSCAN


	ENDIF 

ENDIF
...
Рейтинг: 0 / 0
21.02.2006, 14:31
| Ответить | Цитировать | Написать  
General
    #33565447
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
Опять вы меня не поняли...
Мне неоходимо завести таблицу с личной информацией сотрудников...его фамилия,имя,личное дело и т.д,а также его фотографию.
...
Рейтинг: 0 / 0
26.02.2006, 12:41
| Ответить | Цитировать | Написать  
General
    #33565526
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
А в чем проблема?!
Храни сам файл в поле типа MEMO (или BLOB если VFP 9.0)
Картинку на форме отображай через объект класса Image.
Для вывода картинки (как пример):
Код: plaintext
1.
2.
3.
m.lcFile =  "c:\temp\image1.jpg"
SELECT myCursor
COPY MEMO Photo TO (m.lcFile)  && Поле Photo содержит файл с картинкой
THISFORM.imgPhoto.Picture = m.lcFile
С уважением, Алексей
...
Рейтинг: 0 / 0
26.02.2006, 13:02
| Ответить | Цитировать | Написать  
General
    #33565552
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Загрузка файла в General делается командой

APPEND GENERAL

Проблема только в том, что использование поля General связано с рядом ограничений.

Главное из которых заклчается в том, что клиент должен иметь то же самое приложение, которое было у разработчика для просмотра изображений, хранящихся в поле General. Иначе у клиента просто не будет "картинки".

Другая проблема - это невозможность программного манипулирования содержимым поля General.


Поэтому, как правило, используют 2 стратегии работы с картинками:

1) Загружают файл картинки в поля Memo-binary. Для VFP9 используют поля BLOB. Для просмотра файла выгружают его во временный файл на диске.

2) Файл картинки вообще не встраивается в таблицу, а хранится как отдельный файл на диске. В таблице же хранят только путь доступа к нужной картинке.
...
Рейтинг: 0 / 0
26.02.2006, 13:08
| Ответить | Цитировать | Написать  
General
    #33565935
Fharlep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fharlep
Гость
Спасибо за совет
...
Рейтинг: 0 / 0
26.02.2006, 15:42
| Ответить | Цитировать | Написать  
General
    #33699432
ВСЕЗНАЮ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВСЕЗНАЮ
Гость
как в прг-программе определить размеры картинки? высоту и ширину..
...
Рейтинг: 0 / 0
30.04.2006, 00:10
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / General
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1591798]:
 0ms
get settings:
 9ms
get forum list:
 25ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 143ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 227ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


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