// JPegs, Bitmaps,
Metafiles und Icons werden umgewandelt.
// Siehe dazu auch
Icons erstellen
und
Grafiken in Metafiles schreiben
// Getestet mit D4 unter Win98
uses JPeg;
// ein JPeg
wird in ein Bitmap gespeichert
procedure
TForm1.Button1Click(Sender: TObject);
var
jp:TJpegImage;
bm:TBitmap;
begin
jp:=TJpegImage.create;
bm:=TBitmap.create;
jp.loadfromfile('d:\bilder\corel004.jpg');
bm.assign(jp);
bm.SaveToFile('c:\test.bmp');
bm.free;
jp.free;
end;
//------------------------------------------------------------
// und
umgekehrt: ein Bitmap wird in ein JPeg gespeichert
procedure
TForm1.Button1Click(Sender: TObject);
var
jp:TJpegImage;
bm:TBitmap;
begin
jp:=TJpegImage.create;
bm:=TBitmap.create;
bm.loadfromfile('d:\bilder\corel009.bmp');
jp.assign(bm);
jp.SaveToFile('c:\test.jpg');
bm.free;
jp.free;
end;
//------------------------------------------------------------
// und
weils so schön war: ein Metafile wird zu einem Bitmap
procedure TForm1.Button4Click(Sender:
TObject);
var
bm:TBitmap;
pc:TPicture;
begin
pc:=TPicture.create;
bm:=TBitmap.create;
pc.loadfromfile('d:\zeitung\merlin.wmf');
bm.width:=pc.width;
bm.height:=pc.height;
bm.canvas.draw(0,0,pc.graphic);
bm.savetofile('c:\test.bmp');
pc.free;
bm.free;
end;
//------------------------------------------------------------
// ein Jpeg
innerhalb eines TImage wird zum Bitmap
procedure
TForm1.Button1Click(Sender: TObject);
var bm:TBitmap;
begin
bm:=TBitmap.create;
image1.picture.loadfromfile('d:\bilder\corel004.jpg');
bm.assign(Image1.picture.graphic);
image1.picture.bitmap.assign(bm);
bm.free;
end;
//------------------------------------------------------------
// Ein Icon
wird zu einem Bitmap.
procedure
TForm1.Button1Click(Sender: TObject);
var ic:TIcon;
bm:TBitmap;
begin
ic:=TIcon.create;
bm:=TBitmap.create;
ic.loadfromfile('d:\icon2\cd.ico');
bm.width:=ic.width;
bm.height:=ic.height;
bm.canvas.draw(0,0,ic);
bm.savetofile('c:\test.bmp');
bm.free;
ic.free;
end;
|