Форум: "Начинающим";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
Вниз
Ошибки при добавление картинок в БД 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
