Bitmap Header ändern

AlexBegin · Beiträge: 39

Ich habe ein Form2 das ich mittels GetFormImage abspeichere. Dieses Bild wird in einer anderen Software weiter verwendet.
Leider wird die Farbtiefe mit 32bit abgespeichert. Mit dieser Farbtiefe kann die nachfolgende Software nichts anfangen. Sie müsste 24bit sein.
Wie kann ich, wenn möglich vor dem Speichern, die Farbtiefe ändern, das diese mit 24bit gespeichert wird?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Button12Click(Sender: TObject);
begin
  SaveDialog1.FileName := 'logo.bmp';
  if SaveDialog1.Execute then
    begin
      Form2.GetFormImage.SaveToFile(SaveDialog1.FileName);
    end;
end;

Bis dann Alex

Moderiert von Narses: Code- durch Delphi-Tags ersetzt
Moderiert von Narses: Topic aus Multimedia / Grafik verschoben am Do 14.05.2009 um 09:25

Narses · Verfasst: Do 14.05.09 08:25

Moin!

Mit dem aktuellen Code geht das nicht, du musst das Image vorher in ein temporäres TBitmap lesen und dann .Pixelformat := pf24Bit setzen. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

AlexBegin · Beiträge: 39

Hallo Narses, könntest du mir eventuell etwas unter die Arme greifen und mir den Code zeigen wie man das macht. Ich hab bei Grafiken sogut wie keine Ahnung.

Bis dann Alex

---Moderiert von Narses: Beiträge zusammengefasst---

Hallo Narses, ich musste erst einmal hier im Forum suchen und dies dann auch für mein Problem umsetzen. Ich habe mein Code folgendermaßen erweitert.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button12Click(Sender: TObject);
var
  TempBMP: TBitmap;

begin
  SaveDialog1.FileName := 'logo.bmp';
  if SaveDialog1.Execute then
    begin
      Form2.GetFormImage.SaveToFile(SaveDialog1.FileName);
      TempBMP := TBitmap.Create;
      TempBMP.LoadFromFile(SaveDialog1.Filename);
      try
        TempBMP.PixelFormat := pf24bit;
        TempBMP.SaveToFile(SaveDialog1.Filename);
      finally
        TempBMP.Free;
      end;
    end;
end;

Jetzt habe ich die richtige Farbtiefe und es funktioniert auch mit der anderen Software.

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt

Nersgatt · Verfasst: Do 14.05.09 09:44

Warum so kompliziert, GetFormImage liefert doch schon ein TBitmap. Du musst es doch nicht speichern, wieder laden und wieder speichern.

Prinzipiell:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var bmp : TBitmap;
begin
  bmp := self.GetFormImage;
  try
    bmp.PixelFormat := pf24bit;
    bmp.SaveToFile('c:\temp\test.bmp');
  finally
    bmp.free;
  end;
end;

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

AlexBegin · Beiträge: 39

Dein Code ist soweit gut, es speichert das Form ab, in dem der Code enthalten ist. Ich habe vergessen, das bei mir der Code im Form1 steht, aber Form2 (Form2 ist nur da, um TImage und Memos darzustellen) abgespeichert werden muss.
Habe versucht dein Code anzupassen, aber ohne Erfolg.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var bmp : TBitmap;
begin
  bmp := Form2.GetFormImage;
  try
    bmp.PixelFormat := pf24bit;
    bmp.SaveToFile('c:\temp\test.bmp');
  finally
    bmp.free;
  end;
end;

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Nersgatt · Verfasst: Do 14.05.09 11:23

Das "self" oben im Code ist nur ein Verweis auf das Formular (eigentlich Klasse), in der der Code steht. Du kannst es einfach durch "form2" ersetzen.

Wenn man es sauber machen will, würde ich den Code evtl. komplett aus den Forms in eine Unit auslagern:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Procedure SaveFormImage(frm : TForm, Filename : String);
var bmp : TBitmap;
begin
  bmp := frm.GetFormImage;
  try
    bmp.PixelFormat := pf24bit;
    bmp.SaveToFile(Filename);
  finally
    bmp.free;
  end;
end;

Aufrufen kannst Du es z.B. so:

markieren

Delphi-Quelltext

1:
2:

SaveFormImage(self, 'c:\temp\test.bmp'); {Das aktuelle Formular speichern}
SaveFormImage(Form2, 'c:\temp\Form2.bmp'); {Form2 speichern}

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

AlexBegin · Beiträge: 39

Sorry, habe es im ersten Augenblick übersehen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button12Click(Sender: TObject);
var
  TempBMP: TBitmap;

begin
  SaveDialog1.Filter := 'Bitmap-Grafik (*.bmp)|*.BMP';
  SaveDialog1.FileName := 'logo.bmp';
  if SaveDialog1.Execute then
    begin
      TempBMP := Form2.GetFormImage;
      try
        TempBMP.PixelFormat := pf24bit;
        TempBMP.SaveToFile(SaveDialog1.Filename);
      finally
        TempBMP.Free;
      end;
    end;
end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme