BMP, GIF, JPG, PNG in BMP, GIF, JPG, PNG umwandeln

[Mazel]

Hallo,

ich möchte ein Programm schreiben, bei dem ich eins der oben genannten Bildformate in ein anderes (auch von oben) umwandeln kann, also bmp in png oder jpg in gif. Nun ist es ja kein Problem ein jpg in bmp oder umgekehrt umzuwandeln, da Delphi diese Möglichkeit mir bietet. Wie aber kann ich ein bmp in gif umwandeln? Welche freie Komponenten gibt es, die ich ohne Probleme nutzen könnte? Ich bin immerwieder auf Komponenten gestoßen die:
a: nicht so toll waren oder
b: eine Lizenz hatten, bei der ich eine extra licence.txt für diese Komponente mitliefern müsste oder
c: ich nur bedingt einsetzen konnte.

Welche das jetzt genau waren kann ich nicht sagen, ich hatte mehrere ausprobiert.

Ich meine, alle Fremdkomponenten, die ich in meinen Projekten verwende, werden sowieso in der readme.txt meines Programmes genannt, daher brauch ich nicht mehrere andere Lizenz Dateien für mehrere Komponenten.

Gruß
Mazel

[Namenloser]

Also für gif nehme ich die Unit GifImage, und für jpeg binde ich die unit jpeg ein. mit png habe ich noch nicht gearbeitet, aber es gibt dafür soviel ich weiß eine unit namens pngimage.

[arbu man]

Die GraphicEx zum laden nehmen und dann auf ein TBitmap.Canvas die TGraphic zeichen. Dann hast du schon mal ein Bitmap für JPEG speichern dann TJPEGImage und so weiter.

[Mazel]

Zitat:

Zitat von arbu man

...und so weiter.

Und wie weiter?

Gruß
Mazel

[arbu man]

eben mit Komponenten wie TJepgImage, TBitmap, TPNGImage, TGifImage die musst du dir zusammen suchen oder selber erstellen.

[igel457]

Eigentlich ganz einfach:
Du konvertierst das Bild erst in ein BMP und das kannst du dann in jedes andere Format konvertierten. Ungefähr so...

Delphi-Quellcode:

var in,out:tgraphic;
    bmp:TBitmap;
begin
  if typin = 'PNG' then in := TPngImage.Create;
  if typin = 'BMP' then in := TBitmap.Create;
  if typin = 'JPG' then in := TJpeg.Create;
  if typin = 'GIF' then in := TGifImage.Create;
  bmp := TBitmap.Create;
  bmp.width := in.width;
  bmp.height := in.height;
  bmp.canvas.draw(in,0,0);
  if typout = 'PNG' then out := TPngImage.Create;
  .
  .
  .
  out.width := bmp.width;
  .
  out.canvas.draw(bmp);
  out.savetofile(blbla)
end;

[Mazel]

Ja, ok danke.

Aber wo bekomme ich die passenden "freien" Komponenten her? Ohne das im ersten Beitrag genannte Problem zu haben. Wo bekomme ich eine freine PNGKomponente her?

Gruß
Mazel

[igel457]

Zum Beispiel hier: http://sourceforge.net/projects/pngdelphi