Форум: "Базы";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Вниз

Показ JPEG-ов средствами TDBImage...   Найти похожие ветки 

← →
Rub   (2002-05-14 12:00) [0]

TDBImage "не хочет отображать" JPEG-и.
Как бы его научить это делать?

В конструкторе окна выполняю инструкцию:
DBImageM->Picture->RegisterFileFormat(__classid(TJPEGImage), "jpg", "jpg", __classid(TJPEGImage));

Однако не помогает, пишется нормально, но не показывается...

---

← →
Lusha   (2002-05-14 14:06) [1]

>Rub © (14.05.02 12:00)
Как бы его научить это делать?

Вероятно надлежащим образом переопределить обработчик TDBImage.Paint...

---

← →
Reindeer Moss Eater   (2002-05-14 14:10) [2]

Вот пример с обычным TImage и FileStream. Все легко переделывается для BlobStream и TDBImage.

uses Jpeg;
var jpg:TJPEGImage; f:TFileStream;
begin
jpg:=TJPEGImage.Create;
f:=TFileStream.Create("c:\coolgirl.jpg",fmOpenRead);
f.Position:=0;
jpg.LoadFromStream(f);
Image1.Picture.Assign(jpg);
jpg.Free;
f.Free;
end;

---

← →
Sandman   (2002-05-14 21:16) [3]

кажися нада прописать jpeg.pas в uses

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c