Текущий архив: 2007.10.21;
Скачать: CL | DM;

Вниз

Запись JPEG в БД через запрос   Найти похожие ветки 

← →
ssa   (2007-06-12 19:46) [0]

Очень бы хотелось вставлять картинку JPEG в БД не вот этим кодом:

var
 blob: TStream;
 fs:tfilestream;
begin
 dataset.Append;
 blob := dataset.CreateBlobStream(dataset.FieldByName("photo"), bmReadWrite);
 try
   blob.Seek(0, soFromBeginning);
   fs := TFileStream.Create(edit1.Text, fmOpenRead);
   try
     blob.CopyFrom(fs, fs.Size)
   finally
     fs.Free
   end;
 finally
   blob.Free
 end;
 dataset.Post;
end;


, а SQL запросом, например вроде этого
insert into bd (`photo`) values (.....)

помогите это осуществить пожалуйста!

---

← →
Desdechado ©   (2007-06-12 20:08) [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;

---

← →
ssa   (2007-06-12 21:31) [2]

большое спасибо

---

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

Текущий архив: 2007.10.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c