Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bild in Stücke teilen (https://www.delphipraxis.net/21218-bild-stuecke-teilen.html)

Dagon 29. Apr 2004 14:42


Bild in Stücke teilen
 
Hallo Leute!

Ich würde gerne ein Bitmap in kleine quadratische Stücke teilen. Wie könnte ich dieses Problem am besten bewältigen?

atreju2oo0 29. Apr 2004 15:40

Re: Bild in Stücke teilen
 
Das müsste eigentlich recht einfach gehen...
Als erstes musst Du das Bild in ein TBitmap laden.
Dann mit canvas.copyrect(....) den gewünschten Bereich in ein neues Bitmap schreiben.

Code:
var i,j:integer;
    Bild,teilBild:TBitmap;


Bild:=TBitmapo.create();
bild.loadfromfile('c:\....');
For i:=0 to AnzahlX do
  For j:=0 to ANzahlY do
    begin
       teilBild:=TBitmap.create();
       teilbild.copyrect(round(bild.width/AnzahlX*i),round(bild.height/AnzahlY*j),
                         round(bild.width/AnzahlX*(i+1)),round(bild.height/AnzahlY*(j+1),
                         bild);
       teilbild.savetofile(....);
       teilbild.free;
    end;
Hab jetzt nur so geschrieben...
Sind also noch nen Haufen kleinerer Fehler drin denk ich mal...
Viel Erfolg...

Dagon 29. Apr 2004 17:02

Re: Bild in Stücke teilen
 
Wenn ich einen Ausschnitt mit CopyRect kopieren weill und dann speichern, so ist das gespeicherte Bitmap leer. :gruebel:
An was könnte das liegen?
(Ich bin mir sicher, dass ich den Fehler selber finden würde, aber heute bin ich irgendwie ein bisschen müde).

[edit] Mit müde meine ich, dass ich mich heute nicht so konzentrieren kann. Nicht das ihr noch denkt ich wäre zu faul. :wink: [/edit]


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz