ДОБАВИТЬ ГРАФИЧЕСКОЕ ИЗОБРАЖЕНИЕ В BLOB-поле

← →
TATIANA (2003-12-17 15:28) [0]

Господа мастера , здравствуйте ! Знаем , что надоели с этим вопросом , но не получается , что не так делаю не знаю , вроде бы все как советовали . Господа не к кому обратиться .var
var
B1STR: TStringStream;
begin
IBQuery6.Close;
IBQuery6.SQL.Clear;
IBQuery6.SQL.Add("select POLE from TABL where KOD= :K1 ");
IBQuery6.SQL.Add("order by KOD");
IBQuery6.Params[0].AsInteger := Kod1;
IBQuery6.Open;
B1STR := TStringStream.Create("");
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
IBQuery6.Edit;
try
Image1.Picture.Graphic.SaveToStream(B1STR);
IBQuery6POLE.LoadFromStream(B1STR);
IBQuery6POLE.AsString :=OpenPictureDialog1.FileName;
finally
B1STR.Free;
end;
IBQuery6.post;

На строке - IBQuery6.Edit; дает ошибку :
IBQuery6: Cannot modiy a read-only dataset .

← →
MV (2003-12-17 17:26) [1]

Query.RequestLive := ???????

← →
TATIANA (2003-12-17 18:07) [2]

IBQuery6.RequestLive := true; при компиляции дает ошибку - не определен идентификатор . Какой библиотеки не хватает?

← →
MV (2003-12-17 18:11) [3]

FIB+ !!!!

← →
TATIANA (2003-12-17 18:13) [4]

А если нет FIB+ ?

← →
Silver Alex (2003-12-17 18:37) [5]

вставляй запросом, примерно так

const
sqlUpdate="update Main set Picture=:Picture where id=:id"
begin
if PictureDialog.Execute then
with qUpdate do
begin
SQL.Clear;
SQL.Add(sqlUpdate);
ParamByName("Picture").LoadFromFile(PictureDialog.FileName,ftGraphic);
ParamByName("id").AsInteger:=Table1.FieldByname("id").AsInteger;
ExecSQL;
end;

ДОБАВИТЬ ГРАФИЧЕСКОЕ ИЗОБРАЖЕНИЕ В BLOB-поле Найти похожие ветки