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

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

Не отображаются jpeg картинки в DBImage? [D7, Paradox]

Ramdom ©   (2004-02-17 13:55:00) 

Заношу jpeg картинки в Blob поля, но при просмотре записей они не отображаются в Dbimag"e, хотя с Bmp картинками все в порядке.

P.S. Нужно вносить именно jpeg.

---

Romkin   (2004-02-17 14:37:00) [1]

Нет, не отображается. Выход - использовать обычный TImage.

function GetStreamImgType(Stream: TStream): TClass;
var
StreamPos: int64;
ImgSign: string;
begin
StreamPos := Stream.Position;
try
//BMP если не определено
Result := Graphics.TBitmap;
//JPEG
SetLength(ImgSign, 4);
Stream.Seek(6, soFromCurrent);
Stream.Read(ImgSign[1],4);
if (UpperCase(ImgSign) = "JFIF") or (UpperCase(ImgSign) = "EXIF") then
Result := Jpeg.TJPEGImage;
//WMF
Stream.Position := StreamPos;
SetLength(ImgSign, 4);
Stream.Read(ImgSign[1],4);
if ImgSign = #$D7#$CD#$C6#$9A then
Result := Graphics.TMetafile;
finally
Stream.Position := StreamPos;
end;
end;

procedure LoadProperImage(Stream: TStream; Picture: TPicture);
var
Img: TGraphic;
StreamPos: int64;
begin
StreamPos := Stream.Position;
Img := TGraphicClass(GetStreamImgType(Stream)).Create;
try
Stream.Position := StreamPos;
Img.LoadFromStream(Stream);
Picture.Graphic := Img;
finally
Img.Free;
end;
end;

function LoadPictureFromBLOB(Picture: TPicture; Field: TBlobField): boolean;
var
Stream: TStream;
begin
Result := False;
if not Field.isNULL then
begin
Stream := TMemoryStream.Create;
try
Field.SaveToStream(Stream);
Stream.Position := 0;
LoadProperImage(Stream, Picture);
Result := True;
finally
Stream.Free;
end;
end;
end;

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;


Употреблять, ессно

LoadPictureFromBLOB(Image1.Picture, Dataset.FieldByName("img") as TBLOBField);

Пора это в ФАК вставлять...

---

Val   (2004-02-17 14:34:00) [2]

Погодите. Что-то мне помнится, что при подключении jpeg модуля, .jpg все-же там отображается, проверьте, могу ошибаться.

---

Reindeer Moss Eater   (2004-02-17 14:26:00) [3]

Примерно по той же, по которой не предусмотрен просмотр DVD AVI MPEG MP3 DOC XLS и т.д.

---

Ramdom   (2004-02-17 14:03:00) [4]

А по какой причине в DbImage не предусмотрен просмотр jpeg файлов?

---

Hooch   (2004-02-17 13:57:00) [5]

либо брать Image и ручками заряжать его, либо делать наследника от DBImage либо воспольоватся стороннимим компонентами

---

Наверх