VPF::Как добавить изображение в базу данных Paradox

ИльяН

Дата 22.4.2009, 15:51 (ссылка)

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

Загрузка ...

Новичок

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

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

ЗДравствуйте! У меня есть некая проблема не могу добавить а вернее не могу понять как добавить изображение в базу данных. Базу создал. Последнее в ней поле типа graphic. База работает нормально теперь как мне к каждой строке базы добавить изображение??

Заранее спасибо.

insoft

Дата 22.4.2009, 15:58 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

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

ИльяН
самое простое smile

Код


      QAll.Edit;
      QAll.FieldByName('Logo').assign(Image.Picture);
      QAll.post;

воспользуйся поиском
тем валом!!!!

ИльяН

Дата 22.4.2009, 16:32 (ссылка)

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

Загрузка ...

Новичок

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

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

insoft,

А можно описать подробнее ?? я в этом новичек немного недопонимаю! где это прописывать и какие компоненты нужно добавить??

pseud

Дата 22.4.2009, 16:53 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  strm: TMemoryStream;
begin
  with TQuery.Create(Self) do
  try
    DatabaseName := {DatabaseName};

    SQL.Add('INSERT INTO graphic_storage (id, content) values (:param1, :param2)');

    Params.ParamByName('param1').AsInteger := {NewID}; 
    
    // если из файла
    Params.ParamByName('param2').LoadFromFile({FileName}, ftGraphic);

    // если из картинки на форме
    strm := TMemoryStream.Create;
    try
      Image1.Picture.Graphic.SaveToStream(strm);
      Params.ParamByName('param2').LoadFromStream(strm, ftGraphic);
    finally
      strm.Free;
    end;
    ExecSQL;
  finally
    Free;
  end;
end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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