Форум: "Базы";
Текущий архив: 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.44 MB
Время: 0.006 c