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

Ошибки при добавление картинок в БД Interbase   Найти похожие ветки 

← →
worldmen   (2009-04-09 10:42) [0]

Мне нужно добавить картинки в БД. Я знаю, что держать картинки в БД неразумно, но мне нужна прога для демонстрации.
Кроме картинки нужно добавить и текст из 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 10:59) [1]

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


BlobField.AsString := Memo.Lines.Text ?


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


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

---

← →
Сергей М. ©   (2009-04-09 21:39) [2]

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


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

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

---

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

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



Память: 0.45 MB
Время: 0.009 c