title image


Smiley Re: gif -> bmp umwandeln
uses axctrls;



procedure LoadBild(Datei: string; Picture: TPicture);

var

FStream: TFileStream;

OLEBild: TOleGraphic;

begin

OLEBild := TOleGraphic.Create;

FStream := TFileStream.Create(Datei, fmOpenRead or fmShareDenyNone);

try

OLEBild.LoadFromStream(FStream);

Picture.Assign(OLEBild);

finally

FStream.Free;

OLEBild.free;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

pic: TPicture;

bm: TBitmap;

begin

pic := TPicture.create;

bm := TBitmap.create;

LoadBild('d:\bilder\hexe.gif', pic);

bm.width := pic.width;

bm.height := pic.height;

bm.canvas.draw(0, 0, pic.graphic);

bm.savetofile('c:\test.bmp');

bm.free;

pic.free;

end;



gruß DBR
Eine Stunde denken spart zehn Stunden programmieren!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: