Teile eines images kopieren und in anderes image einfügen

[Keldorn]

Zitat:

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? :roll:
- 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

[jAcK oRsEn]

es geht nicht...


ich möchte von einem großen bild...ein teilstück in ein zweites image, welches leer ist copieren...

vom ersten bild soll das ein Stück von 105*105 pixeln sein!

[Nicodius]

ich habs hier vom board kopiert und es geht ... der ist ja gekürzt ^^ deine teiel musst du schon ausstauschen :roll:

[Keldorn]

Delphi-Quellcode:

a := rect(0,0,105,105); //destrect
b := rect(x*105,y*105,(x+1)*105,(y+1)*105); //srcrect

x und y geben die" Spalte und zeile" vom image 1 an

[jAcK oRsEn]

@nicodius:bei mir gehts nicht, meldungen wie trect und int64 inkopatible typen u.s.w. ca 6 stück


keldorn: und der aufruf?

[Nicodius]

nur mal so ne frage hast du

Delphi-Quellcode:

var a : TRect;
            b : TRect

auch geschireben sonst versteh ichs nicht :roll:

[Keldorn]

Zitat:

Zitat von jAcK oRsEn

bei mir gehts nicht, meldungen wie trect und int64 inkopatible typen u.s.w. ca 6 stück

poste mal die prozedur

[jAcK oRsEn]

kann mir nicht mal jemand nen code schreiben der funktioniert, ich verstehe jetzt rein garncihts mehr...noch weniger wie vprher

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

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


bild.loadfromfile('c:\jack.bmp');
For i:=0 to 1 do
  For j:=0 to 1 do
    begin
       teilBild:=TBitmap.create();
       image2.canvas.copyrect(round(bild.width/1*i),round(bild.height/1*j),
                         round(bild.width/1*(i+1)),round(bild.height/11*(j+1),
                         bild);
       teilbild.savetofile('c:\jacktemp.bmp');
       teilbild.free;
    end;

[Nicodius]

DANN POSTE DOCH DIENEN CODE !


edit: sorry aber .. warum kannst du nicht einfach deinen code posten dann ists leichter?! :cry:

[jAcK oRsEn]

hab ich oben