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

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

Запись JPEG в БД через запрос [D7, MySQL]

ssa ©   (2007-06-12 19:46:00) 

Очень бы хотелось вставлять картинку 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 (.....)

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

---

ssa   (2007-06-12 21:31:00) [1]

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

---

Desdechado   (2007-06-12 20:08:00) [2]

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;

---

Наверх