Thema: Delphi Bild in Stücke teilen

Einzelnen Beitrag anzeigen

Benutzerbild von atreju2oo0
atreju2oo0

Registriert seit: 5. Dez 2003
Ort: Berlin
289 Beiträge
 
Delphi 6 Enterprise
 
#2

Re: Bild in Stücke teilen

  Alt 29. Apr 2004, 16:40
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...
Thomas
  Mit Zitat antworten Zitat