Die Routine läuft wunderbar!
Einziges Problem: Um den Bildausschnitt übers netzwerk zu versenden, möchte ich es gerne als jpg (oder sonst was komprimiert) verschicken.
Da man (denke ich zumindest) Tbitmap32 nicht direkt in Tjpg umwandeln kann, habe ich mir den umweg über Tbitmap ausgesucht:
(Nach der Vergleichroutine, varriablen so wie zuvor)
Delphi-Quellcode:
bitmap1:=tbitmap.Create;
bitmap1.Height:=targetrect.Bottom-targetrect.Top;
bitmap1.Width:=targetRect.Right-targetRect.Left;
bitmap1.Canvas.CopyRect(targetrect,img03.Bitmap.Canvas,targetrect);
JPG:= TJPEGImage.Create;
JPG.Assign(bitmap1);
//dann wird versendet über filestream...
Leider gibts hier wieder probleme: img03.bitmap enthält noch das volle, "richtige" bild. Sobald ich aber bitmap1 abspeichere und mir ansehe, fehlen am oberen Rand jede menge Pixel...
Vermute langsam, dass (bei mir) g32 probleme hat, wenn man g32 objekte mit delphi objekten wie z.B. TImage und TImage32 interagieren lässt.
//edit: Kann es sein, dass tbitmap32[x,y] einen anderen Punkt anspricht als tbitmap[x,y], sprich, dass tbitmap32 andere dimensionen hat?
Gruß, Alleinherrscher