Resample oder Resize mit GDI+

[Schwedenbitter]

Zitat von EWeiss:

Die Vorgehensweise ist folgende..
1. Ein graphic obj erstellen

Code:

GdipCreateFromHDC(Hdc, graphics);

Ich komme genau bis hierher und dann nicht mehr weiter. Ich habe ein TBimap erstelle, dorthinein eine Datei geladen und dann GdipCreateFromHDC(TBitmap.Canvas.Handle, graphics); aufgerufen.

Zitat von EWeiss:

2. Setzen der Optimierungsmodis
Verschiedene modis die du verwenden kannst.
Smoothing, Interpolation, PixelOffset, CompositingMode..

Das bekomme ich eben nicht hin .
Ich übergebe jetzt graphics mit GdipSetInterpolationMode(graphics, 7) , wobei gilt:

Delphi-Quellcode:

Type
  GdipGraphics = Pointer;
  GdipInterpolationMode = Integer;

Function GdipSetInterpolationMode(Out graphics: GdipGraphics;
  interpolationMode: GdipInterpolationMode): GdipStatus; Stdcall;
  External Gdip;

Ich habe jetzt mal aus lauter Verzweiflung einen kurzen Testcode beigefügt mit der GdipAPI.inc, die ich selbst gebastelt und bislang benutzt habe. Vielleicht sieht ja jemand auf Anhieb meinen Fehler.

[EDIT]
Mist! Du warst schneller
[/EDIT]

Gruß, Alex

[EWeiss]

Siehe mein Source

gruss

[EWeiss]

Schmeiss mal das shit OUT aus "Out graphics: GdipGraphics" raus.

Dann funktioniert es auch.

gruss

[Bummi]

@Eweiss

Hi,

Ich hatte Ihn so verstanden daß er ein bestehenden GraphicObject direkt skalieren will ohne Umweg über ein File.

Ich habe mal eine Prozedur:

Delphi-Quellcode:

function DrawImageFromGraphic(source:TGraphic;
  DrawHdc: HDC;
  Percent: Integer;
  Interpolation: InterpolationMode = InterpolationModeDefault;
  Smoothing : SmoothingMode = SmoothingModeNone;
  PixelOffset : PixelOffsetMode = PixelOffsetModeNone;
  CompositingQuality: CompositingQualityMode = CompositingQualityDefault;
  CompositingMode: CompositingModeMode = CompositingModeSourceOver): Boolean;

in Deinen Code mit eingebaut, erfordert allerdings Classes,ActiveX wg.

function GdipLoadImageFromStreamICM(stream: ISTREAM;
out image: Cardinal): Integer; stdcall;
{$EXTERNALSYM GdipLoadImageFromStreamICM}

ist nur eine Quickhack, Du darfst falls Du es brauchen kannst das ganze gern optimieren.

[EWeiss]

@Bummi

Zitat:

ist nur eine Quickhack, Du darfst falls Du es brauchen kannst das ganze gern optimieren.

Werde es mir mal anschauen..

Das Problem war aber eher das setzen des InterpolationMode
Die übergebenen Parameter müssen identisch sein sonst klappt das nicht
Er kann nicht bei Out graphis nicht einfach einen Pointer graphics übergeben ...
Wenn schon dann bitte das OUT entfernen dann funktioniert das auch.

gruss

[Schwedenbitter]

Zitat von Bummi:

... daß er ein bestehenden GraphicObject direkt skalieren will ohne Umweg über ein File.

Genau so. Ich bekomme Bilder von einem Scanner geliefert mit 300 oder 400 dpi. Unser System arbeitet Fax-konform (jedenfalls aus Sicht unseres Faxes) mit 200 dpi. Das reicht auch zum lesen. Die Bilder sehen nur nicht sehr schön aus, wenn ich das mit StretchBlt() verkleinere.
Außerdem drucken wir auch. Die Drucker arbeiten alle mit 600 dpi, so dass das Bild vergrößern muss. Und da ich "Blut geleckt habe", möchte ich auch die Vergrößerung optimieren. Ansonsten wäre ich mit StretchBlt() und Halftone schon fertig gewesen. Das sieht nämlich ganz passabel aus und geht (auch) schnell.

