Показ 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

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