| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ДОБАВИТЬ ГРАФИЧЕСКОЕ ИЗОБРАЖЕНИЕ В BLOB-поле
TATIANA © (2003-12-17 15:28:00)
Господа мастера , здравствуйте ! Знаем , что надоели с этим вопросом , но не получается , что не так делаю не знаю , вроде бы все как советовали . Господа не к кому обратиться .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 .
Silver Alex (2003-12-17 18:37:00) [1]
вставляй запросом, примерно так
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;
TATIANA (2003-12-17 18:13:00) [2]
А если нет FIB+ ?
MV (2003-12-17 18:11:00) [3]
FIB+ !!!!
TATIANA (2003-12-17 18:07:00) [4]
IBQuery6.RequestLive := true; при компиляции дает ошибку - не определен идентификатор . Какой библиотеки не хватает?
MV (2003-12-17 17:26:00) [5]
Query.RequestLive := ???????
| |