Zitat von Bummi:

Du darfst falls Du es brauchen kannst das ganze gern optimieren.

Danke Euch beiden!

[EWeiss]

Wieder eine gute Tat für Heute
Heheheeee..

gruss

[Schwedenbitter]

So. Ich habe mir jetzt mal ausgehend von BUMMI's Änderungen am Quellcode von EWeiss die Procedure nachgebaut. Danke für die Tipps! Sie sieht jetzt so aus:

Delphi-Quellcode:

Procedure StretchGdip(Var Bitmap: TBitmap; Const NewWidth, NewHeight: Integer;
  Smoothing : SmoothingMode = SmoothingModeNone;
  Interpolation: InterpolationMode = InterpolationModeDefault;
  PixelOffset : PixelOffsetMode = PixelOffsetModeNone;
  CompositingQuality: CompositingQualityMode = CompositingQualityDefault;
  CompositingMode: CompositingModeMode = CompositingModeSourceOver);
Var
  ScaleDown  : Boolean;
  W, H       : Single;
  oldW, oldH : Single;
  graphics   : Cardinal;
  str        : TStream;
  image      : Cardinal;
Begin
  If (Bitmap.Empty) Or
    ((NewWidth = 0) And (NewHeight = 0)) Or
    ((NewWidth = Bitmap.Width) And (NewHeight = Bitmap.Height)) Then
  Exit;

  W:=NewWidth;
  H:=NewHeight;
  oldW:=Bitmap.Width;
  oldH:=Bitmap.Height;
  If (W = 0) Then W:=H * oldW / oldH;
  If (H = 0) Then H:=W * oldH / oldW;
  ScaleDown:=((W < oldW) Or (H < oldH));

  If GdipCreateFromHDC(Bitmap.Canvas.Handle, graphics) = 0 Then
  Begin
    GdipSetSmoothingMode(      graphics, Smoothing);
    GdipSetInterpolationMode(  graphics, Interpolation);
    GdipSetPixelOffsetMode(    graphics, PixelOffset);
    GdipSetCompositingQuality( graphics, CompositingQuality);
    GdipSetCompositingMode(    graphics, CompositingMode);

    str:=TMemoryStream.Create;
    Try
      Bitmap.SaveToStream(str);
      str.Position:=0;
      If (Not ScaleDown) Then
      Begin
        Bitmap.Width:= Round(W);
        Bitmap.Height:=Round(H);
      End;
      If GdipLoadImageFromStreamICM(TStreamAdapter.Create(str), image) = 0 Then
         GdipDrawImageRect(graphics, image, 0, 0, W, H);
      If (ScaleDown) Then  // überflüssige Ränder abschneiden
      Begin
        Bitmap.Width:= Round(W);
        Bitmap.Height:=Round(H);
      End;
    Finally
      str.Free;
    End;
    GdipDeleteGraphics(graphics);
  End;
End;

Das Verkleinern funktioniert insoweit einwandfrei. Das vergrößern denknotwendiger Weise nicht. Denn ich muss vor dem Vergrößern den notwendigen Platz schaffen, indem ich Width und Height schon setze. Dann vergrößert er aber nichts mehr und ich habe weiter den weißen Rand, was auch logisch ist.

Ich wollte aber für die Ausgabe auf dem 600dpi-Drucker die 200dpi-Bilder entsprechend vergrößern. Bei meiner Version mit GDI (ohne "+") gibt es da keine Probleme, weil ich über

Delphi-Quellcode:

StretchBlt(self.Canvas.Handle,
  0, 0, W, H,
  self.Canvas.Handle,
  0, 0, oldW, oldH,
  SRCCOPY);

die alte und neue Größe angeben kann.

Ich komme mit den weiteren Parametern bei GdipDrawImageRectRect nicht klar. Gibt es dafür noch irgend eine Alternative?

Gruß, Alex