Hmm, also das sieht jetzt so aus:
Delphi-Quellcode:
uses GDIPAPI,GDIPOBJ,
ActiveX;
procedure DrawJPG(
jpgStr: TStream;
//Enthält den Code des JPG-Bildes
CaV: TCanvas
//Darauf will ich zeichnen
);
var
graphics: TGPGraphics;
image: TGPImage;
istr: IStream;
begin
graphics:=TGPGraphics.create(CaV.Handle);
jpg_str.Seek(0,soFromBeginning);
istr:=TStreamAdapter.Create(jpg_str)
as IStream;
image:=TGPImage.Create(istr);
graphics.DrawImage(image,0,0);
graphics.Free;
image.Free;
jpg_str.free;
end;