2 png dateien zusammenführen

[A-KI]

servus

wie kann ich 2 png dateien übereinander legen und so abspeichern das ich 1 png datei habe?

schon mal danke für eventuelle hilfe

[tkone]

hast du farbeige darstellungen oder s/w darstellungen?
ist ja auch wichtig, wie du damit verfahre willst.
also farben addieren oder subtrahieren.

[s.h.a.r.k]

Oder willst du nur ein Overlay haben? Ich weiß nicht, was passieren würde, wenn auf du auf ein TImage (mit PNG-Support; oder ein TPNGImage)) nochmals eines zeichnest.

[A-KI]

sind 2 farbige
siehe bilder



http://www.abload.de/img/citiesuu5t.png + http://www.abload.de/img/warnings_201001051620outu.png = http://www.abload.de/img/fertig2u2w.png

[s.h.a.r.k]

Du solltest deine Bilder immer als Anhang beifügen und nicht extern speichern, da wenn jemand diesen Thread findet und die Bilder dem Veständnis dienen, so kann es sein, dass der fremde Hoster diese gelöscht hat und der Thread somit unnütz wird.

Hier der Quellcode, mit dem du das bewerkstelligen kannst, was du willst:

Delphi-Quellcode:

users
  pngimage;

{ ... }

var
  png : TPngImage;
begin
  png := TPngImage.Create();
  try
    png.LoadFromFile('C:\Users\<USER>\Desktop\warnings_201001051620outu.png');
    png.Draw(Image3.Canvas, Rect(0, 0, Image3.Width, Image3.Height));

    png.LoadFromFile('C:\Users\<USER>\Desktop\citiesuu5t.png');
    png.Draw(Image3.Canvas, Rect(0, 0, Image3.Width, Image3.Height));
  finally
    FreeAndNil(png);
  end;

Edit: Ich verwende D2010 und da ist TPngImage schon mit drin. Nun weiß ich nicht, wie du da in der Zwischenzeit ran kommst, da CodeGear sich diesen Source mal gekrallt hat.

[Klaus01]

Zitat von s.h.a.r.k:

Edit: Ich verwende D2010 und da ist TPngImage schon mit drin. Nun weiß ich nicht, wie du da in der Zwischenzeit ran kommst, da CodeGear sich diesen Source mal gekrallt hat.

Das Internet vergisst nicht so schnell TPngImage.pas

Grüße
Klaus

[s.h.a.r.k]

Hab sogar noch eine Version auf meine Platte gefunden.

[edit=Admin]Attachment auf Wunsch des Autors gelöscht. Mfg, Daniel[/edit]

[Die Muhkuh]

Den Anhang würde ich aber wegmachen Soweit ich weiß, darf man es nicht verteilen.