Einzelnen Beitrag anzeigen

merlin17

Registriert seit: 15. Dez 2002
Ort: Mittelfranken
980 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

Re: Bitmap.Save mit ImageFormat in .net 1.1

  Alt 4. Sep 2007, 10:19
ich gebe zu, ich gehöre eher zur datenbank-fraktion und nicht zum GAS-Bereich (GrafikAnimationSound).

hier mein Codeschnipsel: (das ergebnis ist aber PNG und nciht BMP aber ich will BMP ...)

Danke schon im Voraus für jede Hilfe!!!

thomas


Delphi-Quellcode:
procedure TWFConvert.Button1_Click(sender: System.object;
  e: System.EventArgs);
var
  t: TiffManager;
  i: Image;
  bmp: Bitmap;
  g: Graphics;
begin
  if ParamCount > 0 then
  begin
    try
      t := TiffManager.Create(TextBox1.Text);
      i := t.GetSpecificPage(0);
      bmp := Bitmap.Create(i.Width, i.Height);
      g := Graphics.FromImage(bmp);
      g.DrawImage(i, 0, 0, i.Width, i.Height);
      bmp.Save(TextBox2.Text); // >> wird aber nur PNG
//bmp.Save('bb',System.Drawing.Imaging.ImageFormat.BMP);
    finally
      t.Free;
      i.Free;
      g.Free;
      bmp.Free;
    end;
  end;
end;
- TeamNevrona cannot respond to questions received via email -
http://rave-notes.blogspot.com
  Mit Zitat antworten Zitat