Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как заполнять memo, graphik и blob поля?

Автор: Cyri 23.7.2004, 10:52

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

Автор: <Spawn> 23.7.2004, 11:01

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

Код

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

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

Автор: gray_k 23.7.2004, 11:07

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

Код


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;