Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Можно ли в поля Blob Graphic загружать jpg файлы?


Zheksonz ©   (2015-05-07 20:35:00) 

С загрузкой BMP проблем нет, а вот на загрузку jpg файлов ругается программа((


Игорь Шевченко   (2015-05-08 10:35:00) [1]

http://segfault.kiev.ua/smart-questions-ru.html


кгшзх   (2015-05-07 22:26:00) [2]

Удалено модератором


Zheksonz   (2015-05-07 21:58:00) [3]

Удалено модератором


junglecat   (2015-05-07 21:53:00) [4]

ну, базе все равно, какой формат. В блоб-поле в таблицу сливается просто поток байтов. Главное, чтобы писатель и читатель между собой договорились.


Zheksonz   (2015-05-07 21:43:00) [5]


> junglecat ©   (07.05.15 21:31) [6]


проблема не в сохранении, а в формате, т.к. bmp грузится и сохраняется без проблем, а вот jpeg нет(( Выдаётся ошибка EInvalidGraphic with message Bitmap image is not valid.Т.е. не нравится формат и всё тут...


junglecat   (2015-05-07 21:31:00) [6]

Field.DataSet.Post не надо часом сделать?
И что-нибудь типа ApplyUpdates


Zheksonz   (2015-05-07 21:00:00) [7]

в TImage jpeg грузится без проблем, а уже в БЛОБ никак(( может не этой процедурой его туда записывать?


Zheksonz   (2015-05-07 20:55:00) [8]

гружу в поля вот этой процедурой...


> procedure SavePictureToBlob(Picture: TPicture; Field: TBlobField);
>
> var
>   Stream: TStream;
> begin
>   if not (Field.DataSet.State in [dsEdit, dsInsert]) then
>     Field.DataSet.Edit;
>   Field.Clear;
>   if Assigned(Picture.Graphic) then
>     if not Picture.Graphic.Empty then
>       begin
>         Stream := TMemoryStream.Create;
>         try
>           Picture.Graphic.SaveToStream(Stream);
>           Stream.Position := 0;
>
>           Field.LoadFromStream(Stream);
>         finally
>           Stream.Free;
>         end;
>       end;
> end;
>


Zheksonz   (2015-05-07 20:53:00) [9]

uses jpeg есть


Ega23   (2015-05-07 20:52:00) [10]

Можно любые подгружать, главное чтобы формат понимался.


brother   (2015-05-07 20:41:00) [11]

опять эксперименты? телепатирую: jpeg модуль не подключен?


Наверх

Титульная страница Поиск, карта сайта Написать письмо