Code: Alles auswählen
...
jpg := TJPEGImage.Create;
jpg.Assign(Graphic);
mem := TMemoryStream.Create;
jpg.SaveToStream(mem);
mem.Position := 0;
i := AddJPEGStream(mem,jpg.Width,jpg.Height);
mem.Free;
jpg.Free;
...
PDF.Page.DrawImage(10,10,150,250,i);
...