Отображение jpeg

← →
Dmitry S (2007-10-11 03:52) [0]

Пытаюсь отображить jpeg:

uses ActiveX; ... function OleLoadPictureFile(varFileName: OleVariant; var lpdispPicture: IDispatch): HResult; stdcall; external "oleaut32.dll" name "OleLoadPictureFile"; {OleLoadPictureFile в ActiveX объявлена ошибочно} ... var PicD:IPictureDisp; P:IPicture; w, h:integer; dc:HDC; R:TRect; begin OleLoadPictureFile("splash.jpg", IDispatch(PicD)); PicD.QueryInterface(IPicture, P); dc := GetDC(0); R := Rect(0,0,320,240); P.get_Width(w); P.get_Height(h); P.Render(dc, 0, 0, 320, 240, 0, 0, w, h, R); end;

Изображение выводит, но, почему-то, отраженное по вертикали.

Другого "дешевого" способа, как через Ole, отобразить я не нашел.

← →
Dmitry S (2007-10-11 03:53) [1]

Вопрос в том, как отобразить изображение правильно?

← →
Dib@zol © (2007-10-11 09:09) [2]

Render -> BitBLT?

← →
Sapersky (2007-10-11 15:53) [3]

P.Render(dc, 0, 0, 320, 240, 0, h, w, -h, R);

> Sapersky (11.10.07 15:53) [3]

работает, что странно...

благодарю!

Отображение jpeg Найти похожие ветки