Ошибки при добавление картинок в БД 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."

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

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

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

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

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