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

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

Ошибки при добавление картинок в БД Interbase [D7, XP]

worldmen ©   (2009-04-09 10:42:00) 

Мне нужно добавить картинки в БД. Я знаю, что держать картинки в БД неразумно, но мне нужна прога для демонстрации.
Кроме картинки нужно добавить и текст из TMemo
Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
VAR
 fStreamBMP : TFileStream;
begin
  OpenDialog1.Filter:='All Files(*.*)|*.*';
  if OpenDialog1.Execute then
  begin
   fStreamBMP:= TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
   Table1.Active:=true;
   Table1.Insert;
   try
     Table1.FieldByName('ID').AsInteger:=1;
     Table1.FieldByName('TEKST').AsVariant:='Какойнибудь текст из TMemo';
     TBlobField(Table1.FieldByName('IMG')).LoadFromStream(fStreamBMP);
     fStreamBMP.Free;
     Table1.Post;
   except
     on E: Exception do MessageDlg(Exception(ExceptObject).message, mtWarning, [mbOk], 0);
   end;
  end;
End;
БД такая:
CREATE TABLE ANATOM (
 ID INTEGER,
 TEKST BLOB SUB_TYPE 1,
 IMG BLOB

Все всталяет, но на строке Table1.Post выводит ошибку: " Operation not applicable."
И еще, как из TMemo вставить в БД текст? Понимаю, что через поток, пробовал - не получилось.

---

Сергей М.   (2009-04-09 21:39:00) [1]

> on E: Exception do MessageDlg(Exception(ExceptObject).message,
>  mtWarning, [mbOk], 0);


К чему этот поход в гости к соседу по лестничной площадке через Северный полюс ?

on E: Exception do MessageDlg( E.message, ...

---

Игорь Шевченко   (2009-04-09 10:59:00) [2]

> И еще, как из TMemo вставить в БД текст? Понимаю, что через
> поток, пробовал - не получилось.


BlobField.AsString := Memo.Lines.Text ?


> Все всталяет, но на строке Table1.Post выводит ошибку: "Operation
> not applicable."


А ты попробуй по одному блобу зараз - поймешь, где спотыкаешься

---

Наверх