Скачать: CL | DM;

Вставка картинки   Найти похожие ветки 

← →
Валера   (2006-02-19 13:16) [0]

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

---

← →
Desdechado ©   (2006-02-19 15:11) [1]

дежурный пример
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;

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

---

← →
Валера   (2006-02-19 18:42) [2]

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 19:21) [3]

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

---

← →
Валера   (2006-02-19 19:40) [4]

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

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

---

← →
Desdechado ©   (2006-02-19 19:55) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c