Resample oder Resize mit GDI+

[EWeiss]

Du mußt graphics vorher neu erstellen
und dann kenn ich nur GdipDrawImageRectRectI

Sample!

Delphi-Quellcode:

    if GdipCreateFromHDC(hDCdest, Graphics) = 0 then
    begin
      GdipCreateBitmapFromHBITMAP(hBM2, 0, Pointer(Img));
      GdipSetInterpolationMode(Graphics, 2);
      GdipDrawImageRectRectI(Graphics, Img, xDest, yDest,
        xWidth, yHeight, 0, 0, xDiv, yDiv, 2, nil, False, nil);
      GdipDeleteGraphics(Graphics);
      GdipDisposeImage(Img);
    end;
    skDeleteObject(hBM2);
    DeleteDC(hDC2);

EDIT:
Definition von GdipDrawImageRectRectI ist..
GdipDrawImageRectRectI Graphics, Img, 0, 0, newwidth, newheight, 0, 0, origwidth, origheight, UnitPixel


gruss

[Bummi]

Daß Du hier nach Printer.BeginDoc
direkt auf auf das Printercanvas gehen kannst weißt Du schon, oder?
GdipCreateFromHDC(Printer.Canvas.Handle .....

[Katte]

@Schwedenbitter:
Auch wenn das Ganze schon uralt ist. Der oben abgebildete Source Code funktioniert so nur bedingt.

Sobald die Ergebnis-Bitmap größer als die Ursprungs-Bitmap wird, bekommt man eine schöne Windows Exception präsentiert. Das liegt daran, dass die Routine GdipDrawImageRect nicht prüft, ob die Destination auch genügend Speicherplatz bietet.

Eine möglich Lösung wäre:
1. Zuerst das Image GDI Objekt erstellen
2. Bitmap mit SetSize entsprechend der Ergebnisgröße setzen
3. Erst danach dipDrawImageRect(graphics, image, 0, 0, W, H) aufrufen!

Gruß,
Katte