JPEG Datei in NonVCL Prog laden

[OLLI_T]

Hey, jetzt nicht meckern. Ich hab das so nur zu Demozwecken gemacht!

So bekommst Du das PIC zu sehen ... :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var hRes:HResult; DC,DCpic:HDC; DCout:HDC; BmpOut:OLE_HANDLE;
begin
  If LoadPicture('C:\Button.jpg') Then Begin
    DC:=GetDC(0);
    DCpic:=CreateCompatibleDC(DC);
    ReleaseDC(0,DC);
    pPicture.SelectPicture(DC1,DCout,BmpOut);
    BitBlt(Canvas.Handle,0,0,100000,100,DC1,0,0,SRCCOPY);
    pPicture:=NIL; DeleteDC(DCpic);
  End;
end;

Bin gerade dabei das Teil in meine DIB-Klasse einzubinden. Jetzt gibt es endlich einen Constructor CreateFromJPEGRessource.

Tschau

OLLI