Zitat von
Nicodius:
ok dann halt der code ...
Delphi-Quellcode:
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;
das soll funktionieren?
- kein resourcenschutzblock bei bild:=tbitmap.create
- die copyrectfktn ist auch nicht korrekt
- teilbild: warum immer in der schleife erzeugen? einmal reicht
- teilbild: größe wird nicht gesetzt, du kannst kopieren was du willst und wirst nichts sehen
- evtl fehlt noch das pixelformat für die teilbitmap