Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / General / 15 сообщений из 15, страница 1 из 1
13.02.2006, 12:57
    #33540590
Fharlep
Fharlep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
У меня вот такой вопрос:
Как записывать изображения в поле general?И как потом реализовать вывод этой картинки на форму?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 13:35
    #33540753
FoxLamer
FoxLamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Какая версия VFP?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 13:44
    #33540791
Fharlep
Fharlep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
девятка...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 13:47
    #33540805
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
general забудь как страшный сон наследия fpw 2.5 в 9-ке пользуй memo(binary), Blob и свойство картинка PictureVal
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 13:53
    #33540835
FoxLamer
FoxLamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
В 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, 14:17
    #33540931
guest 002
guest 002
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
а как можно передат этот файл (*bmp) в Report
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.02.2006, 16:40
    #33541435
FoxLamer
FoxLamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Например так:
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
| Ответить | Цитировать | Написать  
17.02.2006, 15:22
    #33552487
Fharlep
Fharlep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2006, 12:15
    #33557960
Fharlep
Fharlep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Все получилось...
Но мне нужно немного другое.Простоя несовсем правильно сформулировал вопрос.
Мне необходимо,чтобы картинки загружались в талицу.В данном же случае изображения просто перезаписываются каждый раз на новые...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2006, 14:31
    #33558440
FoxLamer
FoxLamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Код: 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
| Ответить | Цитировать | Написать  
26.02.2006, 12:41
    #33565447
Fharlep
Fharlep
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Опять вы меня не поняли...
Мне неоходимо завести таблицу с личной информацией сотрудников...его фамилия,имя,личное дело и т.д,а также его фотографию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.02.2006, 13:02
    #33565526
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
А в чем проблема?!
Храни сам файл в поле типа 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:08
    #33565552
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
General
Загрузка файла в General делается командой

APPEND GENERAL

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

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

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


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

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

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


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