VPF::Как заполнять memo, graphik и blob поля?

Cyri

Дата 23.7.2004, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 23.7.2004

Репутация: нет
Всего: нет

Народ, подскажите (подробно, желательно на примере), как заполнить graphik-поле в таблице. В этом поле должно быть изображение графического файла. Использую таблицу Парадокс. База - локальная. Всё находиться в одном каталоге. Псевдоним базы - Tel, название таблицы - Tel_t1.
Заранее спасибо.

<Spawn>

Дата 23.7.2004, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Cyri Ты про какую таблицу? Таблицу базы данных? Или таблицу в интрефейсе программы? Для базы примерно так:

Код

TBlobField(Query1.FieldByName('Bitmap')).LoadFromFile('C:\ТвояКартинка.bmp');

Если ты про таблицу программы, то можешь рисовать вручную в событии OnDrawCell, либо, например, использовать TDBImage или специализированные компоненты сторонних разработчиков.

Это сообщение отредактировал(а) <Spawn> - 23.7.2004, 11:03

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

gray_k

Дата 23.7.2004, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1015
Регистрация: 9.1.2003
Где: Москва

Репутация: 3
Всего: 22

Здесь для БЛОБ-поля.

Код


procedure addPicture( filename:string )
var
    PictureStream:TMemoryStream;
begin
     PictureStream = TMemoryStream.Create;
     PictureStream.LoadFromFile( filename );
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add( ' insert into MyTable( FOTO ) values (:FOTO) ' );
     if( PictureStream is not nil ) then begin
          Query1.ParamByName( 'FOTO' ).LoadFromStream( PictureStream, ftBlob );
          Query1.ExecSQL;
     end;  
end;

--------------------

С уважением.
Gray.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »