Текущий архив: 2002.11.07;
Скачать: CL | DM;
Вниз
Добавить/прочитать JPEG-картинку в базу данных Найти похожие ветки
← →
avr555 © (2002-10-14 17:01) [0]Нужно мне добавить в базу данных JPG-картинку.
В инете я нашл такое решение:
if Picture.Graphic is TJPegImage then begin
bs := TBlobStream.Create(TBlobField(Field), bmWrite);
Picture.Graphic.SaveToStream(bs);
bs.Free;
end else if Picture.Graphic is TBitmap then begin
Jpg := TJPegImage.Create;
Jpg.CompressionQuality := ...;
Jpg.PixelFormat := ...;
Jpg.Assign(Picture.Graphic);
Jpg.JPEGNeeded;
bs := TBlobStream.Create(TBlobField(Field), bmWrite);
Jpg.SaveToStream(bs);
bs.Free;
Jpg.Free;
end else
Field.Clear;
Но, как я понял это решение для случая, когда обращение идет непосредсвенно к таблице.
У меня же добавление происходит через ADOCommand (INSERT INTO ...)
В ADOCommand я создал параметр и попытался сделать тоже что и для поля но с использованием Field->ADOCommand1.Parameters.Items[0]. Но во время создания TBlobStream получается Access Violation
Что делать?
← →
Fiend © (2002-10-14 17:49) [1]а в адоклмманд надо помоему сначала параметры пропарсить. у нее там метод есть у параметров
← →
avr555 © (2002-10-14 18:02) [2]Можно по-подробнее?
← →
avr555 © (2002-10-15 15:36) [3]Я уже и через TMemoryStream попробовал.
Только при чтении возникает ошибка #41. Как я понял она возникает, когда у картинким нулевая ширина. Следовательно, запись в базу данных осуществляется неправильно.
Вопрос: что делать?
← →
avr555 © (2002-10-17 16:11) [4]Сам докопался:
Для занесения:
tmp := TJpegImage.Create;
tmp.LoadFromFile(Edit1.Text);
TBlobField(ADOCommand1.Parameters.Items[0]).Assign(tmp);
ADOCommand1.Execute;
Для отображения:
with ADOQuery1 do
begin
Active := false;
Parameters.ParamValues["ID"] := 34;
Active := true;
tmp.Assign(TBlobField(FieldByName("Pict")));
Image1.Picture.Assign(tmp);
end;
Может кому пригодится...
Страницы: 1 вся ветка
Текущий архив: 2002.11.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
