Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
1-21512
Separator
2002-10-29 07:23
2002.11.07
Адресное пространство


7-21837
Sherev
2002-09-06 14:21
2002.11.07
Снова COM порт...


1-21493
Ghost!
2002-10-28 17:36
2002.11.07
считывание по символу


1-21561
Tornado
2002-10-29 09:02
2002.11.07
Изменение размеров формы


6-21708
Pavel_s
2002-09-09 08:48
2002.11.07
UDP Server & UDP Client