Еще одна проблема.

полю типа General присваиваю фото

APPEND GENERAL foto FROM bmp\111.jpg

но при выводе в форме в объекте Ole bound control выводиться только имя файла(если файл jpg, а если файл bmp то еще иконка).

Если иду другим путем - создаю файл ВОРД вставляю туда картинку потом открываю BROWSE и в поле типа General вставляю с помощью копирования чарез буфер обмена - В ФОРМЕ ВЫВОДИТЬСЯ ДЕЙСТВИТЕЛЬНО ФОТО.

Но как всетаки это сделать программным путем ???

ЗАРАНЕЕ СПАСИБО, Роман.

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

Чувствую, напрягаю со своими вопросами...

Но прошу простите новичка, но некоторые моменты очень сложно найти в книгах.
Огромнейшее спасибо за понимание.
Роман.

oavЯ пробовал хранить картинку в blob, у меня так работало ...,
хотя многие рекомендуют хранить картинки в отдельной директории
и в базе только путь и/или наименование в символьном поле

Свойство объекта Image.Stretch = 2 – Stretch

В Init формы добавляем код

IF !EMPTY(user.foto)
Thisform.Image1.PictureVal = user.foto
Thisform.Image1.Visible = .T.
ELSE
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
ENDIF

Кнопка “добавить” изображение

myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace user.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= user.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

Кнопка “стереть” изображение

SELECT user
replace user.foto WITH ''
= TABLEUPDATE(.T.)
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
Thisform.Refresh()

Код метода Click кнопок движения по базе (cmdPrev,cmdNext,cmdTop,cmdEnd)
добавить код

DODEFAULT()
IF !EMPTY(user.foto)
Thisform.Image1.PictureVal = user.foto
Thisform.Image1.Visible = .T.
ELSE
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
ENDIF
Thisform.Refresh()

Я правильно понял, что создать таблицу user (name c(10), foto g()) ???

и еще - в форме создать объект image1 , если да , то куда в свойствах вписывать источник user.foto !???

Спасибо за ответ.

О, нет поле фото текстовое для ввода пути, Это понял.

И неужеле источник защот init сам прописан !???

IF !EMPTY(user.foto)
Thisform.Image1.PictureVal = user.foto
Thisform.Image1.Visible = .T.
ELSE
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
ENDIF

OAV

Пишет ошибку !!!!
Как от нее избавиться ??

В приложенном файле скрин экрана.
Сдесь опишу проблему : при нажатии кнопки "добавить" выбираю фото и открывается окно ошибки "Для функции требуется режим буферизации строк или таблиц" что сделать ?

Поле foto исправил , проблема осталась.

OAV
Когда сам без конструктора форм создал то что Ты написал, все работало заисключением ошибки с буфером. Создав тоже с помощью конструктора - при запуске открывается окно для ввода файла , затем кнопки работают некорректно и фото не выводится.

Может можно избавиться от ошибки с буфером ?
Спасибо, Роман.

OAV
Спасибо за помощь.
Буду обрабатывать Твою идею.