| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вставка картинки [D7, Paradox]

Валера ©   (2006-02-19 13:16:00) 

Как с помощью SQL через Query в таблицу типпа Paradox
вставить картинку из файла???

---

Desdechado   (2006-02-19 19:55:00) [1]

использовать универсальный для двоичной информации тип поля BLOB, если он есть в парадоксе

---

Валера   (2006-02-19 19:40:00) [2]

СПАСИБО большое!!!!      Все работает.

А реально сделать чтоб и JPEG тоже отображался???

---

Desdechado   (2006-02-19 19:21:00) [3]

> "Bitmap image is not valid"
переведу: нужно BMP, а ты кормишь меня непонятно чем

---

Валера   (2006-02-19 18:42:00) [4]

procedure TFrm_Editor.BitBtn5Click(Sender: TObject);
begin
if Frm_Module.OPD_Foto.Execute then begin
with Frm_Module.Query1 do
begin
Close;
SQL.Clear;
SQL.Add ('Update Price.db Set fBlob = :ParamBlobField Where Name = '''+DB_Name.Text+''' ');
//'INSERT INTO Price.db '+'('+'fBlob'+') '+' VALUES '+'('+':ParamBlobField'+')';
ParamByName('ParamBlobField').DataType := ftBlob;
ParamByName('ParamBlobField').ParamType := ptInput;
ParamByName('ParamBlobField').LoadFromFile(Frm_Module.OPD_Foto.FileName,ftBlob);
ExecSql;
end;
end;
end;

Если вот эта процедура реальна то как сдельть, чтоб она не выдовала ошибку "Bitmap image is not valid"

Frm_Module - форма на которой находятся компоненты Query и т.д.
OPD_Foto - это OpenPictureDialog.
Price.db - это таблица
fBlob - это поле типпа Graphic (или OLE лучше??? )

---

Desdechado   (2006-02-19 15:11:00) [5]

дежурный пример
Query1.Sql.Text :=
  'INSERT INTO testblob ' +
  ' ( ' +
  '  fBlob' +
  ' )' +
  ' VALUES' +
  ' (' +
  ' :ParamBlobField' +
  ')';
Query1.ParamByName('ParamBlobField').DataType := ftBlob;
Query1.ParamByName('ParamBlobField').ParamType := ptInput;
Query1.ParamByName('ParamBlobField').LoadFromFile('MyFile',ftBlob);
Query1.ExecSql;

выставить из БД - домашнее задание

---

Наверх