API-Grafik-Befehle

[markus lemcke]

Hallo,

ich schlage mich schon die ganze Zeit mit den API-Befehlen rum und komme nicht weiter!

ich habe zwei timage-komponenten!
in der einen ist ein jpg-bild, welches ich, zunächst mal in die andere kopieren wollte!
hier mein versuch:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
VBitmap : TBitmap;
begin
VBitmap := TBitmap.Create;
VBitmap.Assign(imageq.Picture.Graphic);
ImageQ.Picture.Bitmap.Assign(VBitmap);
VBitmap.free;
//ImageZ.Picture.Bitmap.Assign(ImageQ.Picture.Bitmap );

bitblt(imagez.Picture.Bitmap.Canvas.Handle, //handle vom ziel
0,//Linke obere ecke vom Ziel
0,//Linke obere ecke vom Ziel
imagez.width,//Zielbreite
imagez.Height,//Zielhöhe
imageq.Picture.Bitmap.Canvas.Handle,//Handle von der Quelle
0,//Linke obere ecke von der Quelle
0,//Linke obere ecke von der Quelle
SRCCOPY);//Operation
end;
</pre>

was mache ich verkehrt?

Gruß

Markus

[Andreas Wirth]

Hallo Markus,

wenn keine Formatkonvertierung durchgeführt werden muß reicht einfach

ImageZ.Picture.Assign(ImageQ.Picture);

Wenn eine Konvertierung von JPEG nach BITMAP erfolgen soll funktioniert folgendes:

ImageZ.Picture.Bitmap.Width:=ImageQ.Picture.Width;
ImageZ.Picture.Bitmap.Height:=ImageQ.Picture.Heigh t;
ImageZ.Picture.Bitmap.Canvas.Draw(0,0,ImageQ.Pictu re.Graphic);

Viel Erfolg,

Andrea

[markus lemcke]

danke andreas